违法和不良信息举报 联系客服
免费注册 登录

在窗体中添加一个命令按钮(其Name属性为Command1),然后编写如下代码:Option Base 1PrivateSubCom

题目

在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1 Click() Dim a a=Array(2， 4， 6， 8) j=1 For i = 4 To 1 Step -3 s=s+a(i) (j j = j ( 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是

A．22

B．24

C．26

D．28

参考答案和解析
正确答案：D
解析：根据题意，For循环在i为4和1时分别执行1次For循环语句，第1次执行时j值为1，a(i)为8；第2次执行时，j值为10，a(i)值为2，故最终用Print输出s时，s的值为20加8，答案为D。注意，本题事先声明了OptionBase1，故数组a的下标下界为1。
如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
略

第2题：

在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

A10和0

B2和100

C3和50

D4和168


B
略

第3题：

（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：

Private Sub Command1_Click( )

Static b As Integer

b=b+1

End Sub

窗体打开运行后，三次单击命令按钮后，变量 b 的值是 【 11 】 。


正确答案：

第4题：

在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-3 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是

A．22

B．24

C．26

D．28


正确答案：D
解析：根据题意，For循环在i为4和1时分别执行1次For循环语句，第1次执行时j值为1，a(㈠为8；第2次执行时，j值为10，a(i)值为2，故最终用Print输出。时，s的值为20加8。注意，本题事先声明了OptionBasel，故数组s的下标下界为1。

第5题：

在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Pfivme Sub Command1_Click( ) score=Iht(Rnd*10)+70 Select Case score Case ls＜60 a＄=“F” Case 60 T069 a＄=“D” Case 70 To 79 a＄=“C” Case 80 To 89 a＄=“B” Case Else a＄=“A” End Select Print aS End Sub 程序运行后，单击命令按钮，输出结果是

A．A

B．B

C．C

D．D


正确答案：C
解析：Int(Rnd,10)+70表示一个大于等于70的控数，因为Rnd随机产生0至1之间的数。

第6题：

在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-2 s＝s+a(i)*j j=j*10 Next i Print 3 End Sub 运行上面的程序，单击命令按钮，其输出结果是 ( )

A．2

B．4

C．8

D．48


正确答案：D
解析：由于语句Option Base 1的存在，则数组下标的下界是1。Array函数是用来给数组元素赋初值的，它要求数组必须是一个变体变量名。题中语句
  Dim a
  a=Array(2，4，6，8)
  是将2赋给a(1)，将4赋给a(2)，将6赋给。a(3)，将8赋给a(4)。
  分析For循环语句，可知循环一共执行了两次。
  i＝4时，执行语句s＝s+a(i)*j相当于s =0+a(4)*1(s未被初始化，则默认为0)得s的值为8。接着执行语句j＝j*10相当于j=1 *10，得j的值为10。
  i＝2时，执行语句s＝s+a(i)*j相当于s＝8+a(2)*10(此次循环中的s和j均为上次循环所得结果值)得s的值为48。然后再执行语句j=j*l0。
  最后执行的语句Prints，故最后的输出结果为s的值48。

第7题：

在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮，其输出结果是

A．4321

B．1234

C．34

D．12


正确答案：A
解析：数组名a为变体型变量，用Array函数对其进行初始化，得到a(1)=4、a(2)=3、a(3)=2和a(4)=1。变量j在循环中每次计算后扩大10倍，变量s的计算过程为s=1×1+2×10+3×100+4×1000=4321。

第8题：

在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。

A．11

B．a=11

C．0

D．False


正确答案：D
解析：程序中“MsgBox a=b＋c”表示在消息框中显示a与b＋c的值比较的结果，由“a=0:b=5:c=6”可知，0! =11，所以消息框的输出结果为FALSE。

第9题：

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：


正确答案：

36 

相关内容