习题集答案（自编）

编程题

1、编写程序求正方形的周长。要求：正方形的边长由输入框（InputBox函数）输入，结果显示在窗体上，格式为：周长=……。

Private Sub Form_Click() Dim a As Single, b As Single a = Val(InputBox(\边长\b = 4 * a Print b

End Sub

2、编写程序求某学生期末三门课程的平均成绩。要求，三门课程的成绩由文本框输入，结果显示在文本框中。（界面如图所示）

Private Sub Command1_Click()

Text1 Dim a As interger, b As interger, c As interger, d As Integer

a = Val(text1.Text)

Text2 b = Val(text2.Text)

c = Val(text3.Text)

d = (a + b + c) / 3 text4.Text = d Print d

End Sub

3、设计一个计算购书价的程序。（界面如图所示）

Private Sub Command1_Click()

text3.Text = Val(text1.Text) * Val(text2.Text) End Sub

Private Sub Command2_Click() End End Sub

1

Text3 Text4 Command1

Text1 Text2 Text3 Command1

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 Sub

5、根据以下公式计算Y的值。 Text1 ?XY???lnXX?0X?0

Label3 要求：使用单行结构条件语句。（界面如图所示）

Command1

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函数）输入，

2

判断结果显示在窗体上。

Private Sub Command1_Click() x = Val(InputBox(\输入\If x Mod 15 = 0 Then

Print \能同时被3.5整除\Else

Print \不能同时被305整除\End If

End Sub

7、根据以下公式计算Y的值。（界面如图所示）

?100?X?100?X?0?Y??100?X0?X?100

?400100?X?200?Text1

Label3

Private Sub Command1_Click()

Command1

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(\请输入第三个数\ '求最大数

3

Max = a

If b > Max Then Max = b If c > Max Then Max = c

MsgBox \最大数是:\ '求最小数 Min = a

If b < Min Then Min = b If c < Min Then Min = c

MsgBox \最小数是:\End Sub

9、编写程序实现：从文本框（Text1）输入月收入，单击“计算”（Command1）按钮按以下规定计算税款，并显示于另一个文本框（Text2）中。 月收入少于或等于800元者 税款为0

月收入在800~2000元者 税款为超过800元部分的10% 月收入超过2000元者 税款为超过800元部分的20%

Private Sub Command1_Click() a = Val(Text1.Text) If a <= 800 Then b = 0

ElseIf a <= 2000 Then b = (a - 800) * 0.1 Else

b = (a - 800) * 0.2 End If

Text2.Text = Format(b, \End Sub

10、编写程序实现：从文本框（Text1）输入a、b的值（以角度为单位），单击“计算”（Command1）按钮按以下公式计算y值，用标签（Label1）显示计算结果。

?sina?cosba?0,b?0?y??sina?cosba?0,b?0

?sina?cosba?0?

Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text)

If a > 0 And b > 0 Then y = Sin(a) * Cos(b)

4

If a > 0 And b <= 0 Then y = Sin(a) + Cos(b) If a <= 0 Then y = Sin(a) + Cos(b) Label1.Caption = y

End Sub

11、编写程序实现：从文本框（Text1）输入a的值，单击“判断”（Command1）按钮判断该数是否是同构数，若是，则在另一个文本框（Text2）中显示“是同构数”；否则显示“不是同构数”。同构数：指这样的整数，它恰好出现在其平方数的右边，如5。

Private Sub Command1_Click() a = Val(Text1.Text) s1 = Format(a) l = Len(s1)

s2 = Format(i ^ 2)

If Right(s2, l) = s1 Then Text2.Text =”是同构数”

Else

Text2.text=”不是同构数” End If End Sub

12、编写程序实现：从文本框（Text1）输入一个3位正整数，单击“判断”（Command1）按钮判断该数是否是水仙花数，若是，则在另一个文本框（Text2）中显示“是水仙花数”；否则显示“不是水仙花数”。水仙花数：指其各位数的立方和等于该数，如153。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer Dim s1 As Integer, s2 As Integer a = Val(Right(text1.Text, 1)) b = Val(middle(text1.Text)) c = Val(Left(text1.Text, 1))

s1 = 100 * a + 10 * b + c s2 = a ^ 3 + b ^ 3 + c ^ 3 If s1 = s2 Then

Text2 .text=\是水仙花数\ Else

Text2 .text= \不是水仙花数\ End If

5

本文来源：https://www.bwwdw.com/article/1ny2.html