【正文】 對話框有一個(gè)“確定”按鈕 B、 該對話框有“是”、“否”二個(gè)按鈕 C、 該對話框有“是”、“否”、“取消”三個(gè)按鈕 D、 可以通過選擇參數(shù)得到以上不同的按鈕組合 1表達(dá)式 int(5*rnd+1)*int(5*rnd1) 的值范圍是 ____ A、［ 0， 15］ B、［ 1， 15］ C、［ 4， 15］ D、［ 5， 15］ 1使用下列語句： Dim x(1 to 10,3) As single ，則數(shù)組占用內(nèi)存空間的字節(jié)數(shù)是 ____ A、 80 B、 120 C、 132 D、 160 1下列程序段執(zhí)行后， i 的輸出值是 ____ Dim y as integer For i=1 to 10 step 2 y =y+2 next i print i A、 25 B、 10 C、 11 D、因?yàn)?y 初值不知道，所以不進(jìn)行循環(huán)， i 值不確定 1下列程序段運(yùn)行結(jié)果是 ____ Private Sub Form_click() x=5 m=1 n=1 do m=m*n n=n+1 Loop Until n5 Print x^2+m/3 End sub A、 25 B、 45 C、 55 D、 65 3 1執(zhí)行如下程序段時(shí)，從鍵盤輸入 5，輸出的結(jié)果是 ____ x=5 s=Val(Inputbox(“請輸入 s 的值： ”)) select Case s Case Is0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x。 A、 7 B、 15 C、 157 D、 538 單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果為 ____。 A、 B、 4 C、 D、 1234 在窗體上有一個(gè)文本框控件，名稱為為 TxtTime；一個(gè)計(jì)時(shí)器控件，名稱為 Timer1，要求每一秒在文本框中顯示一次當(dāng)前的時(shí)間。 1 初中 信息技術(shù)教師程序設(shè)計(jì)（ VB）競賽 試 題 一、 選擇題： 要想改變一個(gè)窗體的標(biāo)題內(nèi)容，則應(yīng)設(shè)置以下哪個(gè)屬性的值 ____。 A、 Name B、 FontName C、 Caption D、 Text .在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為 Text Label1 和 Command1,然后編寫如下兩個(gè)事件過程： Private Sub Command1_Click() strText=InputBox(請輸入 ) =strText End Sub Private Sub Text1_Change() =Right(Trim(),3) End Sub 程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中輸入 abcdef，則在標(biāo)簽中顯示的內(nèi)容是 ____ A、空 B、 abcdef C、 abc D、 def 以下不屬于 Visual Basic 系統(tǒng)的文件類型是 ____ A、 .frm B、 .bas C、 .vbg D、 .vbp 表達(dá)式 Str(Len(1234))+Str()的值為 ____。程序?yàn)椋? Private Sub Timer1_ _____() =Time End Sub 在下劃線上應(yīng)填入的內(nèi)容是 ____ A、 Enabled B、 Visble C、 Interval D、 Timer 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Commandl_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 2 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 ____。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click( ) Dim x As Integer,y As Integer x=23:y=65 Call Procl(x,y) Print x。y A、 5 2 B、 5 4 C、 5 3 D、 5 5 1 下列程序段的執(zhí)行結(jié)果為 ____。B A=A+B:B=B+A:Print A。 A、 3 B、 12 C、 6 D、 9 1 InputBox 函數(shù)返回值的類型為 ____。 Public Sub Proc(a() As Integer) Static i As Integer Do 4 a(i) = a(i) + a(i + 1) i = i + 1 Loop While i =2 End Sub Private Sub Command1_Click() Dim m As Integer, i As Integer, x(10) As Integer For i = 0 To 4: x(i) = i + 1: Next i For i = 0 To 2: Call Proc(x): Next i For i = 0 To 4: Print x(i)。 A、 Add 12,5 B、 Call(2*x,Add()) C、 Call Add x,y D、 Call Add(12,12,x) 2 以下敘述錯(cuò)誤的是 ____ A、 Visual Basic 是事件驅(qū)動(dòng)型可視化編程工具 B、 Visual Basic 應(yīng)用程序不具有明顯的開始和結(jié)束語句 C、 Visual Basic 工具箱中的所有控件都具有寬度（ Width)和高度 (Height)屬性 D、 Visual Basic 中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置 2 在窗體上畫 1 個(gè)命令按鈕，其名稱為 Command1，然后編寫如下程序： Private Sub Command1_Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 ____。 y End Sub 5