单项选择题

运行如下程序
Private Sub Command1_Click()
Dim a(5, 5)As Integer
For i = 1 To 5
For j = 1 To 4
a(i, j)=i * 2+j
If a(i, j)/7 =a(i, j) \7 Then
n=n+1
End If
Next j
Next
Print n
End Sub
n的值是( )。

A) 2
B) 3
C) 4
D) 5
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim p As Integer p=m(1) +m(2) +m(3) Print p End Sub Private Function m(n As Integer)As Integer Static s As Integer For i = 1 To n s=s+1 Next m=s End Function 运行程序，第2次单击命令按钮Command1时的输出结果为( )。
A) 6
B) 10
C) 16
D) 28
单项选择题
设在工程文件中有一个标准模块，其中定义了如下记录类型 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 #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
B. Name = InputBox( "输入姓名" )
B. TelNum = InputBox( "输入电话号码" )
Write #1, B
Close #1
End Sub
D) Private Sub Command1_Click()
Open "c: \Person. txt" For Input As #1
Name = InputBox( "输入姓名" )
TelNum = InputBox( "输入电话号码" )
Print #1, Name, TelNum
Close #1
End Sub
相关试题