在窗体画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为______。
A.Rght(c1, i)
B.Left(c1, i)
C.Mid(c1, i, 1)
D.Mid(c1, i, i)

未分类题有如下程序： 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 程序运行后，单击窗体，输出结果为______。D.18

未分类题在窗体上画4个文本框(如图16-8所示)，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i). Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为______。A.0 1 2 3B.1 2 3 4C.0 1 3 2D.出错信息

未分类题在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Conlmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图16-7所示。 编写如下程序： Private Sub Form_Load() Timer1. Enabled=False End Sub Private Sub Command1_Click() Timer1. Enabled=True End Sub Private Sub Command2_Click() Timer1. Enabled=False End Sub Private Sub Timer1_Timer() If Label1. Left＜Width Then Label1. Left=Label1. Left+20 Else Label1. Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是______。A.标签的移动方向为自右向左B.单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动D.标签按指定的时间间隔移动

未分类题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num＞6 Print num; num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。A.13. 45. 8B.135C.1 4 7D.无数据输出

未分类题有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______。A.15 0B.20 -1C.10 TrueD.10 False

未分类题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox('') For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。D.6

未分类题在窗体画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod j=0 Then Exit For Next j If j＞Sqr(i)Then Print i Next i End Sub 该事件过程的功能是______。D.输出n以内能被j整除的数

未分类题假设有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是______。D.Button=2表示按下的是鼠标左键

单项选择题以下是几种酸碱指示剂变色的pH范围①甲基橙3.1-4.4②甲基红4.4-6.2③酚酞8.2-10现用0.1000molL-1NaOH溶液滴定浓度相近的甲酸时上述指示剂 A、都可以用 B、只能用③ C、可以用①或② D、可以用②或③

多项选择题未按建设工程规划可证的规定进行建设的，可能受到的处罚有( )。