三、程序填空 顺序结构
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折。要求设计程序，输
入月份和张数，能计算出应付的金额。 提示：select语句
Private Sub Command1_Click()
______________________________________定义 m,n,z为整型变量 m = Val(Text1.Text) N = Val(Text2.Text)
Select Case m ' 根据月份进行选择 Case_____________ ' 1月或3～6月 z = 0.6
Case _____________ ' 9月～11月 z = 0.7 Case 7, 8 z = 0.8 Case Else z = 0.9 End Select
MsgBox \您共需要付款：\结算\End Sub 四、写程序题 1、奇偶判断
判断奇偶,被2整除余数是0的是偶数，否则的话就是奇数。文本框名称：text1 ,text2
Private Sub Command1_Click() Dim int1 As Integer, int2 As Integer int1 = Val(Text1.Text)
int2 = int1 Mod 2 '整除2取余数 If int2 = 0 Then '判断是否为偶数 Text2.Text = \这是一个偶数!\Else
Text2.Text = \这是一个奇数!\End If
2、星期计算程序 文本框名称：text1 text2
Private Sub Command1_Click() Dim Rq As Date, x As Integer Rq = Text1.Text
x = Abs(Rq - #1/1/1900#) Mod 7 ' 当前日期与1/1/1900相减取7的余数 Select Case x
Case 0 ' 余数为0则当天是星期一 Text2.Text = \星期一\
Case 1 ' 余数为1则当天是星期二 Text2.Text = \星期二\ Case 2
Text2.Text = \星期三\ Case 3
Text2.Text = \星期四\ Case 4
Text2.Text = \星期五\ Case 5
Text2.Text = \星期六\ Case Else
Text2.Text = \星期日\ End Select End Sub
3、比较大小程序 文本框分别为text1 text2 标签是 label1
Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text): y = Val(Text2.Text)
If x < y Then '判断x>y是否为真如果为真执行下面程序 Label1.Caption = \ElseIf x > y Then Label1.Caption = \Else
Label1.Caption = \ End If End Sub