小儿食指络脉浮露,色鲜红的提示
A.急惊风
B.疳积
C.实热
D.虚热
E.外感表证
第1题
A.32
B.33
C.34
D.35
第2题
设有如下程序:
Private Sub Form_C1ick()
Dim s As Long,f As Long
Dim n As Integer,i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后,单击窗体,输出结果是
A.32
B.33
C.34 0)35
第3题
设有如下程序: Private Sub Form. Click() Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后,单击窗体,则在窗体上显示的是()。
A.15
B.16
C.20
D.25
第4题
设有如下程序:
Private Sub Form. Click()
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(i)=i+l
sum=sum+ary(i)
Next i
Print sum
End Sub
程序运行后,单击窗体,则在窗体上显示的是()。
A.15
B.16
C.20
D.25
第5题
设有如下程序:
Private Sub Form. Click()
Dim i As Integer,x As String,y As String
x="ABCDEFG"
For i=4 To 1Step-1
y=Mid(X,i,i)+y
Next i
Print y
End Sub
程序运行后,单击窗体,输出结果为()。
A.ABCCDEDEFG
B.AABBCDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
第6题
下列程序的运行结果为______。Private Sub Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd Sub
A.100
B.500
C.2500
D.5000
第7题
设有如下程序: Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后,单击窗体,在窗体上显示的内容为______。
A.ABCDE 20 10
B.10 20 ABCDE
C.ABCDE 10 20
D.出错信息
第8题
设有如下程序: Option Base 1 Private Sub Form. Click() Dim a(5)As String,i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a,i) Next i End Sub Sub f(ta()As String,n As.Integer) Dim i As Integer For i=1 To n Print ta(i); Next i Print End Sub 对上述程序.以下叙述中正确的是()。
A.程序有错,因为在过程f的定义中数组参数格式不正确
B.程序可正常运行,输出内容的第一行是一个字母“A”
C.程序可正常运行,输出内容的第一行是一个字母“B”
D.程序可正常运行,输出内容的第一行是数字65
第9题
有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 <>0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后,单击窗体,输出结果为______。
A. 12
B.30
C.24
D.18
第10题
设有如下程序:
Private Sub Form. Click()
Cls
a$="1234j6"
For i=1 To 6
Print Tab(12-i);________
Next i
End Sub
程序运行后,单击窗体,要求结果如图所示,则在______处填入的内容为()。
A.Left(a$,i)
B.Mid(a$,8-i,i)
C.Right(a$,i)
D.Mid(a$,7,i)
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!