未分类题

单击命令按钮时,下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x,y) Print x;y End Sub
A.12 34
B.2 34
C.2 3
D.12 3

A.12
B.2
C.2
D.12

【参考答案】

B
解析:过程中传递参数的方式有两种:
一种是按地址传递参数,这种形式使过程用变量的内存地址去访问实际变......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

未分类题
设在工程中有一个标准模块,其中定义了如下记录类型 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 SubB.Private Sub Command1_Click() Dim B As Books Open'c: Person.txt'For lnput As #1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Print#1,B.Name,B.TeINum Close #1 End SubC.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 SubD.Private Sub Command1_Click() Dim B As Books Open'c: Person.txt'For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1,Name,TelNum Close #1 End Sub
A.txt中写入一条记录。下列能够完成该操作的事件过程是
B.Private
C.txt'For
D.Name=InputBox(“输入姓名”)
E.TelNum=InputBox(“输入电话号码”)
F.TelNum
G.Private
H.txt'For
I.Name=InputBox(“输入姓名”)
J.TelNum=InputBox(“输入电话号码”)
K.Name,B.TeINum
L.Private
M.txt'For
N.Name=InputBox(“输入姓名”)
O.TelNum=InputBox(“输入电话号码”)
P.Private
Q.txt'For