阅读下列程序并写出程序运行结果。
Private Sub Command1_Click()
x = 0
Do While x < 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后,文件框Text3的结果。
阅读下列程序并写出程序运行结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时,单击窗体Form1上的输出结果。
阅读下面事件过程,写出执行结果。
Private Sub Command1_Click()
Dim a%, b%, c%, s%, w%, t%
a = -1: b = 3: c = 3
s = 0: w = 0: t = 0
If c > 0 Then s = a + b
If a <= 0 Then
If c <= 0 Then
w = a - b
End If
Else
If c > 0 Then w = a - b Else t = c
End If
c = a + b
Print a, b, c
Print s, w, t
End Sub
Private Sub Dir1_Change()
File1. Path =dir1.Path
End Sub
Private Sub Drive1_Change()
----1----
End Sub
Private Sub File1_Click()
Dim PathStr As String
if right(file1.path,1)="/" then
PathStr=File1.Path & File1.FileName
else
----2----
end if
If Right(PathStr,4)= “.bmp” Or Right(PathStr,4)= “.BMP” Then
----3----
End If
End Sub
写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
a = a + b
b = a - b
End Sub
Private Sub Form_Click()
Dim a%, b%
a = 23
b = 12
Call f(a, b)
Print "a=" & a; ",b=" & b
End Sub
程序为:
Private Sub Form_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7)
For I = LBound(a) To UBound(a)
a(I) = a(I) * a(I)
Print a(I)
Next I
End Sub
程序运行后,单击窗体后,在窗体显示的结果是:
写出程序的输出结果:
Private Sub Form_Click
Print Tab(10); -100;Tab(20); 200;Tab(30); -300
Print Spc(5); -100;Spc(5); 200;Spc(5); -300
End Sub
Label2的标签,然后编写如下程序代码:
Private x As Integer
Private Sub Command1_Click()
a = 6: b = 4
Call sub1(a, b)
Label1.Caption = a
Label2.Caption = b
End Sub
Private Sub sub1(ByVal x As Integer, ByVal y As Integer)
a = x * x
b = y * y
End Sub
程序运行后单击命令按钮,则两个标签中显示的内容分别是_______。
A.36和4
B.6和4
C.36和8
D.6和8
这是一个用户名校验程序,如用户名正确,即输出欢迎字样,否则,弹出警告窗并直接退出程序。
Dim UserName(2) As String, inputName As String
Dim Flag As Boolean ‘flag=true表示用户名正确;flag=false表示用户名不正确
Private Sub Form_Load()
Dim I As Integer
UserName(0) = "AA" : UserName(1) = "BB" : UserName(2) = "CC"‘共三个用户名
----1----
inputName = InputBox("请输入名称:", "身份确认", " ")
For I = 0 To 2
If ----2----Then
Flag = True
End If
Next I
If Flag =False Then
----3---- ("用户身份确认失败!退出应用", vbOKOnly, " 警告")
End
End If
End Sub
Private Sub Form_Paint()
picShowMsg.Print "欢迎您!" + inputName
End Sub
以下程序执行后将输出100到200之间所有的素数,并统计素数的个数
Private Sub Form_Click()
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k= ------ 1 -----
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then
------ 2 ------
End If
------ 3 ------
Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub