[单选题]假定有如下的Sub过程:
Sub fun(x As Single,y As Single)
T=X
X=t\y
Y=t Mod y
End Sub
在窗体上画一个命令按钮和两个文本框(其Name属性分别为Txt1和Txt2),然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As Single,b As Single
A=CInt(Txt1.Text)
B=CInt(Txt2.Text)
Call fun(a,b)
Print
A,b
End Sub
程序运行时在两个文本框中输入5和6,单击命令按钮,输出结果为().
A.5 .
B.0 .
C.1 .
D.1 .

更多"[单选题]假定有如下的Sub过程:Sub fun(x As Singl"的相关试题:

[单选题]题（1.0分）
假定有如下的Sub过程.
Sub fun(x As Single,y As Single)
T=X
X=t/y
Y=t Mod y
End Sub
在窗体上画一个命令按钮,然后编写如下事件过程.
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
A=6
B=4
Fun
A,b
Print
A,b
End Sub
程序运行后,单击命令按钮,输出结果为().
A.5 4
B.1 1
C.1.25 4
D.1.5 2

查看答案

[单选题]题（1.0分）
假定有如下的Sub过程.
Sub S(x As Single,y As Single)
T=x
X=t*y
Y=t/y
End Sub
在窗体上画一个命令按钮,,然后编写如下事件过程.
Private Sub Command1_Click()
Dim a As Single
Dim b As single
A=5
B=4
S
A,b
Print a;b
End Sub
程序运行后,单击命令按钮,输出结果为().
A.5 4
B.20 1.25
C.1.25 4
D.1.25 1

查看答案

[单选题]编写如下事件过程:
Private Sub form_Click()
Dim x
X = 0
Do While x<10
X = x + 3
Loop
MsgBox x
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.0
B.3
C.10
D.12

查看答案

[单选题]窗体上有一个命令按钮Command1,编写如下事件过程:
Private Sub Command1_Click()
X = InputBox("x=")
Y = InputBox("y=")
Print x + y
End Sub
运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是().
A.444
B.123321
C.123+321
D.出错信息

查看答案

[单选题]编写如下事件过程:
Private Sub Form_Click()
Score=Int(Rnd*10)+80
Select Case score
Case Is< 60
A$="F"
Case 60 To 69
A$="D"
Case 70 To 79
A$="C"
Case 80 To 89
A$="B"
Case Else
A$="A"
End Select
Print a$
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.A
B.B
C.C
D.D

查看答案

[单选题]编写如下事件过程:
Private Sub form_Click()
S$="abcdefabcdefabcdef"
K=InStr(S$,"c")
DO While k > 0
N = n + 1
S$=Mid(S$,k+1)
K=InStr(S$,"c")
Loop
Print n
End Sub
程序运行后,单击窗体,则其上显示的内容是().
A.1
B.2
C.3
D.4

查看答案

[单选题]编写如下事件过程:
Private Sub form_Click()
For i=1 To 4
T = t * 10 + i
S = S + t
Next i
Print S
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.1234
B.4321
C.1370
D.4444

查看答案

[判断题]
事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是
事件过程由控件属性决定,而Sub过程是由户自定义.
A.正确
B.错误

查看答案

[单选题]第270题（1.0分）
编写如下事件过程.
Private Sub form_Click()
X$="123".y$="abc"
N=Len(x)
For i=1 To n
Print Mid(x$,n+1-i,1)+Mid(y$,i,1);
Next i
Print
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.a1b2c3
B.a3b2c1
C.3a2b1c
D.1c2b3a

查看答案

[单选题]编写如下事件过程:
Private Sub form_Click()
X$="123":y$="abc"
N=Len(x)
For i=1 To n
Print Mid(x$,n+1-i,1)+Mid(y$,i,1);
Next i
Print
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.a1b2c3
B.a3b2c1
C.3a2b1c
D.1c2b3a

查看答案

[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() S=.Do s=(s+1)*(s+2) number=number+.Loop Until s>=3. Print number,s End Sub运行后,输出的结果是().
A.. 1
B.3. 30
C.. 30
D..182

查看答案

[单选题]第203题（1.0分）
编写如下事件过程.
Private Sub form_Click()
For i=1 To 4
T = t * 10 + i
S = S + t
Next i
Print S
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.1234
B.4321
C.1370
D.4444

查看答案

[单选题]第286题（1.0分）
编写如下事件过程.
Private Sub form_Click()
Dim x
X = 0
Do While x<10
X = x + 3
Loop
MsgBox x
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.0
B.3
C.10
D.12

查看答案

我来回答:

提交