皮皮学，免费搜题
登录
搜题
【单选题】
The enlarged school campus is the old one.A.
as three times big as
B.
three times as big as
C.
big three times than
D.
as big as three times
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈参考答案：
举一反三
【单选题】为早期诊断，可在新生儿期进行筛查的遗传代谢内分泌疾病包括
A.
21-三体综合征，先天性甲状腺功能减低症
B.
21-三体综合征，苯丙酮尿症
C.
先天性甲状腺功能减低症，苯丙酮尿症
D.
先天性甲状腺功能减低症
E.
苯丙酮尿症
【单选题】程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer,k As Integer Dim a(9) As Integer,p(2)As Integer k=5 For i=0 To 9 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i...
A.
20
B.
21
C.
22
D.
23
【单选题】在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click x=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1 x=x+20 End Sub Private Sub s2 Dim x As Integer x=x+20 End Sub 窗体打...
A.
10
B.
30
C.
40
D.
50
【单选题】程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。 Private Sub Command1_Click() Dim Y As Integer，I As Integer Dim A(7)As Integer Y=18：I=0 Do A(I)=Y Mod 2 I=I+1 Y=Y/2 Loop Until Y＜1 For j=I-1 To 0 Step-1 Print A(...
A.
1 0 0 0
B.
1 0 0 1 0
C.
0 0 1 1 0
D.
1 0 1 0 0
【单选题】程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub
A.
2 5 8
B.
7 4 1
C.
8 5 2
D.
3 6 9
【单选题】在窗体中有一个标签Labele，标题为“测试进行中”：有一个命令按钮Commandl，事件代码如下： Private Sub Commandl_Click() Labele.Caption＝“标签” End Sub Private Sub Form_Load() Form.Caption＝“举例” Commandl.Caption＝“移动” End Sub 打开窗体后，单击命令按钮，屏幕显示( )...
A.
B.
C.
【简答题】脱式计算。 （1）32÷（65-57） （2）72÷9×4 （3）6×7-42
【单选题】已知c:/1．txt是一个非空文件，其程序代码如下。 Private Sub Command1_Click() Dim MaxSize，NextChar，MyChat Open'c:/1．txt'For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 Seek #1，NextChar MyChar=Input(1，#1) Nex...
A.
True
B.
Null
C.
0
D.
False
【单选题】单击命令按钮之后，下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S： End Sub
A.
20
B.
30
C.
115
D.
135
【单选题】设有如下程序： 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
相关题目：
参考解析：
知识点：
题目纠错 0
发布
