题目内容
（请给出正确答案）
当发生Command1_C1ick事件后，以下程序的输出结果是 Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer For i＝9 To 0 Step -1 a(i)=10-i Next i Print a(2);a(5);a(8) End Sub
A．2 5 8
B．7 4 1
C．8 5 2
D．3 6 9
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“当发生Command1_C1ick事件后，以下程序的输出结果是Private Sub Command1_Click（)Dim i As Intege”相关的问题
A．Private Sub Command1_C1ick() Command2.Visible=Tme Command3.Visible=False EndSub
B．Private Sub Command1 Click() Command2.Enabled=Tme Command3.Enabled=False EndSub
C．Private Sub Command1_C1ick() Command2.Enabled=True Command3.Visible=False End Sub
D．Private Sub Command1_Click() Command2.Visible=True Command3.Enabled=False End Sub
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_C1ick()
Dim a(10,10)
For m=2 T0 4
For n=4 TO 5
A (m,n)=m*n
Next n
Next m
MsgBox a(2,4)+a(3,5)+a(4,5)
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果是()。
A．23
B．33
C．43
D．53
A．Private Sub Command1_C1ick() Command2.Visible=True Command3.Visible=False End Sub
B．Private Sub Commandl_C1ick() Command2.Enabled=True Command3.Enabled=False End Sub
C．Private Sub Conunand1_C1ick() Command2.Enabled=True Command3.Visible=False End Sub
D．Private Sub Command1_Click() Command2.Visible=True Command3.Enabled=False End Sub
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。
A．6
B．7
C．8
D．9
设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是
A．Private Sub Command1_Click() Dim B As Books Open”c：\PerSon．txt"For Output As #1B.Name=InpuB。x(“输入姓名”)B.TelNuln=InputBox(“输入电话号码”) Wdte#1．B.Name，B.TelNum Close#1 End Sub
B．PIivate Sub Command1_C1ick() Dim B As BOOks OPen”c：\Person．txt"FOr lnput As #1 B.Name：InputBox(“输人姓名”) B.TelNum=InputBox(“输入电话号码”) Print#1，B.Name，B.TelNum C1ose#1 End Sub
C．Private Sub Command1_Chck() Dim B As Books Open”c：\Person．ht”For Output As#1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write#1，B Close#1 End Sub
D．Pnvate Sub Command1_Click() Open”c：\Person.txt"For lnput As #1 Name=InputBox(“输入姓名”) TalNum=InputBox(“输入电话号码”) Print，Name，TelNum Close#1 End Sub
设在工程中有一个标准模块，其中定义了如下类型： Type stutype ino As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为Connnand1的命令按钮，要求当执行事件过程Command1_Click时，在c:\的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是()。
A．Sub Command1_C1ick() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open" c:\student.dat" For input As # 1 len=len(student) Put # 1,record_
B．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 Open"c:\student.dat" For random As #1 len=len(student) Put #1,record_n
C．Sub Command1_Click() Dim student As studtype Dim record_no As integer record_no=1 With student .ino=12 .stmame="smith" .strsex="男" .smark=89 End With Open"c:\student.dat" For random As #1 len=len(student) Write #1,record_n
D．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 Open"c:\student.dat"For output As #1 len=len(student) Put #1,record_no,
在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_C1ick()
Dim M (10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Msgbox M(2+M(x))
End Sub
程序运行后，单击命令按钮，消息框显示的是【 】。
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
