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