12.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是 A、2 B、3 C、4 D、5
A B C D
13.在窗体上画一个名称为Command1命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j) Next Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是 A、1 2 3 2 4 6 3 6 9 B、2 3 4 3 4 5 4 5 6 C、1 4 7 2 5 8 3 6 9 D、1 2 3 4 5 6 7 8 9
15.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1_Click() Dim x,y,z As Integer x = 5 y = 7 z = 0 Text1.Text = "" Call P1(x,y,z) Text1.Text = Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c = a + b End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的内容是____。 A、0 B、12 C、Str(z) D、没有显示
31.有一个分段函数,当X<0时,Y=-1;当X=0时,Y=0;当X>0时,Y=1。该分段函数在程序段中可表达为: A、If X<0 Then Y=-1 If X=0 Then Y=0 Else Y=1 B、If X>0 Then Y=1 If X=0 Then Y=0 Else Y=-1 C、If X<0 Then Y=-1 ElseIf X=0 Then Y=0 Else Y=1 D、If X<0 Then Y=-1 ElseIf X=0 Then Y=0 Else Y=1
A B C D
32.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click() a = "ABBACKDIEKEI" For I = 9 To 2 Step -3 x = Mid(a, I, I) y = Left(a, I) z = Right(a, I) z = x & y & z Next I Print z End Sub
6.在窗体上画两个标签,其名称分别为Label1和Label2,Caption属性分别为"数值"及空白;然后画一个名称为Hscroll1的水平滚动条,其Min的值为0,Max的值为100。程序运行后,如果单击滚动条两端的箭头,则在标签Label2中显示滚动条的值。请在____处填入适当的内容,将程序补充完整。 Private Sub HScroll1._____ Label2.Caption = HScroll1.____ End Sub
输入答案,中间不含空格:
7.上一题
输入答案,中间不含空格:
8.在窗体上画一个名称为Command1、标题为"计算"的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为"操作数1"、"操作数2"、"运算结果"和空白;再建立一个含有4个单选按钮的控件数组,名称为Option1,标题分别为"+"、"-"、"*"和"/"。程序运行后,在Text1、Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Label4中。请在____处填入适当的内容,将程序补充完整。 Private Sub Command1_Click() For i = 0 To 3 If ____ = True Then opt = Option1(i).Caption End If Next Select Case ____ Case "+" Result = Val(Text1.Text) + Val(Text2.Text) Case "-" Result = Val(Text1.Text) - Val(Text2.Text) Case "*" Result = Val(Text1.Text) * Val(Text2.Text) Case "/" Result = Val(Text1.Text) / Val(Text2.Text) End Select ____ = Result End Sub
12.以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在____处填入适当的内容,将程序补充完整。 Private Sub Form_Click() Dim x AS Single,amax As Single,amin As Single x = InputBox("Enter a score") amax = x amin = x Do While ______ If x > amax Then amax = x End If If ______ Then amin = x End If x = InputBox("Enter a score") Loop Print "Max=";amax,"Min=";amin End Sub
输入答案,中间不含空格:
13.上一题
输入答案,中间不含空格:
14.在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Label1中显示所选中的项目,如图所示。请在____处填入适当的内容,将程序补充完整。 Private Sub Form_load() List1.AddItem"北京" List1.AddItem"上海" List1.AddItem"河北" End Sub Private Sub ____() Label1.Caption = ____ End Sub
31.有一个分段函数,当X<0时,Y=-1;当X=0时,Y=0;当X>0时,Y=1。该分段函数在程序段中可表达为: A、If X<0 Then Y=-1 If X=0 Then Y=0 Else Y=1 B、If X>0 Then Y=1 If X=0 Then Y=0 Else Y=-1 C、If X<0 Then Y=-1 ElseIf X=0 Then Y=0 Else Y=1 D、If X<0 Then Y=-1 ElseIf X=0 Then Y=0 Else Y=1
A B C D
32.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click() a = "ABBACKDIEKEI" For I = 9 To 2 Step -3 x = Mid(a, I, I) y = Left(a, I) z = Right(a, I) z = x & y & z Next I Print z End Sub
6.在窗体上画两个标签,其名称分别为Label1和Label2,Caption属性分别为"数值"及空白;然后画一个名称为Hscroll1的水平滚动条,其Min的值为0,Max的值为100。程序运行后,如果单击滚动条两端的箭头,则在标签Label2中显示滚动条的值。请在____处填入适当的内容,将程序补充完整。 Private Sub HScroll1._____ Label2.Caption = HScroll1.____ End Sub
输入答案,中间不含空格:
7.上一题
输入答案,中间不含空格:
8.在窗体上画一个名称为Command1、标题为"计算"的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为"操作数1"、"操作数2"、"运算结果"和空白;再建立一个含有4个单选按钮的控件数组,名称为Option1,标题分别为"+"、"-"、"*"和"/"。程序运行后,在Text1、Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Label4中。请在____处填入适当的内容,将程序补充完整。 Private Sub Command1_Click() For i = 0 To 3 If ____ = True Then opt = Option1(i).Caption End If Next Select Case ____ Case "+" Result = Val(Text1.Text) + Val(Text2.Text) Case "-" Result = Val(Text1.Text) - Val(Text2.Text) Case "*" Result = Val(Text1.Text) * Val(Text2.Text) Case "/" Result = Val(Text1.Text) / Val(Text2.Text) End Select ____ = Result End Sub
12.以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在____处填入适当的内容,将程序补充完整。 Private Sub Form_Click() Dim x AS Single,amax As Single,amin As Single x = InputBox("Enter a score") amax = x amin = x Do While ______ If x > amax Then amax = x End If If ______ Then amin = x End If x = InputBox("Enter a score") Loop Print "Max=";amax,"Min=";amin End Sub
输入答案,中间不含空格:
13.上一题
输入答案,中间不含空格:
14.在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Label1中显示所选中的项目,如图所示。请在____处填入适当的内容,将程序补充完整。 Private Sub Form_load() List1.AddItem"北京" List1.AddItem"上海" List1.AddItem"河北" End Sub Private Sub ____() Label1.Caption = ____ End Sub