网友您好， 请在下方输入框内输入要搜索的题目：

题目内容 （请给出正确答案）

在窗体中添加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)和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=SumB．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=SumC．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=SumD．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 ” 相关考题
考题 在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：PrivateSubCommand1_Click()a=UCase(Text1.Text)+Left(Text2.Text,2)PrintaEndSubPrivateSubForm_Load()Text1.Text=AbText2.Text=123456EndSub程序运行后，单击命令按钮，输出结果为( )A.ab12B.AB12C.AB56D.ab56
查看答案
考题 在窗体上添加一个命令按钮(其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．4321B．1234C．34D．12
查看答案
考题 在窗体中添加一个命令按钮(其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．2B．4C．8D．48
查看答案
考题 在窗体(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．444B．321123C．123321D．132231
查看答案
考题 在窗体中添加一个命令按钮(其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．AB．BC．CD．D
查看答案
考题 在窗体中添加一个命令按钮(其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．22B．24C．26D．28
查看答案
考题 在窗体中添加一个命令按钮(其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．22B．24C．26D．28
查看答案
考题 在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。A10和0B2和100C3和50D4和168
查看答案
考题 在窗体上画两个文本框，（其Name 属性分别为Text1和Text2）和一个命令按纽（其Name属性为Command1），然后编写如下事件过程（） A1和0B2和72C3和50D4和168
查看答案
考题 在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
查看答案
热门标签
最新试卷