[单项选择]在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 ______。
Private Function fun3(x As Integer)
Static t As Integer
t = t + 3
t = t + x
fun3 = t
End Function
Private Sub Commandl Click（　）
Dim a As Integer, b As Integer, c As Integer
a = 2 : b = 1
c = fun3 (a)
c = fun3 (b)
Print c
End Sub
A. 6
B. 8
C. 9
D. 12

更多"在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 _____"的相关试题:

[单项选择]在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。
Private Function fun(x As Integer，y As Integer)
Static m As Integer
Static i As Integer
i=i+2
i=i+m+1
m=i+x+y
fun=m
End Function
Private Sub Command1_Click（　）
Dim j As Integer，m As Integer,k As Integer
j=4：m=1
k=fun(j,m)
Print k；
k=fun (j，m)
Print k
End Sub
A. 8 18
B. 7 17
C. 7 19
D. 8 19

查看答案

[单项选择]在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。
Private Sub fun3(x As Integer)
Static a As Integer
Dim b As Integer
a=a+3：b=b+3
a=a+x：b=b+x
Printa；b
End Sub
Private Sub Command1_Click（　）
Dim k As Integer，m As Integer,n As Integer
k=2：m=1
Call fun3(k)
Call fun3(m)
End Sub
A. 5 5
B. 5 5
C. 5 5
D. 5 5

查看答案

[单项选择]在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为，( )。
Private Sub fun(ByVal x As Integer,ByVal y As Integer,Byval z As Integer)
z=x^3*y^3
End Sub
Private Sub Command1_Click（　）
Dim m As Integer
Call fun(2，3，m)
Print m
End Sub
A. 216
B. 0
C. 35
D. 程序不能运行

查看答案

[单项选择]在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 ______。 Private Function fun3(x As Integer) Static t As Integer t = t + 3 t = t + x fun3 = t End Function Private Sub Commandl Click（　） Dim a As Integer, b As Integer, c As Integer a = 2 : b = 1 c = fun3 (a) c = fun3 (b) Print c End Sub
A. 6
B. 8
C. 9
D. 12

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open "d:/vb/tt. txt" For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step - 1 Seek # 1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close $1 End Sub 假设文件d:/vb/tt. txt 的内容为 Hello eveybody! 那么程序运行后，单击命令按钮，其输出结果为 ______。
A. True
B. False
C. 0
D. Null

查看答案

[填空题]在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
R_ID As Integer
R_Name As String * 20
Ene Type
Private Sub Commandl_Click( )
Dim M _Sise, N_Char, M_Char
Open" c: /file. txt" For Input As #1
M_sise=LOF(1)
For N_Char = M_Sise To 1 Step - 1
Seek#1, Next Char
M_char = Input(1 ,#1)
Next
Print EOF(1)
Close#1
End Sub
程序运行后，单击命令按钮，其输出结果为【15】。

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，b) End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 5
D. 8

查看答案

我来回答:

提交