复习题1答案

EndSub (A)101 _______。 (A)Enabled(对) (A)Int(Rnd*7)

(B)Visible

(C)Timer

(D)Interval

28、下列表达式，哪一个可以产生1到6之间的随机整数（包括1和6）___。

(B)Int(Rnd(6)+1)

(C)Int(Rnd*6) (D)Int(Rnd*6+1)(对)

29、执行下列程序，从键盘输入10，运行结果是_________。 PrivateSubCommand1_Click() S=InputBox(\请输入一个数字：\SelectCaseS CaseIs>0 Print\CaseIs>3 Print\CaseIs>5 Print\EndSelect EndSub (A)>0(对)

(B)>3

(C)>5

(D)>0

29、在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:

PrivateSubCommand1_Click() a=InputBox(\请输入日期(1~31)\SelectCasea CaseIs<=0,Is>=31 t=t+\有误\caseIs<=10,20 t=t+\北京\caseIs<=20 t=t+\大连\caseIs<=31 t=t

(A)假期的旅游路线：北京大连 (B)假期的旅游路线：大连北京 (C)假期的旅游路线：北京(对) (D)假期的旅游路线：大连

(B)DE1289 (C)DE (D)1289(对)

27、为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是

三、程序填空 顺序结构

1、加法运算.三个文本框的名称分别是 text1 text2 text3

清除按钮

Private Sub Command1_Click() ______________________________ End Sub 加法运算按钮

Private Sub Command2_Click() ______________________________ End Sub 退出按钮

Private Sub Command3_Click() ______________________________ End Sub

2、编程序，由键盘输入小时、分、秒后，转换成共有多少秒？(界面参考如下),三个文本框的名称分别是：text1 text2 text3 转换结果内的标签名称为label1

计算按钮程序编写如下 Private Sub Command1_Click() ______________________________

End Sub

3、 编写一个计算2个整数相除后的商与余数程序。运行后参考界面如下：两个文本框名称分别是：text1 text2，除数标签label1 余数标签label2

计算按钮代码编写

Private Sub Command1_Click() ______________________________

_______________________________ End Sub

条件语句

1、写出条件语句的格式 行if语句结构

块if语句结构

Select语句结构 １、

倒计时程序：当a倒数到0时，就输出时间到；当没有到0时，就减１

Dim a As Integer ?全局变量定义 开始计时按钮代码编写： Private Sub Command1_Click() a = 10

________________________________ ?开始计时 Command1.Visible = False End Sub

时间控件timer1 代码编写： Private Sub Timer1_Timer() If a = 0 Then

_____________________________ ?_输出时间到 _________________________________?计时停止 Command1.Visible = True Else

Label1.Caption = a

__________________________?倒计时 End If End Sub

2、成绩等级评定

90分以上的是优秀，80－90的是良好，70－80的是一般，60－70的是及格，60分以下的是不及格

Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text)

Select Case ______ ' 使用Select?Case语句 Case _________ Text2.Text = \优秀\ Case Is > 80

Text2.Text = \良好\ Case Is > 70

Text2.Text = \中等\ Case Is > 60

Text2.Text = \及格\ Case Else

Text2.Text = \不及格\ ________________ End Sub

3、飞机票的标准价格是1000元／张，1月或3－6月 ，每张打6折。9－11月每张打7折，7,8两个月每张打8折。其他月份每张打9折。要求设计程序，输