写出下面程序运行时单击窗体的输出结果。Private Sub f(a%, b%)a = a + bb = a - bEnd SubPriva
写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
a = a + b
b = a - b
End Sub
Private Sub Form_Click()
Dim a%, b%
a = 23
b = 12
Call f(a, b)
Print "a=" & a; ",b=" & b
End Sub
写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
a = a + b
b = a - b
End Sub
Private Sub Form_Click()
Dim a%, b%
a = 23
b = 12
Call f(a, b)
Print "a=" & a; ",b=" & b
End Sub
在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果为()。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i,"*") Print x Next i End Sub Private Sub Command1_Click() p1(3) End Sub
A.*** ** *
B.* ** ***
C.* * *
D.******
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
在窗体中添加一个名称为Com1的命令按钮,然后编写如下程序:
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Com1_Click()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
End sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为()。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjr2.vbp,窗体文件名保存为sjt2.frm。
有如下的函数过程: Function Func2(a As Integer, b As Integer)'As Integer Static m As Integer, i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim p As Integer, k As Integer, m As Integer k=4 m=1 p=Fune2(k, m) Print k; m p = Func2(k, m) Print k; m End Sub 程序运行后,单击命令按钮,输出结果为()。
A.3 6<CR>3 6
B.3 6<CR>3 11
C.3 11<CR>3 6
D.3 11<CR>3 11
有如下的函数过程: Function Func2(a As Integer,b As Integer) 'As Integer Static m As Integer,i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim p AS Integer,k As Integer,m As Integer k=4 m=1 p=Func2(k,m) Print k; m p=Func2(k,m) Print k; m End Sub 程序运行后,单击命令按钮,输出结果为()。
A.3 6<CR>3 6
B.3 6<CR>3 11
C.3 11<CR>3 6
D.3 11<CR>3 11
在窗体上画一个命令按钮,其名称为Command1。程序运行后,单击命令按钮,输出结果是()。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i,"*")
Print x
Next i
End Sub
Private Sub Command1_Click()
p1(3)
End SubA)
*B)C)D)
A.*** ** *
B.* ** ****
C.* * *
D.******
在窗体中添加一个命令按钮,名称为Commandl,然后编写如下程序:
窗体打开运行后,单击命令按钮,则消息框的输出结果为__________。
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Dim k As Integer
Private Sub Form_Load()
k=15
End Sub
Private Sub Command1_Click()
Dim b As Integer
b=b+k
k=k+1
Print k,b
End Sub
程序运行时,两次单击命令按钮Command1后,在窗体上输出的第二行是()。
A.17 31
B.15 31
在窗体下添加一个命令按钮(名为CommandI),然后编写如下程序:打开窗体运行后,单击命令按钮,消息框的输出结果为()。
A. 10
B. 20
C. T
D. F
在窗体上画一个命令按钮,然后编写如下程序。运行后,单击命令按钮,输出结果为 ()。
Private Sub Command4_Click()
Dima As Integer,bASInteger
a=1
b=2
PrintN(a,b)
End Sub
Function N(X As Integer,yAsInteger)AsInteger
N=IIf(x>y,x,y)
End Funcfion