![](https://lstatic.shangxueba.com/jiandati/h5/images/m_q_title.png)
以下command1_Click()事件过程,连续执行3次以后,i和j的值分别为()。 Private Sub Command1_Click() Dim i As Integer Static j As Integer i=i+1: j=j+1 Print i,j End Sub
A.3 3
B.1 3
C.1 1
D.3 1
A.3 3
B.1 3
C.1 1
D.3 1
执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click() Dim a a=Array("a","b","c","d","e","f","g") Print a(1); a(3); a(5) End Sub
A.abc
B.bdf
C.ace
D.出错
在窗体中画一个命令按钮,然后编写以下事件过程: Private Sub Command1_Click() For X=5 To 5 Step-6 Next X Print X End Sub 程序运行后,输出的结果是
A.2.2
B.2.5
C.2.9
D.-1
当发生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的Click事件过程,在窗体上显示 Option Base 0 Private Sub Command1_Click() Dim a a = Array("a", "b", "c", "d", "e", "f", "g") Print a(1); a(3); a(5) End Sub
A.abc
B.bdf
C.ace
D.出错
在窗体中画一个命令按钮,然后编写以下事件过程: Private Sub Command1_Click() For j=1 To 3 Print Tab(3(j);11((2(j-1); Next j Print End Sub 程序的执行结果为
A.11
B.33
C.11 33
D.11 33 55
A.Private Sub Command1_Click() Command2.Visible=True Command3.Visible=False End Sub
B.Private Sub Command1_Click() Command2.Enabled=True Command3.Enabled=False End Sub
C.Private Sub Command1_Click() Command2.Enabled=True Command3.Visible=False End Sub
D.Private Sub Command1_Click() Command2.Visible=True Command3.Enabled=False End Sub
在窗体中画一个命令按钮,然后编写以下事件过程: Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x = 3 For k=1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,输出结果是
A.7
B.15
C.157
D.538
在窗体上画一个名为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)
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!