题目内容
（请给出正确答案）
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为()。
A．54321
B．123
C．12345
D．345
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画一个名为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Cl”相关的问题
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1 Click（） Dim a(10)As Integer Fork=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 运行程序，单击命令按钮，输出结果是（）。
A.18
B.12
C.8
D.6
（30）在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，其输出结果是（）。
A）1234
B）12
C）34
D）4321
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1，2，3，4，5) j = 1 For i=5 To 1 Step-1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为()。
A．54321
B．123
C．12345
D．345
在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form. 2的窗体，则在两个文本框中应分别输入______。
A．a 1
B．a a
C．1 a
D．1 1
（11）在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= 【12】
Next i
Print Sum
End Sub
Function fun(t As Integer)As Long
p=1
For i=1 To t
p=p*i
Next i
【13】
End Function
以上程序的功能是，计算 1!+2!+3!+？+n!，其中 n 从键盘输入，请填空。
在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下：
Sub Command1_Click()
Dim student As studtype
Dim record_no As Integer
record_no=1
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
_______
Put # 1,record_no,student
Close # 1
End Sub
要求在c: \的随机文件student.dat写入一条记录。应在程序中空行处填以下哪条语句使该功能完整
A．Open "c: \student.dat"For Input As #1 len(student)
B．Open "c: \student.dat"For random As #1 len(student)
C．Open "c: \student.dat"For Output As #1 len(student)
D．Open "c: \student.dat"For Append As #1 len(student)
在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A．12
B．13
C．14
D．15
在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_ Click() Dim arr(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后，单击命令按钮，输出结果为______。
A．3 4 6 7
B．7 8 10 11
C．1 2 4 5
D．8 9 12 13
A．abodefg
B．不显示任何信息
C．ABCDEFG
D．出错
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
