在窗体上有4个控件如图4所示，各控件的名称与其标题相同，并有如下程序： ...

单项选择题

执行以下程序后输出的是
Private Sub Command1_Click()
Ch$="ABCDEFGH"
Print Mid(Right(Ch$,6), Len(Left(Ch$,4)),2)
End Sub

A．CDEFGH
B．ABCD
C．FG
D．AB

单项选择题

某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下(希望在程序运行时，可以每2秒在标签上显示一次系统当前时间)：
Private Sub Timer1_Timer()
Label1.Caption=Time$
End Sub
在程序执行时发现未能实现上述目的，那么应做的修改是

A．通过属性窗口把计时器的Interval属性设置为2000
B．通过属性窗口把计时器的Enabled属性设置为False
C．把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D．把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

单项选择题

假定有如下的命令按钮(名称为Command1)事件过程：
Private Sub Command1_Click()
x=InputBox("输入:", "输入整数")
MsgBox"输入的数据是:", ,"输入数据:"+x
End Sub
程序运行后，单击命令按钮，如果从键盘上输入整数10，则下列叙述中错误的是

A．x的值是数值10
B．输入对话框的标题是"输入整数"
C．信息框的标题是"输入数据:10"
D．信息框中显示的是"输入的数据是:"

单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
Option Base 0
Private Sub Command1_Click()
Dim A(4) As Integer, B(4) As Integer
For k=0 To 2
A(k+1)=InputBox("请输入一个整数")
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为

A．0
B．2
C．3
D．4

单项选择题

为计算aⁿ的值，某人编写了函数power如下：
Private Function power(a As Integer, n As Integer) As Long
Dim p As Long
p=a
For k=1 To n
p=p*a
Next k
power=p
End Function
在调试时发现是错误的，例如Print power(5, 4)的输出应该是625，但实际输出是3125，程序需要修改。下面的修改方案中有3个是正确的，错误的是

A．把For k=1 To n改为For k=2 to n
B．把p=p*a改为p=p^n
C．把For k=1 To n改为For k=1 To n-1
D．把p=a改为p=1

单项选择题

在窗体上有4个控件如图4所示，各控件的名称与其标题相同，并有如下程序：

Private Sub Form_Load()
ODtion1.Value=True
Option2.Value=True
Check1.Value=1
Check2.Value=1
End Sub
刚运行程序时，看到的窗体外观是

单项选择题

在窗体上画一个名称为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 i
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是

A．5
B．4
C．3
D．2

单项选择题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：
Private Sub Command1_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是

A．11
B．12
C．16
D．20

单项选择题

有一个名称为Form1的窗体，上面没有控件，设有以下程序(其中方法Pset(X，Y)的功能是在坐标X、Y处画一个点)：
Dim cmdMave AS Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdmave=True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If cmdmave Then
Form1.Pset(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdmave=False
End Sub
此程序的功能是

A．每按下鼠标键一次，在鼠标所指位置画一个点
B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i, Num
Randomize
Do
For i=1 To 1000
Num=Int(Rnd*100)
Print Num;
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65,68,92
End
End Select
Next i
Loop
End Sub
上述事件过程执行后，下列叙述中正确的是

A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭，程序结束

单项选择题

设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下：
Public x As Integer
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Form_Load()
x=1
y=5
End Sub
Form2的代码如下：
Private Sub Command1_Click()
Print Form1.x,y
End Sub
Module1的代码如下：
Public y As Integer
运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是

A．1 5
B．0 5
C．0 0
D．程序有错

单项选择题

在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，其外观如图1所示。编写如下程序：

Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x,y)
End Sub
Function f(ByVal x As Integer, ByVal y As Integer)
Do While v＜＞0
tmp=x Mod y
x=y
y=tmp
Loop
t=x
End Function
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是

单项选择题

窗体上有一个名称为List1的列表框，其中已经输入了若干个项目(如图2所示)：还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序：

Private Sub Command1_Click()
Dim str As String, s As String, k As Integer
s=Text1
Str=""
For k=List1.ListCount-1 to 0 Step -1
If InStr(List.List(k), s)＞0 then
str=str&List.List(k)&""
End If
Next k
If str="" Then
Text2="没有匹配的项目"
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是

单项选择题

为达到把a、b中的值交换后输出的目的，某人编程如下：
Private Sub Command1_Click()
a%=10:b%=20
Call swap(a,b)
Print a,b
End Sub
Private Sub swap(ByVal a As Integer, ByVal b As Integer)
c=a:a=b:b=c
End Sub
在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是

A．调用swap过程的语句错误，应改为：Call swap a,b
B．输出语句错误，应改为：Print "a","b"
C．过程的形式参数有错，应改为：swap(ByRef a As Integer, ByRef b As Integer)
D．swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

在窗体上有4个控件如图4所示，各控件的名称与其标题相同，并有如下程序： Private Sub Form_Load() ODtion1.Value=True Option2.Value=True Check1.Value=1 Check2.Value=1 End Sub 刚运行程序时，看到的窗体外观是

你可能感兴趣的试题

执行以下程序后输出的是 Private Sub Command1_Click() Ch$="ABCDEFGH" Print Mid(Right(Ch$,6), Len(Left(Ch$,4)),2) End Sub

以下关系表达式中，其值为False的是

若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是

用树状结构表示实体之间联系的模型是

为了使模块尽可能独立，要求

下列对于软件测试的叙述中正确的是

对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为

为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是

对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是

下列关于栈的叙述中错误的是

下列对于线性链表的叙述中正确的是

下列叙述中错误的是

数据独立性是数据库技术的重要特点之一。所谓数据独立性是指

窗体上有一个用菜单编辑：器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单。如图3所示。下列叙述中错误的是

数据的存储结构是指

下列叙述中正确的是

以下可以作为Visual Basic变量名的是

若设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是

下列关于文件的叙述中错误的是

为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为

要使一个文本框可以显示多行文本，应设置为True的属性是

下列数组定义语句中，错误的是

假定有如下的命令按钮(名称为Command1)事件过程： Private Sub Command1_Click() x=InputBox("输入:", "输入整数") MsgBox"输入的数据是:", ,"输入数据:"+x End Sub 程序运行后，单击命令按钮，如果从键盘上输入整数10，则下列叙述中错误的是

在窗体上有4个控件如图4所示，各控件的名称与其标题相同，并有如下程序： Private Sub Form_Load() ODtion1.Value=True Option2.Value=True Check1.Value=1 Check2.Value=1 End Sub 刚运行程序时，看到的窗体外观是

在窗体上有4个控件如图4所示，各控件的名称与其标题相同，并有如下程序：

Private Sub Form_Load()
ODtion1.Value=True
Option2.Value=True
Check1.Value=1
Check2.Value=1
End Sub
刚运行程序时，看到的窗体外观是

执行以下程序后输出的是
Private Sub Command1_Click()
Ch$="ABCDEFGH"
Print Mid(Right(Ch$,6), Len(Left(Ch$,4)),2)
End Sub

假定有如下的命令按钮(名称为Command1)事件过程：
Private Sub Command1_Click()
x=InputBox("输入:", "输入整数")
MsgBox"输入的数据是:", ,"输入数据:"+x
End Sub
程序运行后，单击命令按钮，如果从键盘上输入整数10，则下列叙述中错误的是

在窗体上有4个控件如图4所示，各控件的名称与其标题相同，并有如下程序：

Private Sub Form_Load()
ODtion1.Value=True
Option2.Value=True
Check1.Value=1
Check2.Value=1
End Sub
刚运行程序时，看到的窗体外观是