14英语成绩评价
15 100以内任一整数的阶乘
16判断是否闰年
答案：（1）Val(Text1.Text) （2）i Mod 100 <> 0 Or i Mod 400 = 0 （3）end if
17求方程的根
Private Sub Command1_Click()
Dim a, b, c, d As Single
Dim x1, x2 As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = ①
If d >= 0 Then
x1 = (-b + ②) / (2 * a)
x2 = (-b - ③) / (2 * a)
④ "实数根1是" & x1 & "，" & "实数根2是" & x2
Else
⑤ "无实数根"
End If
答案：（1）b^2 (2)sqr (3)sqr (4) msgbox (5)msgbox
18大小写转换
'删除①②③及下划线， 利用字符串函数Ucase()和转换函数Asc()，填空完成程序。使单击窗体时屏幕显示 FfGG
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Form_Click()
Dim str1 As String, str2 As String
Dim str3 As String, i As Integer
str1 = "f"
For i = 1 To ____①______
str2 = UCase(str1)
str1 = str2 & str1
str3 = str3 & str1
str1 = Chr(Asc(str1) + ____②_____)
______③_______
Print str3
End Sub
答案: ① 2 ② 1 ③ next i
19学生成绩1
'（1）删除①②③④及下划线，填空完成程序。
'（2） 在文本框Text1中输入成绩，点击"等级"
按钮时，文本框里就显示相应的等级。具体等
级划分如下：
' 90分以上为"优"，80到89分为"好"，
70到79分为"良"，60到69分为"及格"，
60分以下为"不及格"。
'注：请不要更改原程序结构，
删除①、②、③、④及下划线，
并在对应位置填写正确的代码。
Private Sub Command1_Click()
Dim x As Integer, grade As String
x = _____①________
________②______
Case 90 To 100
grade = "优"
Case 80 To 89
grade = "好"
Case 70 To 79
grade = "良"
Case 60 To 69
grade = "及格"
Case Is < 60
grade = "不及格"
Case Else
MsgBox "请重新输入"
End Select
Print "该学生成绩为:" + _____④_____
End Sub
答案:
①val(text1.text)
② select case x
③ grade
20学生成绩2
'在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label1中！
Private Sub Command1_Click()
exam = Int(Val(Text1.Text))
'将输入的成绩转换为相应的等级
Select Case __①__
Case __②__
Label1.Caption = "该学生的成绩等级为：D"
Case __③__
Label1.Caption = "该学生的成绩等级为：C"
Case __④__
Label1.Caption = "该学生的成绩等级为：B"
Case __⑤__
Label1.Caption = "该学生的成绩等级为：A"
__⑥__
End Sub
答案: ① exam ② is<60 ③ 60 To 79 ④80 To 89 ⑤90 To 100 ⑥end select
21时分秒
'完善程序，输入时间秒，转换成时、分、秒形式！
'(1) 运行时删除下划线
'(2) 不能删除注释语句
Private Sub Command1_Click()
Dim a, b, c, d As Double
Dim h As String
a = Val(Text1.Text)
b = _①__ '第一空，转换小时
c = __②__ '第二空，转换分钟
d = (a Mod 3600) Mod 60 '第三空，转换秒
h = b & "小时" & c & "分钟" ___③__
Text2.Text = h
End Sub
答案: ①a\3600 ②(a mod 3600)\60 ③& d & ”秒”
22 细胞分裂
'（1）删除①②③及下划线并填空完成程序。
'（2）一个细胞每第一分钟分裂为2个，第二分钟，就有4个细胞，然后，8个、16个、……以此类推。
'点击“计算时间”按钮计算出一个细胞在经过多少分钟后数目超过10000个？
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click()
Dim n As Long, x As Long
n = 1: x = 2
Do While _____①_____
n = ___②_____
x =____③____
Loop
Label1.Caption = n & "分钟"
End Sub
答案: ① x<=10000 ② n+1 ③ x*2
23求5+10+15+20+…+40+45+50+…+100的值
'（1）删除①②③及下划线，填空完成程序。
'（2）完善程序代码实现求5+10+15+20+…+40+45+50+…+100的值。
'(运行结果为1050)
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click()
Dim I As Integer
Dim S As Integer
S =____①_______
For I = 100 To 5 Step_____②_____
S = S + I
______③______
Print "5+10+15+20+…+40+45+50+…+100 ="; S
End Sub
答案: ① 0 ② -5 ③ next I
24 求1到100间的和并求出能被19整除的数
'（1）删除①②③及下划线，填空完成程序。
'（2）点击“计算”按钮后，在窗体上输出“1+2+……+100”的和，并求出1到100之间能被19整除的整数的个数
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click()
Dim i As Integer, x As Integer
Dim s As Integer
s = 0
x = 0
For i = 1 To 100
______①______
If _____②____ Then x = ____ _③_____
Next i
Print "1+2+3+4...+100=" & s
Print "1到100之间能被19整除有:" & x & "个数"
End Sub
答案: ① s=s+i ② i mod 19=0 ③ x+1
25判断是否大于10000
'在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：
'在Text1输入整数m、Text2输入整数n，判断m的平方与n的平方之和是否比10000大，
'若比10000大，在Text3文本框中输出“大于10000”；
'若小于10000，在Text3文本框中输出“小于10000”；
'否则输出“等于10000”。
'注：请不要更改原程序结构!
Private Sub Command1_Click()
m=int(val(text1.text))
n=int(val(text2.text))
if (m^2+n^2)>10000 then
text3.text=” 大于10000”
elseif (m^2+n^2)<10000 then
text3.text=” 小于10000”
else
text3.text=” 等于10000”
end if
End Sub
26 将abcd 变成BCD
'（1）删除①②③④及下划线，填空完成程序。
'（2）程序运行后，从键盘上输入“abcd”，单击确定按钮后，在标签Label1中显示出“BCD”
'注：请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。
Private Sub Form_Load()
Dim strtext As String
strtext = ____①____("请输入")
strtext = ____②____(Trim(____③____), 3)
Label1.Caption = ____④____(strtext)
End Sub
答案: ① InputBox ② right ③ strtext ④ ucase
