习题集答案(自编).doc

PAGE 9 编程题 1、编写程序求正方形的周长。要求：正方形的边长由输入框（InputBox函数）输入，结果显示在窗体上，格式为：周长=……。 Private Sub Form_Click() Dim a As Single, b As Single a = Val(InputBox("边长")) b = 4 * a Print b End Sub Text1 Text2 Text3 Text4 Command1 2、编写程序求某学生期末三门课程的平均成绩。要求，三门课程的成绩由文本框输入，结果显示在文本框中。（界面如图所示） Private Sub Command1_Click() Dim a As interger, b As interger, c As interger, d As Integer a = Val(text1.Text) b = Val(text2.Text) c = Val(text3.Text) d = (a + b + c) / 3 text4.Text = d Print d End Sub Text1 Text2 Text3 Command1 3、设计一个计算购书价的程序。（界面如图所示） Private Sub Command1_Click() text3.Text = Val(text1.Text) * Val(text2.Text) End Sub Private Sub Command2_Click() End End Sub 4、编写程序交换两个变量x和y的值。要求，变量x和y的值由输入框（InputBox函数）输入，交换结果显示在窗体上。（界面如图所示） Private Sub Form_Click() Dim t As interger x = Val(InputBox("输入")) y = Val(InputBox("输入")) t = x + y x = t - x y = t - y print “x=” & x &space(5) & “y=”y End SubText1 Label3 Command1 5、根据以下公式计算Y的值。 要求：使用单行结构条件语句。（界面如图所示） Private Sub command1_click() x = Val(Text1.Text) If x <= 0 Then y = Abs(x) Else y = Log(x) label3.Caption = y End Sub 6、编写程序判断一个数N能否同时被3和5整除，若能整除，则显示“能同时被3和5整除”，否则显示“不能同时被3和5整除”。要求：数N由输入框（InputBox函数）输入，判断结果显示在窗体上。 Private Sub Command1_Click() x = Val(InputBox("输入")) If x Mod 15 = 0 Then Print "能同时被3.5整除" Else Print "不能同时被305整除" End If End Sub Text1 Label3 Command1 7、根据以下公式计算Y的值。（界面如图所示） Private Sub Command1_Click() x = Val(text1.Text) If x >= -100 And x < 0 Then y = 100 - x else if x>=0 and x<=100 then y = 100 = x Else: y = 400 End If label3.Caption = y End Sub 8、编写程序求三个数中的最大数和最小数。要求：三个数由输入框（InputBox函数）输入，最大数和最小数用消息框（MsgBox函数）显示。 Private Sub Form_Click() a = InputBox("请输入第一个数") b = InputBox("请输入第二个数") c = InputBox("请输入第三个数") '求最大数 Max = a If b > Max Then Max = b If c > Max Then Max = c MsgBox "最大数是:" & Str(Max) '求最小数 Min = a If b < Min Then Min = b If c < Min Then Min = c MsgBox "最小数是:" & Str(Min) End Sub 9、编写程序实现：从文本框（Text1）输入月收入，单击“计算”（Command1）按钮按以下规定计算税款，并显示于另一个文本框（Text2）中。 月收入少于或等于800元者 税款为0 月收入在80