gf=yy'第二空
Else
gf=gf
endif'第三空
Label5.Caption=gf
EndSub
3、打开“165”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“评价”；
（2）完善程序，某一路段在车辆限速，当车速在80公里/每小时以上时为“超速行驶”（包括80），当车速在80公里/每小时以下时为“正常行驶”。
完善程序，在“输入车速”文本框中输入一个数值，在“评价”中显示“请注意，您是超速行驶！
”或“车辆在正常行驶！
”。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimaAsSingle'定义变量a
cs=Val（Text1.Text）
Ifcs>=80Then'第一空
Label3.Caption="请注意，您是超速行驶！
"
else'第二空
Label3.Caption="车辆在正常行驶！
"
endif'第三空
EndSub
4、打开“169”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“测试”；
（2）依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1mg/ml驾驶机动车的属醉酒驾车。
完善程序，当输入“酒精量”单击“测试”按钮时，在“评价”中显示评价说明。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimxAsSingle
x=Val（Text1.Text）
Ifx>=1Then'第一空
Label3.Caption="你属于醉酒驾车!
"
Else
Ifx>=0.3Then
Label3.Caption="你属于酒后驾车!
"
else'第二空
Label3.Caption="你没有违规驾驶!
"
EndIf
Endif'第三空
EndSub
5、打开“D:
\ExamData\14124010464\292”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“判断”；
（2）完善程序，在“输入数值”的文本框中输入一个100以内的正整数（包括100不包括0），单击“判断”按钮，在“判断奇偶性”中显示是“奇数”还是“偶数”，当输入大于100的整数或小于等于0的整数时则显示“输入的整数不在范围内”。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimxAsInteger
x=Val（Text1.Text）
Ifx<=0Orx>100Then'第一空
Label3.Caption="输入的整数不在范围内"
Else
Ifx\2<>x/2Then'第二空
Label3.Caption="奇数"
Else
Label3.Caption="偶数"
Endif'第三空
EndIf
EndSub
6、打开“工程1.vbp”进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“测试”；
（2）完善程序，在“输入正整数:
”文本框中输入一个正整数，判断该是否是“素数”，在“判断：
”中显示“是素数”或“不是素数”。
（素数是一个大于1的自然数，除了1和它本身外，不能被其他自然数整除。
）
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimaAsSingle,iAsInteger'定义变量a,i
a=Val（Text1.Text）
i=2'第一空
DoUntil（aModi=0）Or（i=a-1）
i=i+1
loop'第二空
IfaModi=0ThenLabel3.Caption="不是素数"ElseLabel3.Caption=“是素数”'第三空
EndSub
累算型
1、打开“166”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“计算”；
（2）完善程序，使其能输出：
2+4+6+8...+100的值。
单击“计算”按钮时，在“输出值”中输出总值。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimsAsInteger,iAsInteger
S=0'第一空
Fori=2To100Step2'第二空
S=s+i'第三空
Nexti
Label2.Caption=s
EndSub
2、打开“167”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“求值”；
（2）完善程序，使其能输出：
1+3+5+7...+99的值。
单击“求值”按钮时，在“输出值”中输出总值。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimsAsInteger
DimiAsInteger
s=0'第一空
Fori=1To99Step2'第二空
s=s+i
nexti'第三空
Label2.Caption=s
EndSub
3、打开“168”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“求值”；
（2）完善程序，求s=1×3×5…×（2n-1）。
单击“求值”按钮时，输入n值，则在“输出值”中输出总值。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimsAsInteger,iAsInteger,nAsInteger
n=Val（Text1.Text）
s=1'第一空
Fori=1To2*n-1Step2'第二空
s=s*i'第三空
Nexti
Label2.Caption=s
EndSub
4、打开“295”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“计算”；
（2）完善程序，求s=1×2+2×3…+n×（n+1）（n取正整数）。
在“请输入正整数n值”后的文本框中输入一个正整数，单击“计算”按钮时，则在“输出值”中输出总值。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimnAsInteger,sAsDouble
n=Val（Text1.Text）
s=0'第一空
Fori=1Ton'第二空
s=s+i*（i+1）'第三空
Nexti
Label2.Caption=s
EndSub
查找型
1、打开“164”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“查找”；
（2）设计程序：
在三个文本框分别输入语文、数学、英语成绩，点击“查找”按钮后，在“最高分”中输出三门课成绩的最高分。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
Dimyw,sx,yy,gf
yw=Val（Text1.Text）
sx=Val（Text2.Text）
yy=Val（Text3.Text）
Ifyw>sxThen
gf=yw
Else
gf=sx'第一空
EndIf
Ifgfgf=yy'第二空
Else
gf=gf
endif'第三空
Label5.Caption=gf
EndSub
2、打开“293”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“查找”；
（2）完善程序，打印出100以内（包括100）能被3和7同时整除的正整数，单击“查找”按钮时，在列表框中显示出所有满足条件的数。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimxAsInteger
Forx=20To100'第一空
IfxMod3=0andxMod7=0Then'第二空
List1.AddItemStr（x）
Endif'第三空
Nextx
EndSub
3、打开“工程1.vbp”进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“查找”；
（2）完善程序，使之能够实现如下功能：
输入十位学生姓名和百米成绩查找出跑得最快的学生姓名及成绩。
在“输入学生姓名和百米成绩”列表框中显示十位同学姓名和比赛成绩，单击“查找”按钮，在“第一名”下面显示“学生姓名”及“成绩”。
（假设输入的学生成绩都不相同）
注：
①运行时，把红色下划线删除
②不能删除注释语句
DimiAsInteger,xAsSingle,mAsString,fristAsSingle,MingAsString
frist=1000'设置变量最大初值
Fori=1To10'第一空
m=InputBox（"输入学生姓名"）
List1.AddItemm
x=Val（InputBox（"输入成绩"））
List2.AddItemx
Ifxfrist=x'第二空
Ming=m
Endif'第三空
Nexti
Label3.Caption=Ming+""+Str（frist）
EndSub
4、打开“工程1.vbp”进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“查找”；
（2）完善程序，使之能够实现如下功能：
输入十位学生姓名和跳远成绩查找出跳得最远的学生姓名及成绩。
在“输入学生姓名和跳远成绩”列表框中显示十位同学姓名和比赛成绩，单击“查找”按钮，在“第一名”下面显示“学生姓名”和“成绩”。
（假设输入的学生成绩都不相同）
注：
①运行时，把红色下划线删除
②不能删除注释语句
DimiAsInteger,xAsSingle,mAsString,firstAsSingle,MingAsString
first=0'设置变量最小初值
Fori=1To10'第一空
m=InputBox（"输入学生姓名"）
List1.AddItemm
x=Val（InputBox（"输入成绩"））
List2.AddItemx
Ifx>firstThen'第二空
first=x
Ming=m
EndIf
Nexti'第三空
Label3.Caption=Ming+""+Str（first）
EndSub
分制转换型
1、打开“296”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“开始”；
（2）设计程序：
将120分制的成绩转换成百分制后，根据60分以内为D等，60分至80分为C等，80分至90分为B等，90分至100分为A等，在“输入学生成绩：
”后的文本框中输入成绩，点击“开始”按钮后，输出成绩评价等级。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimxAsSingle
x=Val（Text1.Text）
x=x*100/120
Ifx<60Andx>=0ThenLabel5.Caption="D"'第一空
Ifx>=60andx<80ThenLabel5.Caption="C"'第二空
Ifx>=80Andx<90ThenLabel5.Caption="B"
Ifx>=90Andx<=100ThenLabel5.Caption=“A”'第三空
EndSub
2、打开“297”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存！
（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“开始”；
（2）完善程序，将150分制的成绩转换成百分制后，根据60分以内为不合格，60分至70分为合格，70分至90分为良好，90分至100分为优秀，在“输入学生成绩：
”后的文本框中输入成绩，点击“开始”按钮后，输出成绩评价等级。
注：
①运行时，把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click（）
DimxAsSingle
x=Val（Text1.Text）
x=x*100/150
Ifx>=0andx<60ThenLabel5.Caption="不合格"'第一空
Ifx>=60andx<70ThenLabel5.Caption="合格"'第二空
Ifx>=70Andx<90ThenLabel5.Caption=“良好”'第三空
Ifx>=90Andx<=100ThenLabel5.Caption="优秀"
EndSub
升级会员 