输入19，输出的结果为 。
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s '将数字a转换成字符，连接在字符串s的左边
n =" n" \ 2
Loop
Print s
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s '将数字a转换成字符，连接在字符串s的左边
n =" n" \ 2
Loop
Print s
输出的结果为 。
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s
当输入21，输出结果是 。
Dim x as long
x=inputbox(“输入x的值”)
if x mod 10="1" then
if x mod 8="3" then
x=x-12
end if
else
x=x-7
end if
print x
Dim x as long
x=inputbox(“输入x的值”)
if x mod 10="1" then
if x mod 8="3" then
x=x-12
end if
else
x=x-7
end if
print x
小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：
Private Sub Command1_Click()
Dim x As String, i As Integer
For i =" 1" To 10
If i Mod x =" 1" Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub
产生此错误的语句是( )。
Private Sub Command1_Click()
Dim x As String, i As Integer
For i =" 1" To 10
If i Mod x =" 1" Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub
产生此错误的语句是( )。
| A．For | B．End If |
| C．Next | D．If |
程序修改题，每小题①②③④处有1处错误，找出并改正
| （1）下列程序的功能是在文本框Text1中显示变量a和b的较大值。 a = 1：b = 2 ① If a > b Then ② c = a Else ③ c = b End If ④ Text1.Caption = Str(c) 错误在______处，改为_______________。 | （2）下列程序的功能是标签Label1中显示1+2+3+…+10值。 Dim s As Integer Dim i As Integer ① s = 0 ② For i =" 1" To 10 ③ s = i Next i ④ Label1.Caption = Str(s) 错误在______处，改为_______________。 |