Private Sub Command1 Click()
Text3=Text1+Text2
End Sub
Private Sub Forml Load()
Text1=""
Text2=""
Text3=""
End Sub
打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。
第1题
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:
Private Sub Command_Click()
Dim x AS Integer, y As Integer, z As Integer
x=5:y=7:z=0
Me!Textl=””
Call pl(x,y,z)
Me!Text1=z
End Sub
Sub pl(a As Integer,b As Integer,c As Integer)
C=a+b
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的内容是【 】 。
第2题
运行下列程序,窗体中的显示结果是:x= 。
Option Compare Database
Dim x As Integer
Private Sub Form_Load()
x=3
End Sub
Private Sub Commandll_ Click()
Static a As Integer
Dim b As Integer
b=x^2
funl x,b
funl x,b
MsgBox〝x=〞&x
End Sub
Sub funl(ByRef y As Integer,ByVal z As nteger)
y=y+z
z=y-z
End Sub
第3题
ntVar="2"+"Y'之后,变量intVar的值分别是【 】。
第8题
在窗体上添加十个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
sum=0
For i=3 To 7
sum=i+2
Next i
MsgBox sum+i
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是______。
第9题
执行下面的程序,消息框的输出结果是 【 】。
Option Basel
Private Sub Commandl Click()
Dim a(10),P(3)As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
P(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
MsgBox k
End sub
第10题
执行下面的程序,消息框里显示的结果是 【 】 。
Private Sub Form_Click()
Dim Str As String, K As Integer
Str="ab"
For k=Len(Str) TO 1 Step-1
Str=Str & Chr(Asc(Mid(Str,k,1))+k)
Next k
MsgBox Str
End Sub
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!