习题集答案(自编)

1、编程题1、编写程序求正方形的周长。要求：正方形的边长由输入框（InputBox函数）输入，结果显示在窗体上，格式为：周长=。Private Sub Form_Click()Dim a As Single, b As Singlea = Val(InputBox(边长)b = 4 * aPrint bEnd SubText1Text2Text3Text4Command12、编写程序求某学生期末三门课程的平均成绩。要求，三门课程的成绩由文本框输入，结果显示在文本框中。（界面如图所示）Private Sub Command1_Click() Dim a As interger, b As inter

2、ger, 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 dEnd SubText1Text2Text3Command13、设计一个计算购书价的程序。（界面如图所示） Private Sub Command1_Click() text3.Text = Val(text1.Text) * Val(text2.Text)End SubPrivate Sub Command2_Click()

3、EndEnd Sub4、编写程序交换两个变量x和y的值。要求，变量x和y的值由输入框（InputBox函数）输入，交换结果显示在窗体上。（界面如图所示）Private Sub Form_Click()Dim t As intergerx = Val(InputBox(输入)y = Val(InputBox(输入)t = x + yx = t - xy = t - yprint “x=” & x &space(5) & “y=”yEnd SubText1Label3Command15、根据以下公式计算Y的值。要求：使用单行结构条件语句。（界面如图所示）Private Sub command1_c

4、lick()x = Val(Text1.Text)If x = -100 And x =0 and x 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 Sub9、编写程序实现：从文本框（Text1）输入月收入，单击“计算”（Command1）按钮按以下规定计算税款，并显示于另一个文本框（Text2）中。月收入少于或等于800元者 税款为0月收入在800

5、2000元者 税款为超过800元部分的10%月收入超过2000元者 税款为超过800元部分的20%Private Sub Command1_Click() a = Val(Text1.Text) If a = 800 Then b = 0 ElseIf a 0 And b 0 Then y = Sin(a) * Cos(b)If a 0 And b = 0 Then y = Sin(a) + Cos(b)If a = 0 Then y = Sin(a) + Cos(b)Label1.Caption = yEnd Sub11、编写程序实现：从文本框（Text1）输入a的值，单击“判断”（Comm

6、and1）按钮判断该数是否是同构数，若是，则在另一个文本框（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 =”是同构数”ElseText2.text=”不是同构数” End If End Sub12、编写程序实现：从文本框（Text1）输入一个3位正整数，单击“判断”（Co

7、mmand1）按钮判断该数是否是水仙花数，若是，则在另一个文本框（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

8、+ c s2 = a 3 + b 3 + c 3 If s1 = s2 Then Text2 .text=是水仙花数 Else Text2 .text= 不是水仙花数 End IfEnd Sub13、编写程序求1*3*5*7*（2n-1）的值。要求：n值由文本框（Text1）输入，结果显示在标签（Label1）中。Private Sub Command1_Click() n = Val(Text1.Text) f = 1 For i = 1 To n f = f * (2 * i - 1) Next i Label1.Caption = fEnd Sub14、编写程序求的值，用标签（Label

9、1）显示计算结果。Private Sub Command1_Click() s = 0: K = 1While K 10 s = s + 1 / k k = k + 1 Loop Label1.Caption = s End Sub16、编写程序求一个给定自然数N的所有因子。要求：数N由输入框（InputBox函数）输入，结果显示在窗体上。Private Sub Form_Load()N = Val(InputBox(请输入一个数, 求N所有因子)For i = 2 To N / 2If N Mod i = 0 ThenPrint iEnd IfEnd Sub17、编写程序求1*3*5*7大于

10、40000的最小值。Private Sub Command1_Click()a = 1b = 1Do While a = 400000 a = a * b b = b + 2LoopText1.Text = aEnd Sub18、编写程序实现：从文本框（Text1）输入a的值，单击“判断”（Command1）按钮判断该数是否是完数，若是，则在另一个文本框（Text2）中显示“是完数”；否则显示“不是完数”。完数：指一个数恰好等于它的因子（不包括自身）之和。Private Sub Command1_Click() a = Val(text1.Text) Sum = 0 For j = 1 To

11、a - 1 If a Mod j = 0 Then Sum = Sum + j End If Next j If i = Sum Then text2.Text = 是完数 Else text2.Text = 不是完数End Sub19、编写程序实现：随机生成100个两位正整数，统计其中小于等于40、大于40小于等于70、大于70的数据个数。要求：统计结果显示在窗体上，格式如下图。Private Sub Form_Click()a = 0: b = 0For i = 1 To 100Randomizex = Int(90 * rand = 10)Print x & space(2)If i Mod 10 = 0 Then PrintIf x 70 Thenh2 = h2 + 1Elseh3 = h3 + 1End IfNextPrint 小于等于40数据的个数; h1Print 大于40小于等于70数据的个数; h2Print 大于70数据的个数; h3End Sub20、编写程序实现：随机生成20个100以内的