vb总-1(7)

Print “ABCDEF” End Select

B、Select Case X Case Is>15, Is<5 Print“ABCDEF” End Select

C、Select Case X

Case Is>5, 1, 3 TO 10 Print \End Select

D、Select Case X Case 10 TO 1 Print “ABCDEF” End Select 答案：C 题号：8326

下列程序的输出结果是_____。 Dim y As Integer y=10

Do While y<>0 y=y-1 Loop

Print \A、y=-1 B、y=0

C、y=随机值 D、y=1 答案：B 题号：8345

以下语句中，不能正确执行的是_____。 A、Check1.Value=True B、If Optionl.Value Then

C、If Optionl.Value=True Then D、Check1.Value=0 答案：A 题号：8337

下面程序执行的结果是_____。 Private Sub Form_Click()

Dim a As String, b As String a = \ b = \

C = Val(a) + Val(b) Print C \\ 100 End Sub A、579 B、3 C、5 D、123 答案：C 题号：8365

执行程序，单击窗体后在窗体上显示的结果是_____。 Private Sub Form1_Click() Dim Str1 As String, Str2 As String, i As Integer Str1=\ For i=Len(Str1)To 1 Step-1 Str1=Str1 &Chr(Asc(Mid(Str1,i,1))+i) Next i Print Str1 End Sub A、abce

B、abdb C、abfd D、abcd 答案：B 题号：8318

结构化程序设计方法的核心是规定了三种基本结构：_____结构、分支结构、循环结构。 A、顺序 B、条件 C、逻辑 D、当型 答案：A 题号：8319

哪个程序段不能分别正确显示1、2、6、24的值_____。 A、For i=1 To 4 n=1

For j=1 To i N=n*j Next j Print n Next i B、n=1

For j=1 To 4 N=n*j Print n Next j C、n=1 j=1

Do While j<=4 n=n*j Print n j=j+1 Loop

D、For i=1 To 4 For j=1 To i n=1 n=n*j Next j Print n Next i 答案：D 题号：8342

以下程序的输出结果是_____。 Dim i As Integer,a As Integer Do While i<20 Do While True

If i Mod 10=0 Then Exit Do Else i=i-1 End If Loop

i=i+11:a=a+i Loop Print a A、21 B、33 C、32 D、11 答案：C 题号：8328

下列程序运行后的输出结果是_____。 Private Sub Command1_Click() For i=1 TO 3 For j=0 TO i-1 k=k+1 next j next i print k End Sub A、3 B、5 C、4 D、6 答案：D 题号：8325 下列程序：

Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub

运行后输出的结果是_____。 A、15 B、1 C、90 D、120 答案：A 题号：8327

下列程序段的执行结果为_____。 x = Int((69 - 60) * Rnd + 60) Select Case x Case Is >= 90 Print \优秀\ Case 80 To 89 Print \良好\ Case 60 To 79 Print \合格\ Case Else Print \不合格\End Select A、优秀 B、良好 C、合格 D、不合格 答案：C 题号：8362

在窗体中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click( ) Dim y As Integer y = 0 Do While y<7 y=y+3 Loop MsgBox y End Sub

程序运行后，消息对话框中显示_____。 A、8 B、9 C、7

D、6 答案：B 题号：8286

对窗体编写如下代码： Option Base 1

Private Sub Command1_Click( ) a=Array(237,126,87,48,498) m1=a(1) m2=1

For i=2 To 5

If a(i)>m1 Then m1=a(i) m2=i End If Next i Print m1;m2 End Sub

程序运行后，按回车键，输出结果为_________。 A、237 1 B、498 5 C、498 4 D、48 4 答案：B 题号：8258

要分配存放如下方阵的数据，____________数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9 A、Dim a(3，3) As Single

B、Dim a(-1 To l，-5 To -3) As Single C、Dim a(-3 To -1，5 To 7) As Integer D、Dim a(9) As Single 答案：B 题号：8292

如下二维数组声明语句，________正确。 A、Dim a(34) As Integer B、Dim a(n，n) As Integer C、Dim a(3，4) As Integer D、Dim a[3，4] As Integer 答案：C 题号：8261

以下有关数组的说明中，错误的是________。 A、在过程中，不能用Private语句定义数组。

B、数组重新定维后，原有的数组元素内容将不予保留。

C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。 D、根据数组说明的方式，可将数组分为动态数组和静态数组。 答案：B 题号：8270

当发生Command1_Clik事件后，下列程序的输出结果是____________。 Dim i As Integer Dim a(10) As Integer For i=9 To 0 Step -1 a(i)=10+I Next I

Print a(2);a(5);a(8) A、7 4 1 B、8 5 2 C、12 15 18 D、3 6 9 答案：C 题号：8291

用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是________。

A、命令按钮的大小都相同

B、命令按钮的所有Caption属性都是Command1 C、命令按钮共享相同的事件过程

D、在代码中访问命令按钮只需使用名称Command1 答案：D 题号：8260 Option Base 1

Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j = 1 To 3

If j > 1 And i > 1 Then

a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1 Else

a(i, j) = i * j End If

Print a(i, j); \Next j Print Next i End Sub A、1 2 3 2 4 6 3 6 9 B、1 2 3 1 2 3 1 2 3 C、1 1 1 2 2 2 3 3 3 D、1 2 3 2 3 1 3 2 3 答案：D 题号：8263

如下数组声明语句，则数组a包含元素的个数有____________。 Dim a(3 , -2 to 2 , 5) A、75 B、13 C、60 D、120 答案：D 题号：8279

在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click( ) Dim a As Variant a = Array(1,2,3,4) j = 1

For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print s End Sub

运行上面的程序，单击命令按钮，其输出结果是_____________。 A、1234 B、34 C、12 D、4321

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb总-1(7)在线全文阅读。