Dim j As Integer, k As Integer
List Clear
For k = 1 To 100
j = Int(Sqr(k))
If j * j = k Then list1.AddItem Str(k)
Next k
分析程序功能,该程序的功能是( )
s = 0
For a = To 8 Step 2
s = s + a
Next a
若要使语句s = s + a执行3次,则循环变量a初值为( )
①用OCR软件识别扫描图像
②用扫描仪扫描打印稿,获得扫描图像
③校对识别后的内容
④保存结果
正确的操作顺序是(填操作步骤的序号)
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
①应填的内容是 ,②中应填的内容是。