• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

vate Sub Commandl—Click()Dim m As Integer,n As Integerm=1：n=0Do While m<20n=m+nm=3*m+1LoopPrint m，nEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。

A．40 18
B．40 19
C．20 64
D．21 64
题目列表

你可能感兴趣的试题

单项选择题

在下面语句或函数中，不能描述选择结构的是( )。

A．If语句
B．If函数
C．Select Case语句
D．While语句
单项选择题

编写如下程序：Private Sub Commandl—Click()Dim a As Integer，b As Integera=3b=2If a*b＜10 Then b=b+1 Else b=b—lPrint b—a＞0End Sub程序运行后，单击命令按钮Command1，输出结果为( )。

A．True
B．False
C．1
D．一1
单项选择题

编写如下程序：Private Sub Commandl—Click()Dim score As Integerscore=86If score>85 Thenr=1ElseIf score>60 Thenr=2Elser=0End IfPrint rEndSub程序运行后，单击命令按钮Command1，输出结果为( )。

A．0
B．1
C．2
D．86
单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1—Click()Dim Hum As Integer，x As IntegerBum=Val(InputBox(“请输入一个正整数”))Select Case BumCase Is＞100x=x+numCase Is＜90x=numCase Elsex=x* numEnd SelectPrint x；End Sub运行程序，并在三次单击命令按钮时，分别输入正整数100、90和60，则窗体上显示的内容为( )。

A．0 0 0
B．0 0 60
C．0 90 0
D．100 0 60
单项选择题

窗体上有一个名称为Commandl的命令按钮，编写如下事件过程：Private Sub Commandl—Click()i=0Do While i<6For j=1 To in=n+1Nexti=i+1LoopPrint nEnd Sub运行程序，单击命令按钮时，窗体上显示的是( )。

A．10
B．15
C．16
D．21
单项选择题

在窗体上画一个文本框，其名称为Text1，然后编写如下程序：Option Base 1Pfivate Sub Form_Click()Dim Arr(10)As IntegerFor i=6 To 10An-(i)=i一3Next iTextl．Text=Str(Arr(6)+An-(An．(6)+Arr(10)))End Sub程序运行后，单击窗体，在文本框中显示的内容是( )。

A．7
B．8
C．9
D．10
单项选择题

阅读程序：Option Base 1Private Sub Form—Click()Dim Arr(3，3)As IntegerFor i=1 To 3For j=1 To 3Ⅱj=i Or j=3一i+1 ThenArr(i，j)=1ElseArr(i，j)=0End IfNext jNext iFor i=1 To 3For j=1 To 3Print Arr(i，j)；Next jPrintNext iEnd Sub程序运行后，如果单击窗体，则输出结果为( )。

A．1 1 1 1 1 1 1 1 1
B．0 0 0 0 0 0 0 0 0
C．1 0 0 0 1 0 0 0 1
D．1 0 1 0 1 0 1 0 1
单项选择题

以下Visual Basic不支持的循环结构是( )。

A．For…Next
B．For Each…Next
C．Do…Loop
D．Do…End Do
单项选择题

有如下程序：Private Sub Form—Click()Dim i As Integer，n As IntegerFor i=1 T0 20i=i+4n=n+iIf i＞10 Then Exit ForNextPrint nEnd Sub程序运行后，单击窗体，则输出结果是( )。

A．14
B．15
C．29
D．30
单项选择题

在窗体上画一个组合框，其名称为Combol，然后编写如下事件过程：Private Sub Form—Load()Combol．Text=“1”For i=1 To 10Sum=Sum+iNext iCombol．Text=SumEnd Sub程序运行后，输出结果为( )。

A．在组合框的编辑区中显示1
B．在组合框的编辑区中显示不定值
C．在组合框的编辑区中显示55
D．出错信息
单项选择题

有如下程序： Private Sub Form—Click() Dim S As String S=InputBox(“请输入一个字符串：”) For i=1 To Len(S)＼2 If Mid(S，i，1)<>Mid(S，Len(S)一i+1，1)Then Pdnt“No” Exit Sub End If Next i Print“Yes” End Sub 运行程序!单击窗体，在输入对话框中输入abcscba，则输出结果为( )。

A．abc
B．Yes
C．cba
D．No
单项选择题

有下面程序代码： Private Sub Command l Click()For k：5 To 1 Step—1X=k+x*10Next kPrint xEnd Sub程序运行后，单击命令按钮Commandl，输出结果是( )。

A．12345
B．54321
C．15
D．150
单项选择题

有下面程序代码：Private Sub Commandl—Click()a=3s=0For k=1 To 5s=s+a Mod ka=a+kNext kPrint sEnd Sub程序运行后，单击命令按钮Command1，输出结果是( )。

A．15
B．13
C．4
D．1
单项选择题

有下面程序代码： Private Sub Command1—Click() Dim sign As Integer sign=1 a=1 b=2 For k=1 To 5 c=a+sign*b a=b b=c; Print c； sign=一sign Next k End Sub程序运行后，单击命令按钮Commandl，输出结果是( )。

A．3 一1 2 —3 —1
B．3 5 8 13 21
C．一1 1 —2 —1 —1
D．3 4 5 6 7
单项选择题

有下面程序代码： Private Sub Commandl—Click() a=Array(1，2，3，4，5，6，7，8，9，1 0) n=UBound(a) For k=0 To UBound(a)／2 Print a(k)*a(n)； n=n—1 Next k End Sub程序运行后，单击命令按钮Command1，输出结果是( )。

A．2 6 12 20 30
B．2 12 20 56 90
C．30 28 24 18 10
D．10 18 24 28 30
单项选择题

编写如下程序： Private Sub Commandl—Click() Dim a(10)As String s=“123456” n=Len(s) For k=1 To n a(k)=Mid(s，k，1) Next k For i=1 To n＼2 t=a(i) a(i)=a(n一i+1) a(n—i+1)=t Next i For k=1 To 11 Print a(k)； Next k End Sub程序运行后，单击命令按钮Command1，输出结果为( )。

A．654321
B．123456
C．654123
D．123654
单项选择题

窗体上有一个名称为Commandl的命令按钮，其单击事件过程如下： Private Sub Command1—Click() Dim s As Double s=0：i=1 Do Wbile i＜6 s=s+i／(i+1) i=i+1 Loop Print s End Sub该事件过程的功能是计算一个表达式的值，该表达式是( )。

A．l+1／2+2／3+3／4+4／5
B．l+1／2+2／3+3／4+4／5+5／6
C．1／2+2／3+3／4+4／5
D．1／2+2／3+3／4+4／5+5／6
单项选择题

设有如下事件过程： Private Sub Form—Click() x=0 While x 10 x=x + 1 x=x*x Wend Print x End Sub运行程序，单击窗体，输出结果是( )。

A．16
B．19
C．20
D．25
单项选择题

vate Sub Commandl—Click()Dim m As Integer,n As Integerm=1：n=0Do While m<20n=m+nm=3*m+1LoopPrint m，nEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。

A．40 18
B．40 19
C．20 64
D．21 64
单项选择题

以下关于数组的叙述中，错误的是( )。

A．Variant类型的数组中各数组元素的类型可以不同
B．各数组元素可以是不同类型的控件
C．各数组元素通过下标进行区别
D．各数组元素具有相同的名称
单项选择题

设有如下声明语句 Option Base 1 Dim arr(2，一1 To 5)As Integer则数组arr中数组元素的个数是( )。

A．10
B．12
C．14
D．21
单项选择题

窗体上有名称为Command1的命令按钮，其事件过程如下： Option Base 1 Private Sub Command1—Click() Dim a Dim b(10)As Integer a=Array(2，4，7，3，9，6) For i=LBound(a)To UBound(a) b(i)=a(i)+i Sum=Sum+b(i) Next i Print Sum End Sub运行程序，单击命令按钮时，窗体上显示的是( )。

A．44
B．46
C．50
D．52
单项选择题

下列数组定义中错误的是( )。

A．Dim a(一5 To一3)
B．Dim a(3 To 5)
C．Dim a(一3 Tb一5)
D．Dim a(一3 Tb 3)
单项选择题

以下叙述中错误的是( )。

A．用ReDim语句可以改变数组的维数
B．用ReDim语句可以改变数组的类型
C．用ReDim语句可以改变数组每一维的大小
D．用ReDim语句可以对数组中的所有元素置0或空字符串
单项选择题

设有下面的程序段： X=InputBox(“请输入一个整数”) ReDim a(x) For k=x To 0 Step一1 a(k)=k Next k一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是( )。

A．Dim a(100)As Integer
B．Dim a()As Integer
C．Dim a As Integer
D．Dim a(0 To 100)As Integer
单项选择题

在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码： Private Sub Commandl ()_Click Dim n()As Integer Dim a，b As Integer a=InputBox(“Enter the first number”) b=InputBox(“Enter the second number”) ReDim n(a To b) For k=LBound(n)To UBound(n) n(k)=k Print n(k)； Next kEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为( )。

A．1 2
B．2 3
C．3 4
D．4 5
单项选择题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Commandl—Click() Dim arr(10) For i=6 To 10 art(i)=i一5 Next i Labell．Caption=arr(0)+arr(alT(10)／arr(6)) End Sub运行程序，单击命令按钮，则在标签中显示的是( )。

A．0
B．1
C．2
D．3
单项选择题

如果要在语句：a=Array(1，2，3，4，5) 的前面声明变量a，则正确的声明是( )。

A．Dim a(4)As Integer
B．Dim a(5)As Variant
C．Dim a(1 To 5)As Integer
D．Dim a As Variant
单项选择题

以下关于控件数组的叙述中，错误的是( )。

A．各数组元素共用相同的事件过程
B．各数组元素通过下标进行区别
C．数组可以由不同类型的控件构成
D．各数组元素具有相同的名称
单项选择题

下面关于控件数组的叙述中正确的是( )。

A．控件数组中所有控件的名称相同，但其Index属性值各不相同
B．控件数组中所有控件的名称相同，但其Value属性值各不相同
C．控件数组中每个元素都是独立的控件，因此都有各自的事件过程
D．上述都是错误的
单项选择题

下列关于控件数组的叙述中，正确的是( )。

A．控件数组可以由不同类型的控件组成
B．控件数组元素的最小下标值为1
C．在设计阶段，可以改变控件数组元素的Index属性值
D．控件数组的名字由Caption属性指定
微信扫码免费搜题