未知题型 窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Click() Dim a a=Array(1，2，3，4，5) For k=1 To 4 S=S+a(k) Next k Print S End SubD.120

判断题 计算机语言发展阶段有机器语言、汇编语言、高级语言三个阶段。

未知题型 下列程序段的执行结果为( )。 a=75 If a＞60 Then i=1 If a＞70 Then i=2 If a＞80 Then i=3 If a＜90 Then i=4 Print 'i='；iD.i=4

单项选择题 患儿，3岁。大便稀溏，食入即泻，面色萎黄。治疗应首选    A．保和丸    B．理中丸    C．四君子汤    D．参苓白术散    E．曲麦枳术丸

未知题型 下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(A)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End SubA.1 3 5 7 9 10B.-1-3-5-7-9C.-1 2-3 4-5 6-7 8-9 10D.1-2 3-4 5-6 7-8 9-10

多项选择题 工作中对操作者的安全防护包括身体的 A、面目 B、身体 C、四肢和手 D、听力

未知题型 在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a='宋体' Case 1 a='黑体' Case 2 a='楷体 GB2312' End Select Text =a End SubA.Option TextB.Index TextC.Index FontD.Option Font

未知题型 有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，B)Print x End SubD.100

单项选择题 在空间直角坐标系中,是( ) A. 圆 B. 球 C. 一点 D. 圆柱面

未知题型 下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X ______ If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；'Sum='；Sum End SubA.Int(Rnd*99+1) In arrB.Int(RnD)In arrC.Int(Rnd*99+1) In arr()D.Int(RnD)In arr()