未知题型 下列程序运行时输出的结果是( )。 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()

多项选择题 建设工程勘察、设计注册执业人员同时受聘于2个以下建设工程勘察、设计单位，从事建设工程勘察、设计活动的，可以( )。

单项选择题 根据原砂的基本组成，铸造用砂可分为石英砂和非石英砂两类。（ ）

问答题 三维动画的一般制作流程包括：模型、__________、__________、__________、动画、灯光、特效、渲染输出。

未知题型 王某，P省Q市R区人，经常居住该市S区。2002年1月，王某在L省M市N区窃得他人自行车一辆，价值240元，后被M市公安局查获。M市劳动教养管理委员会(位于M市K区)于2002年2月26日决定对王某劳动教养一年。王某对劳动教养决定不服，向M市人民政府申请行政复议。M市人民政府对王某的复议申请在法定期间内未作复议决定，直至2002年6月王某仍未能得到任何答复。王某遂向P省Q市R区人民法院提起诉讼。2002年7月 5日M市劳动教养管理委员会收到起诉状副本和应诉通知后，认为R区人民法院无管辖权，但还是于7月24日向R区人民法院提交了答辩状、部分证据以及作出劳动教养决定的依据，即M市公安局法制办公室制作的关于盗窃、诈骗两类劳教案件标准的文件。R区人民法院经审理作出一审判决，撤销劳动教养决定。M市劳动教养管理委员会不服，遂提起上诉。二审法院作出维持一审判决的终审判决。本案中王某对劳动教养决定不服依法( )人民法院起诉。E.只能向Q市