单项选择题

单击按钮时，以下列程序运行后的输出结果是
Private Sub proc1(x As Integer，y As Integer，z As Integer)
x=3z
y=2z
z=X+y
End Sub
Private Sub Command1_Click( )
Dim x As Integer，y As Integer，z As Integer
x=1：y=2：z=3
Call proc1(x，x，2)
Print x；x；z
Call proc1(x，y，y)
Print x；y；y
End Sub

A．6 6 12
6 6 10
B．9 5 10
5 10 10
C．9 6 12
9 10 15
D．9 5 10
5 4 10

<上一题目录下一题>

热门试题

单项选择题

在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Com- mand1)，然后编写如下程序： Private Sub Command1_Click( ) x=0 Do While x＜20 x=(x+1) *(x+2) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是

A．1和0
B．2和12
C．3和182
D．3和12

单项选择题

设在工程中有一个标准模块，其中定义了如下记录类型： TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为Command1的命令按钮，假设d： F1.dat文件中含有5个用户自定义类型的记录。要求当执行事件过程Command1_Click时，随机访问该文件，并把文件中的第4条记录读出。下列能够完成该操作的程序段是

A．Private Sub Command1_Click( )
Dim MyRecord As Record，Position
Open"d：\F1.dat"For Random As#1 Len=Len(My Record)
Position=4
Get#1，Position，Myrecord
Close #1
End Sub
B．Private Sub Command1_Click( )
Dim MyRecord As Record，Position
Open"d：\F1.dat"For Random As #1 Len=Len(MyRecord)
Position=4
Put #1，Position，MyRecord
Close#1
End Sub
C．Private Sub Command1_Click( )
Dim MyRecord As Record，Position
Open"d：\F1.dar"For OutPut As #1 Len=Len(My Record)
Position=4
Get #1，Position，MyRecord
Close#1
End Sub
D．Private Sub Command1_Click( )
Dim MyRecord As record，Position
Open"d：\F1.dat"For lnput As #1 Len=Len(MyRecord)
Position=4
Get #1，Position，MyRecord
Close#1
End Sub

相关试题