VBA部分典型例题分析: 1.在窗体上添加一个命令按钮Command0,然后编写
VBA部分典型例题分析:1.在窗体上添加一个命令按钮Command0,然后编写如下事件过程:PrivateSubCommand0_Click()DimX,YForY=1T...
VBA部分典型例题分析:
1.在窗体上添加一个命令按钮Command0,然后编写如下事件过程:
Private Sub Command0_Click( )
Dim X,Y
For Y = 1 To 6
X= 23 + Y
Next Y
MsgBox X + Y
End Sub
打开窗体后,单击命令按钮消息框数据的结果是( )。
2.运行下列程序,结果是( )。
Private Sub Command32_Click()
f0 = 1 : f1 = 1 : k = 1
Do While k <= 5
f = f0 + f1
f0 = f1
f1 = f
k = k + 1
Loop
MsgBox "f = " & f
End Sub
3.在窗体中有一个文本框Text1,编写事件代码如下:
Private Sub Form_Click( )
N= val(Inputbox("输入N的值"))
M = 1
If N<>0 Then M= 22
Text1.Value = M
End Sub
打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是 ( )
4.在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
Private Sub Command1_Click()
Dim i,j,x
For i = l To 20 step 2
x = 0
For j = i To 20 step 3
x = x + 1
Next j
Next i
Text1.Value = Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是( )。
5.窗体中有命令按钮run34,对应的事件代码如下:
Private Sub run34_Enter()
Dim num As Integer, a As Integer, b As Integer, i As Integer
For i = 1 To 10
num = InputBox("请输入数据:","输入")
If Int(num/2)= num/2 Then
a = a + 1
Else
b = b + 1
End If
Next i
MsgBox("运行结果:a=" & Str(a)& ",b=" & Str(b))
End Sub
运行以上事件过程,所完成的功能是( )。 展开
1.在窗体上添加一个命令按钮Command0,然后编写如下事件过程:
Private Sub Command0_Click( )
Dim X,Y
For Y = 1 To 6
X= 23 + Y
Next Y
MsgBox X + Y
End Sub
打开窗体后,单击命令按钮消息框数据的结果是( )。
2.运行下列程序,结果是( )。
Private Sub Command32_Click()
f0 = 1 : f1 = 1 : k = 1
Do While k <= 5
f = f0 + f1
f0 = f1
f1 = f
k = k + 1
Loop
MsgBox "f = " & f
End Sub
3.在窗体中有一个文本框Text1,编写事件代码如下:
Private Sub Form_Click( )
N= val(Inputbox("输入N的值"))
M = 1
If N<>0 Then M= 22
Text1.Value = M
End Sub
打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是 ( )
4.在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
Private Sub Command1_Click()
Dim i,j,x
For i = l To 20 step 2
x = 0
For j = i To 20 step 3
x = x + 1
Next j
Next i
Text1.Value = Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是( )。
5.窗体中有命令按钮run34,对应的事件代码如下:
Private Sub run34_Enter()
Dim num As Integer, a As Integer, b As Integer, i As Integer
For i = 1 To 10
num = InputBox("请输入数据:","输入")
If Int(num/2)= num/2 Then
a = a + 1
Else
b = b + 1
End If
Next i
MsgBox("运行结果:a=" & Str(a)& ",b=" & Str(b))
End Sub
运行以上事件过程,所完成的功能是( )。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询