6.用计算机程序模拟扔1000次硬币的过程，用0和1分别表示硬币的正反两个面，用变量a表示0的个数，用变量b表示1的个数。
某次扔硬币的点数（用Rnd函数产生一个0或1的数），并统计个数的语句如下所示，请把下列语句补充完整。
If____①____Then
a＝a＋1
Else
____②____
End If
划线处代码为：
①__________________________________________________
②________________________________________________________________
解析 理解变量的含义及把握选择的条件。
答案 ①Int（Rnd（）*2）＝0或Int（Rnd（）＋0.5）＝0 ②b＝b＋1
7.在文本框Text1、Text2和Text3分别输入年月日yy、mm和dd，判定输入的20世纪（1900－1999年）日期是否符合实际。
最后在标签Label1中输出该日期是否符合实际，请完善下列程序段。
flag＝True
Ifyy<1990Oryy>1999Then
flag＝False
ElseIf____①____Then
′月份mm在1－12之间
flag＝False
EndIf
′以下程序段判断2月份的天数是否符合要求
Ifmm＝2Andflag＝TrueThen
IfyyMod400＝0Or（yyMod100<>0AndyyMod4＝0）Then ′闰年
If____②____Thenflag＝False
EndIf
′以下程序段判断非2月份的天数是否符合要求
Ifmm<>2Andflag＝TrueThen
Ifmm＝1Ormm＝3Ormm＝5Ormm＝7Ormm＝8Ormm＝10Ormm＝12Then
If____③____
Thenflag＝False
Else
Ifdd>30Thenflag＝False
EndIf
EndIf
If____④____ThenLabel1.Caption＝”相符”ElseLabel1.Caption＝”不符”
划线处代码为：
①__________________________________________________
②________________________________________________________________
③________________________________________________________________
④________________________________________________________________
解析 要找到月份不正确的条件，最多天数不正确的条件，判断是否相符的条件。
答案 ①mm<1Ormm>12 ②dd>29③dd>31 ④flag＝True
8.设计一个程序，根据输入的劳务报酬收入计算劳务报酬所得税。
解决此问题的流程图如图所示。
若要测试所有分支程序代码是否正确，下列测试数据中最恰当的一组是（ ）
A.500，830，4200B.500，800，4000
C.0，800，1000D.400，900，1200
答案 A
9.COD（化学需氧量）是衡量水质污染程度的重要指标之一，污水处理时根据污水的COD指标来计算COD去除剂的投放量。
当COD指标x小于50时，剂量为10，指标大于等于50且小于等于500时，剂量为1.2X/5，指标超过500时，剂量为1.5X/4。
在文本框Text1中输入COD指标，单击“计算”按钮Command1后，在文本框Text2中输出计算结果。
程序运行界面如图所示：
为实现上述功能，请在划线处填入合适的代码。
PrivateSubCommand1_Click（）
DimxAsSingle，sAsSingle
____①____
Ifx<50Then
s＝10
ElseIfx<＝500Then
____②____
Else
____③____
EndIf
Text2.Text＝Str（s）
EndSub
划线处代码①_____________________________________________________
划线处代码②_____________________________________________________
划线处代码③______________________________________________________
答案 ①x＝Val（Text1.Text） ②s＝1.2*x/5 ③s＝x/4*1.5
10.《浙江省电网销售电价表》中规定，不满1千伏“一户一表”居民用电价格，按以下标准计算：
月用电量在50千瓦时及以下部分，每千瓦时以0.538元计算；51～200千瓦时部分，则每千瓦时按0.568元计算；200千瓦时以上部分，每千瓦时按0.638元计算。
在文本框Text1输入用电量，在文本框Text2中输出相应的电费。
程序运行的界面如图所示：
为实现上述功能，请在划线处填入合适的代码。
PrivateSubCommand1_Click（）
DimxAsInteger
____①____
Ifx<0Then
Text2.Text＝”用电量不能是负的！
”
ElseIfx<＝50Then
Text2.Text＝Str（0.538*x）
____②____Then
Text2.Text＝Str（0.568*（x－50）＋0.538*50）
Else
Text2.Text＝Str（0.638*（x－200）＋0.568*150＋0.538*50）
EndIf
EndSub
划线处代码①_____________________________________________________
划线处代码②_____________________________________________________
答案 ①x＝Val（Text1.Text） ②ElseIfx<＝200
1.能表示“如果a，b同时大于等于0，那么x←2y”的VB语句是_________。
解析 注意两个条件的逻辑连接，注意大于等于符号的表达及2y的表达。
答案 Ifa>＝0Andb>＝0Thenx＝2*y
2.该数是某个数的平方，称为完全平方数。
求数x是否是完全平方数的语句如下，请补充完整。
If____________________Then
Text1.Text＝”完全平方数”
Else
Text1.Text＝”不是完全平方数”
End If
解析 条件是该数是某个数的平方，那么该数的平方根是整数。
答案 Int（Sqr（x））＝Sqr（x）
3.一个四位数等于它每一位数的4次方之和，则称为玫瑰花数。
若某个数n的各个位上的数字分别是a、b、c、d，请完善下列程序段。
If________________Then
Text1.Text＝”是玫瑰花数”
Else
Text1.Text＝”不是玫瑰花数”
EndIf
解析 理解选择结构的条件。
答案 a^4＋b^4＋c^4＋d^4＝n
4.在文本框Text1中输入电子邮箱的名称s，查找“@”符号所在位置，查找到第i个字符ch（ch＝Mid（s，i，1）），如果是“@”符号，用变量p记录“@”符号的位置。
请把下列语句补充完整。
If________Then ________
解析 条件是当前字符ch与“@”符号比较，注意加引号，i表示当前位置。
答案 ch＝”@” p＝i
5.杭州机动车限行规定中，对本地和外地牌照车限行有不同的规定，在文本框Text1输入汽车牌照s，若以“浙A”开头，是否为本地牌照的标志变量flag为True，否则为False。
请把下列语句补充完整。
If________Then ________
解析 条件是开头两个字符是否是”浙A”。
答案 Mid（s，1，2）＝”浙A” flag＝True
6.星期一那天，杭州本地牌照尾号为1和9的汽车是限行的，在汽车牌照本中取得最后一个数字ch（文本型），判断该车是否限行，请把下列语句补充完整。
If________________Then
p＝”限行”
Else
p＝”不限行”
End If
解析 两个条件满足一个，注意数据类型。
答案 ch＝”1”Orch＝”9”或Val（ch）＝1OrVal（ch）＝9
7.在文本框Text1、Text2、Text3中分别输入一元二次方程系数a、b、c，单击按钮Command1，在Label1中输出方程根的情况。
请把下列语句补充完整。
d＝b*b－4*a*c
If____①____Then
Label1.Caption＝”a不能为零，不是一元二次方程”
Else
If____②____Then
Label1.Caption＝”方程没有根”
Else
X1＝（－b＋Sqr（d））/（2*a）
X2＝（－b－Sqr（d））/（2*a）
EndIf
EndIf
划线处代码为①___________________________________________________
②_______________________________________________________________
解析 执行语句中已经提示“a不能为零”和“方程没有根”。
答案 ①a＝0 ②d<0
8.在文本框Text1中输入一个[200，500]之间的整数x，对这个整数进行一系列操作，若不在这个范围，则列表框List1中输出“输入数据有误”的提示，并清除文本框Text1中数字。
请把下列语句补充完整。
If__________________Then
′以下操作略
Else
List1.AddItem”输入有误！
”
Text1.Text＝””
EndIf
解析 注意条件表达式的写法。
答案 x>＝200Andx<＝500
9.在文本框Text1中输入一个字符串s，判断当前第i个字符ch属于大写字母（dxzm）、小写字母（xxzm）、阿拉伯数字（sz）和其他字符（qt）其中的一种，并统计个数。
请把下列语句补充完整。
ch＝Mid（s，i，1）
Ifch>＝”A”Andch<＝”Z”Then
dxzm＝dxzm＋1
____①____Then
xxzm＝xxzm＋1
____②____Then
sz＝sz＋1
Else
qt＝____③____
EndIf
划线处代码①_____________________________________________________
②________________________________________________________________
③________________________________________________________________
解析 要注意多分支选择的写法，同时要写出小写字母和数字的条件。
答案 ①ElseIf ch>＝”a”Andch<＝”z”
②ElseIf ch>＝”0”Andch<＝”9” ③qt＋1
10.用计算机模拟一个猜价格游戏，随机产生一个[20，60]之间的整数x，在文本框Text1中输入价格，单击“确定”按钮Command1，若猜中了，提示“猜中了”，所猜价格与x的距离在5元之内，提示“接近了”，高于5元，提示“太高了”，低于5元，提示“太低了”。
程序运行界面如下图所示：
程序代码如下所示，请补充完整。
DimxAsInteger
PrivateSubForm_Load（）
x＝____①____
EndSub
PrivateSubCommand1_Click（）
DimjgAsInteger
jg＝Val（Text1.Text）
Ifjg＝xThen
Label4.Caption＝”猜中了”
____②____Then
Label4.Caption＝”接近了”
____③____Then
Label4.Caption＝”太高了”
Else
Label4.Caption＝”太低了”
EndIf
EndSub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
解析 写出一个在[20，60]之间的整数x的表达式，差价在5元内有两种表示方法。
同时要注意多分支选择结构的书写。
答案 ①Int（Rnd（）*41＋20） ②ElseIf Abs（jg－x）<＝5或jg－x>＝－5And jg－x<＝5③ElseIf jg－x>5
11.模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。
在文本框Text1中输入第一个数，在文本框Text2中输入第二个数，在文本框Text3中输入运算符，在文本框Text4中
升级会员 