不断提高纪检监察工作法制化的几点思考.docx

选修VB操作题
:在Text1中输入一个代表秒数的整数后,单击"计算"按钮后,在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入"3672",Label1、Label2、Label3中分别显示"1"、"1"、"12",即1小时1分12秒。
Private mand1_Click()
Dim h, m, s, ss As Integer
ss = Val(①)
h = ② ss\3600
m = (ss - h * 3600) \ 60
s = (ss - h * 3600) Mod ③ 60
= CStr(h)
= CStr(m)
= CStr(s)
End Sub
:用递归法求斐波那契数列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 mand1_Click()
Dim S As Integer
S = Fib(③) 10
Print "S=" & CStr(S)
End Sub
3.'填空完成程序,使得单击"显示"按钮后,随机产生10个属于区间[0,100)的自然数,
'并保存于数组a中,然后在窗体上显示这10个数中的最大值。
'(注:学生运算结果有可能跟样图中数值不一致。)
Private mand1_Click()
Dim a(9) As Integer
Dim max As Integer
Dim i As Integer

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 mand1_Click()
Dim t As Single '定义变量t,值由文本框Text1读入
t = Val(①) 答案→
If ② Then 答案→ t>60
= "超重!不能参赛!"
Else
= "合格,可以参赛!"
③答案→ End