题目内容
(请给出正确答案)
[单选题]
代码段如下:dim N as integerN = 2N = N + 1Print N以上代码执行后,输出结果为()
A.1
B.2
C.3
D.4
答案
C、3
如果结果不匹配,请 联系老师 获取答案
A.1
B.2
C.3
D.4
C、3
编写如下通用过程: Sub proc(By Val num As Long,ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim n As Long, r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n,r Print r End Sub 程序运行后,单击命令按钮,在输入对话框中输入345,输出结果是【 】。
A.SUBSTR(学号,1,2)=′03′
B.SUBSTR(学号,2,2)=′03′
C.SUBSTR(学号,3,2)=′03′
D.SUBSTR(学号,4,2)=′03′
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字:") If Val(x)>4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。