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

在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1),然后编写如下代

题目

在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1)，然后编写如下代码： Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer Dim i, j, Sum AsInteger Sum＝0 For i=1 To 10 Forj=1 To 10 arrayl(i, j)=i+j Nextj Next i End Sub 此程序的功能是求数组arrayl主对角线元素的和，并把结果显示在标签中，为实现此功能，省略号处的程序段应该是 ( )

A．For i=1 To 10 For j=1 To 10 If i=j Then Sum = Sum+ arrayl (i,j) End If Next j Next i Labelt. Caption=Sum

B．For i=l TO 10 Forj=1 To 10 If i= =j Then Sum=Sum+array1 (i,j) End If Next j Next i Labell. Caption=Sum

C．For i=1 To 10 For j=1 To l0 If i=j Then Sum=Sum+arrayl (i,j) End If Next i Next j Lahell. Caption=Sum

D．For i=1 To 10 For j=1 To l0 If i=j Then Sum=arrayl (i,j) End If Next j Next i Labell. Caption=Sum

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体中添加一个命令按钮(其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。

第2题：

在窗体中添加一个命令按钮(其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之间的数。

第3题：

在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：

PrivateSubCommand1_Click()

a=UCase(Text1.Text)+Left(Text2.Text,2)

Printa

EndSub

PrivateSubForm_Load()

Text1.Text="Ab"

Text2.Text="123456"

EndSub

程序运行后，单击命令按钮，输出结果为( )

A.ab12

B.AB12

C.AB56

D.ab56


正确答案：B

第4题：

在窗体上画两个文本框，（其Name 属性分别为Text1和Text2）和一个命令按纽（其Name属性为Command1），然后编写如下事件过程（）

A1和0

B2和72

C3和50

D4和168


B
略

第5题：

在窗体中添加一个命令按钮(其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。

第6题：

在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程： Private Sub Commandl_Click() a=Text1.Text+Text2.Text Printa End Sub Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub 程序运行后，在第1个文本

A．444

B．321123

C．123321

D．132231


正确答案：C

第7题：

在窗体中添加一个命令按钮(其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。

第8题：

在窗体上添加一个命令按钮(其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。

第9题：

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

A10和0

B2和100

C3和50

D4和168


B
略

第10题：

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

相关内容