题目内容
（请给出正确答案）
在窗体上画一个名称为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_Click（）
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
安装简答题APP，拍照搜题省时又省心！
更多“在窗体上画一个名称为Command1的命令按钮，然后编写如下…”相关的问题
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3$amp;Next
Print n
End Sub
程序运行后,如果单击命令按钮,则窗体上显示的内容是
A．15
B．18
C．21
D．24
A．1 3.4 5.8
B．1 3 5
C．1 4 7
D．无数据输出
Private Sub Command1_Click（）
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2$amp;a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，输出结果是（）。
A．0
B．2
C．3
D．4
Private Sub Command1_Click（）
Dim a1（4, 4）, a2（4, 4）
For i = 1 To 4
For j = 1 To 4
a1（i, j） = i + j
a2（i, j） = a1（i, j） + i + j
Next j
Next i
Print a1（3, 3）; a2（3, 3）
End Sub
程序运行后，单击命令按钮，在窗体上输出的是（）。
A．6 6
B．10 5
C．7 21
D．6 12
Option Base 1
Private Sub Form_Click（）
Dim arr, Sum
Sum = 0
arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）
For i = 1 To 10
If arr（i） / 3 = arr（i） \ 3 Then
Sum = Sum + arr（i）
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为（）。
A．25
B．26
C．27
D．28
Private Sub Command1_Click（）
Dim a（5） As String
For i = 1 To 5
a（i） = Chr（Asc（"A"） + （i - 1））
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后，单击命令按钮，输出结果是（）。
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
Private Sub Form_Load（）
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp（Button As Integer, _
Shift As Integer, X As Single, Y As Single）
Print "程序设计"
End Sub
Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计
A．显示当前驱动器或指定驱动器上的某目录下的文件名
B．显示当前驱动器或指定驱动器上的目录结构
C．显示根目录下的文件名
D．显示指定路径下的文件
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是（）。
A．Private Sub Command1_Click（）
Dim B As Books
Open "c:\Person.txt" For Output As #1
B．Name = InputBox（"输入姓名"）
B．TelNum = InputBox（"输入电话号码"）
Write #1, B．Name, B．TelNum
Close #1
End Sub
B．Private Sub Command1_Click（）
Dim B As Books
Open "c:\Person.txt" For Input As #1
B．Name = InputBox（"输入姓名"）
B．TelNum = InputBox（"输入电话号码"）
Print #1, B．Name, B．TelNum
Close #1
End Sub
C．Private Sub Command1_Click（）
Dim B As Books
Open "c:\Person.txt" For Output As #1
Name = InputBox（"输入姓名"）
TelNum = InputBox（"输入电话号码"）
Write #1, B
Close #1
End Sub
D．Private Sub Command1_Click（）
Dim B As Book
Open "c:\Person.txt" For Input As #1
Name = InputBox（"输入姓名"）
TelNum = InputBox（"输入电话号码"）
Print #1, B．Name, B．TelNum
Close #1
End Sub
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
