上机实验题目答案.doc

实验要求： 每次上机实验前请写出主要的程序设计思路和主要的程序代码。 第05次上机实验题目（分支结构） 运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数，则再判断其奇偶性，把各自的判断结果显示在MsgBox对话框上。保存窗体sy5-1，工程sy5-1。 Option Explicit Private Sub Form_Click() Dim x# x = Val(InputBox()) If x 0 And x = Int(x) Then If x Mod 2 = 0 Then MsgBox x 是正整数并且是偶数 Else MsgBox x 是正整数并且是奇数 End If Else MsgBox x 不是正整数 End If End Sub 运行时单击窗口，随机产生一个1000-9999间的整数，判断其是否是6的倍数。用Print方法把产生的随机数和判断结果显示在窗口上。保存窗体sy5-2，工程sy5-2。 Option Explicit Private Sub Form_Click() Dim x% x = Int(Rnd * 9000 + 1000) If x Mod 6 = 0 Then Print x; 是6的倍数 Else Print x; 不是6的倍数 End If End Sub Private Sub Form_Load() Me.AutoRedraw = True Me.FontSize = 20 End Sub 设银行的定期存款利率为：一年期2.52%，二年期3.06%，三年期3.69%，五年期4.14%。请输入存款金额，并选择存款年限，编程计算到期利息。保存窗体sy5-3，工程sy5-3。 以上3题要求60分钟内完成 Option Explicit Private Sub Command1_Click() Dim money!, interest!, myYear%, rate! money = Val(Text1.Text) Select Case True Case Option1.Value myYear = 1 rate = 0.0252 Case Option2.Value myYear = 2 rate = 0.0306 Case Option3.Value myYear = 3 rate = 0.0369 Case Option4.Value myYear = 5 rate = 0.0414 End Select interest = money * (1 + rate) ^ myYear - money Text2.Text = Format(interest, 0.00) End Sub 实验教材中实验5中的5-4、5-5、5-6（P28-29）选作2题，要求20分钟内完成。第06次上机实验题目（循环结构） 利用一种循环语句计算1+2+3+……+100的结果。保存窗体sy6-1，工程sy6-1 Option Explicit Private Sub Form_Click() Dim i%, s% i = 1 Do While i = 100 s = s + i i = i + 1 Loop Print 1+2+……+100=; s End Sub Private Sub Form_Load() Me.AutoRedraw = True Me.FontSize = 20 End Sub 计算s=2!+4!+6!+……+12！的结果，结果显示窗口上。保存窗体sy6-2，工程sy6-2。 Option Explicit Private Sub Form_Click() Dim i%, j%, p#, s# For i = 2 To 12 Step 2 p = 1 For j = 1 To i p = p * j Next j s = s + p Next i Print 2!+4!+6!+……+12！=; s End Sub Private Sub Form_Load() Me.FontSize = 20 Me.AutoRedraw = True End Sub 产生10个100-999范围内的随机整数，找出其中的最大数、最小数，同时计算出这10个数的平均值。保存窗体sy6-3，工程sy6-3。 Option Explicit Private Sub Form_