几道VB的题,急急急!下午就要考试了~
1、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zA...
1、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.text=“”
Call P1(x,y,z)
Text1.Text=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是
A) 0 B) 12
C) Str(z) D) 没有显示
2,有如下一段程序:
a="123": b="456"
a=a+b : b=left(a,3) : a=right(a,3)
则运行后,a的值是
A)123
B)"123"
C)456
D)"456"
3、设有如下程序:
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是
A) 4 3 2 1 B) 5 4 3 2
C) 6 5 4 3 D) 7 6 5 4
4、函数Len("hello!"+space(2)+mid("shanghai",6))的值是:_________。
A)14 B)11 C)10 D)9
设有语句
x=InputBox(“输入数值”,“0”,“示例”)
你们难道没有发现第一题的答案是5,但是选项里面没有5这个答案么~!?
所以我才上来问你们的阿。。。 展开
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.text=“”
Call P1(x,y,z)
Text1.Text=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是
A) 0 B) 12
C) Str(z) D) 没有显示
2,有如下一段程序:
a="123": b="456"
a=a+b : b=left(a,3) : a=right(a,3)
则运行后,a的值是
A)123
B)"123"
C)456
D)"456"
3、设有如下程序:
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是
A) 4 3 2 1 B) 5 4 3 2
C) 6 5 4 3 D) 7 6 5 4
4、函数Len("hello!"+space(2)+mid("shanghai",6))的值是:_________。
A)14 B)11 C)10 D)9
设有语句
x=InputBox(“输入数值”,“0”,“示例”)
你们难道没有发现第一题的答案是5,但是选项里面没有5这个答案么~!?
所以我才上来问你们的阿。。。 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询