题目内容
（请给出正确答案）
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
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
安装简答题APP，拍照搜题省时又省心！
更多“在窗体上画一个命令按钮，其名称为Command1，然后编写如…”相关的问题
Private Sub Command1_Click()
Dim aS，b$，c$，k％
a=”ABCD”
b=”123456”
c=””
k=1
Do While k<=Len(a) Or k<=Len(b)
If k<=Len(a)Then
c=c&Mid(a，k，1)
End If
If k<=Len(b)Then
c=c&Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是()。
A．123456ABCD
B．ABCDl23456
C．D6C584A321
D．A182C3D456
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
Private Sub Command1_Click（）
x = -5
If Sgn（x） Then
y = Sgn（x ^ 2）
Else
y = Sgn（x）
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。
A．-5
B．25
C．1
D．-1
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
