题目内容
（请给出正确答案）
在窗体中添加一个命令按钮(其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
如果结果不匹配，请 联系老师 获取答案
更多“在窗体中添加一个命令按钮（其Name属性为Command1)…”相关的问题
在窗体中添加一个命令按钮(其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
在窗体(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 程序运行后，在第一个文本框(
A．165
B．8778
C．7788
D．7887
在窗体中添加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
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer，arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n)；Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。
A．11 3
B．3 11
C．13 3
D．3 13
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) s = 1234 j = 1000 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print S End Sub运行上面的程序，单击命令按钮，其输出结果是______。
A．4321
B．2468
C．34
D．12
在窗体(Name属性为form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮 (Name属性为Command1)，然后编写如下两个事件过程，该过程的运行结果为______。Private Sub Command1_Click() a = Text1, Taxt + Text2, Text Print aEnd SubPrivate Sub form_ Load() Text1.Text = "123" Text2.Text = "321"End Sub
A．444
B．321123
C．123321
D．132231
在窗体上画两个文本框(Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下事件过程：
A. 1和0
B. 2和72
C. 3和50
D. 4和168
.jpg)
其中“文件写入”命令按钮事件过程用来建立一个通讯录，以随机存取方式保存到文件out57.txt中；而“文件读出”命令按钮事件过程用来读出文件out57.txt中的每个记录，并在窗体上显示出来。
通讯录中的每个记录由3个字段组成，结构如下：
姓名(Name) 电话(Tel) 邮政编码(Pos)
Abcd (010)51688765 100065
┆ ┆ ┆
各字段的类型和长度为：
姓名(Name)： 字符串 15
电话(Tel)： 字符串 15
邮政编码(Pos) 长整型(Long)
程序运行后，如果单击“文件写入”命令按钮，则可以随机存取方式打开文件out57.txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y” (或“y”)则输入新记录，回答“N” (或“n”)则停止输入；如果单击“文件读出”命令按钮，则可以随机存取方式打开文件out57.txt，读出文件中的全部记录，并在窗体上显示出来。该程序不完整，请把它补充完整。
要求：
(1)去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。
(2)文件out57.txt中已有3个记录，请运行程序，单击“文件写入”命令按钮，向文件out57.txt中添加以下2个记录(全部采用西文方式)，如下图所示。
1.jpg)
Abcd (010)51688765 100065
Efgh (010)51684321 100044
(3)运行程序，单击“文件读出”命令按钮，在窗体上显示全部记录。
(4)用原来的文件名保存工程文件和窗体文件。
在名称为Forml的窗体上添加一个名称为Com-mandl的命令按钮（如图1所示），然后通过属性窗口设置窗
体和命令按钮的属性，实现如下功能：
①窗体标题为“设置按钮属性”；
②命令按钮的标题为“等级考试”；
③程序运行后，命令按钮不可见；
④命令按钮的标题字号、字体用三号常规黑体显示。
程序的运行情况如图2所示。
要求：不编写任何代码。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
①设置适当属性，使对话框的标题为“打开文件”；
②设置适当属性，使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”（如图所示），默认的类型是“所有文件”；
③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sitl．frm。
