(1)某省实施《中华人民共和国道路交通安全法》办法中规定,机动车驾驶人驾驶机动车超过规定时速但未超过百分之五十的,处于二百元罚款。超过百分之五十(未造成交通事故)的,处五百元罚款,每多超过五公里,加处二百元罚款,不足五公里的忽略不计,但最高罚款不得超过二千元。用于计算罚款额的Visual Basic程序如下:
Private Sub Command1_Click()
Dim v0 As Integer, v As Integer, x As Integer
v0 = Val(Text1.Text) 'v0 存储规定速度
v = Val(Text2.Text) 'v存储实际速度
If v > v0 And v <= 1.5 * v0 Then
x = 200
ElseIf v > 1.5 * v0 Then
x =" 500" + Int((v - 1.5 * v0) / 5) * 200
Else
x = 0
End If
If x > 2000 Then x = 2000
Label1.Caption = Str(x)
End Sub
(1)运行该程序时,在Text1文本框中输入50,在Text2文本框中输入60,点击Command1时,在Label1的Caption上显示的罚款金为 。
(2)如下一段Visual Basic程序:
Private Sub Command1_Click()
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val(Text1.text)
sum = 0
For i =" 1" To n
x = Int(Sqr(i))
If x * x =" i" Then sum =" sum" + x
Next i
Label1.Caption = Str(sum)
End Sub
在Text1框中输入10时,点击Command1时,Label1上显示的是 。