卓帆单机版vb操作题.doc

选修VB操作题 1.实现功能：在Text1中输入一个代表秒数的整数后，单击计算按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入3672，Label1、Label2、Label3中分别显示1、1、12，即1小时1分12秒。 Private Sub Command1_Click() Dim h, m, s, ss As Integer ss = Val(①) Text1.text h = ② ss\3600 m = (ss - h * 3600) \ 60 s = (ss - h * 3600) Mod ③ 60 Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s) End Sub 2.实现功能：用递归法求斐波那契数列1，1，2，3，5，8，…第10项的值。 Public Function Fib(n As Integer) As Integer If (n = 1) Or (n = 2) Then Fib = ① 1 Else Fib = Fib(n - 1) + Fib(n - 2) ② End if End Function Private Sub Command1_Click() Dim S As Integer S = Fib(③) 10 Print S= CStr(S) End Sub 3.填空完成程序，使得单击显示按钮后，随机产生10个属于区间[0，100）的自然数， 并保存于数组a中，然后在窗体上显示这10个数中的最大值。 (注：学生运算结果有可能跟样图中数值不一致。) Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer Me.Cls Print Randomize For i = 0 To ① Step 1 9 a(i) = Int(Rnd * 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max a(i) Then max = ② a(i) End If Next i Print 这10个自然数中的最大值=; CStr(③) max End Sub 4.举重比赛中，60公斤级选手体重不能超过60公斤。 填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示超重！不能参赛！； 当输入一个小于等于60的数时，标签Label1显示合格，可以参赛！。 Private Sub Command1_Click() Dim t As Single 定义变量t，值由文本框Text1读入 t = Val(①) 答案→ Text1.text If ② Then 答案→ t60 Label1.Caption = 超重！不能参赛！ Else Label1.Caption = 合格，可以参赛！ ③ 答案→ End if End Sub 5.实现功能：用穷举法找出所有的水仙花数的程序并保存。 水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 a = i \ ① 答案→ 100 b = (i - a * ②) \ 10 答案→ 100 c = i Mod 10 If a