①用扫描仪扫描照片，并保存为JPEG格式的图像文件
②与朋友一起联网玩围棋游戏
③利用OCR软件识别数码图片中的文字，并保存为文本文件
④用手机编辑短信，以联机手写的方式输入短信的内容
⑤通过视频会议系统进行远程教学研讨（ ）
”，对该图层进行隐藏
Function fac(n As Integer) As Long
fac = 1
For i = 1 To n
fac = fac * i
Next i
End Function
Private Sub Command1Click()
Dim s As Long, j As Integer
For j = 1 To 10
Next
Text1.Text = Str(s)
End Sub
方框中的正确语句是：（ ）
（提示：所占销量比=当前销量/总销量*100）
图2
①共八位字符，前两位为字母“zj”，后六位是数字，并以66开头（即密码格式为zj66****）；
②最后两位数字相同；
③后六位数能被16和46同时整除。
单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。
|
Private Sub Command1Click()
Dim s As Long , a As Integer, b As Integer, c As Integer, i As Integer
For i = 0 To 9999
s = 660000 + i
If ① And s Mod 46 = 0 Then
'（选填字母，从下列A、B 、C、D四个选项中选取一项）
a = s Mod 10
b = (s Mod 100) \ 10
If ② Then '（选填字母，从下列A、B 、C、D四个选项中选取一项）
List1.AddItem ("zj" + Str(s))
c = ③ '（填程序代码）
End If
End If
Next i
Label1.Caption = "共有" + Str(c) + "个"
End Sub
划线①、②处的选项：
A．s Mod 16 = 0 B．s \ 16 = 0 C．a < > b D．a = b
单击“计算”按钮Command1后，则在文本框Text2中显示的内容是，在文本框Text3中显示的内容是。
Private Sub Command1Click()
Dim s As Integer, t As Integer, n As Integer
n = Val(Text1.Text)
t = 0
s = 0
For i = 1 To n
If Int(Sqr(i)) = Sqr(i) Then
s = s + i
t = t + 1
End If
Next i
Text2.Text = Str(t)
Text3.Text = Str(s)
End Sub
实现上述功能的VB程序如下，但加框处代码有错误，请改正。
Dim a(1 To 15) As Integer
Dim n As Integer 'n为计数器
Dim key As Integer 'key存放筛选条件的数字部分
Dim f As String 'f存放筛选天健的符号部分：大于号或者小于号
Private Sub FormLoad()
Randomize
For i = 1 To 15
a(i) = Int(Rnd * 100)
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1Click()
Dim c As Integer
Dim st As String
n = 0
c = Len(st)
f = Mid(st, 1, 1)
If f = "<" Then Se2 '调用过程
If f = ">" Then Se1 '调用过程
Label2.Caption = "有" + Str(n) + "个筛选结果"
End Sub
Private Sub Se1() '筛选过程1
For i = 1 To 15
If a(i) > key Then
List2.AddItem Str(a(i))
n = n + 1
End If
Next i
End Sub
Private Sub Se2() '筛选过程2
For i = 1 To 15
List2.AddItem Str(a(i))
n = n + 1
End If
Next i
End Sub
图5