第1题:
有如下SUB过程:
Sub s(x As Single,y As Single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
s a,b
Print a,b
End Sub
则程序运行后,单击命令按钮,输出的结果为【 】 。
第2题:
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后,输出结果为( )。
A.135
B.357
C.531
D.753
第3题:
有如下程序:
Private Sub Command1_Click()
a$= "A WORKER IS HERE"
x=Len(a$)
For i=1 To x - 1
b$=Mid$(a$, i, 3)
If b$= "WOR" Then S=S + 1
Next
Print S
End Sub
单击命令按钮,程序运行结果为( )
A.1
B.2
C.3
D.5
第4题:
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序:Public X As Integer Private Sub Commandl Click( )x=10 Call slCall s2MsgBox x End Sub Private Sub sl( )x=x+20 End Sub Private Sub s2( )Dim x As Integer x=x+20End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。
A.10
B.30
C.40
D.50
第5题:
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x+20 End Sub Private Sub s2() Dim x As Integer x=X+20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
A.10
B.30
C.40
D.50
第6题:
A、Sub plus(sum, a , b ): sum = a + b: End Sub
B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub
C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub
D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub
第7题:
以下程序用于求S=1+3+32+33+…+310的值。
Private Sub Commandl_Click()
S=1
T=1
ForI=1 To 10
T=______
S=S+T
NextI
Print"S=";S
End Sub
第8题:
(8)下列这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。Private Sub numCount() Dim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x=";xEnd Sub
第9题:
有如下程序: Private Sub Command1_Click() as="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮,程序运行结果为
A.1
B.2
C.3
D.5
第10题:
编写如下事件过程: Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i>= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后,单击窗体,则窗体上显示的内容是
A.rehcaet
B.tahreee
C.themee
D.eerthea