修改时间:2024-07-12 浏览次数:157 类型:期中考试
Private Sub Command1_Click()
Dim x as '定义 x 为整型
x = Val(Text1.Text)
Then '条件语句
Text2.Text=
Else
Text2.Text = Str(0.2 + 0.1 * (x - 3))
End If
End Sub
小青用VB设计了如下图所示的程序界面:
Private Sub Command1_Click()
Dim ma as single
Dim mb as single
Dim s as single
Ma =10*30
Mb = 0.000001
For I = 1 to ①
Mb = ②
S= s + mb
Next I
Text1.text = str(ma)
Text2.text = str(s)
End sub
①应填的内容是 ,②中应填的内容是。
试题篮