编写如下程序：Private Sub Command1_Click()　　D...

单项选择题

窗体的MouseUp事件过程如下：Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)　　……End Sub关于以上定义，以下叙述中错误的是(　　)。

A．根据Shift参数，能够确定使用转换键的情况
B．根据X、Y参数可以确定触发此事件时鼠标的位置
C．Button 参数的值是在MouseUp事件发生时，系统自动产生的
D．MouseUp是鼠标向上移动时触发的事件

单项选择题

设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1，及下面的事件过程：Private Sub Form_Load()　　HScroll1.Min＝0　　HScroll1.Max＝100End SubPrivate Sub Command1_Click()　　HScroll1.Value＝70End Sub程序运行时单击命令按钮，则滚动条上滚动块位置的图示是(　　)。

A．
B．
C．
D．

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：Private Sub Command1_Click()　　Dim s1 As String， s2 As String　　Open "c：\d4.dat" For Append As #3　　Line Input #3， s1　　Line Input #3， s2　　Text1.Text＝s1＋s2　　Close End Sub该程序运行时有错误，应该进行的修改是(　　)。

A．将Open语句中的For Append改为For Input
B．将Line Input改为Line
C．将两条Line Input语句合并为Line Input #3， s1，s2
D．将Close语句改为Close #3

单项选择题

有如下程序：Private Sub Form_Click()　　Dim i As Integer， n As Integer　　For i＝1 To 20　　　　i＝i＋4　　　　n＝n＋i　　　　If i>10 Then Exit For　　Next　　Print nEnd Sub程序运行后，单击窗体，则输出结果是(　　)。

A．14
B．15
C．29
D．30

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click()　　Dim num As Integer， x As Integer　　num＝Val(InputBox("请输入一个正整数"))　　Select Case num　　　　Case Is>100　　　　　　x＝x＋num　　　　Case Is<90　　　　　　x＝num　　　　Case Else　　　　　　x＝x * num　　End Select　　Print x；End Sub运行程序，并在三次单击命令按钮时，分别输入正整数100、90和60，则窗体上显示的内容为(　　)。

A．0 0 0
B．0 0 60
C．0 90 0
D．100 0 60

单项选择题

编写如下程序：Private Sub Command1_Click()　　Dim m As Integer， n As Integer　　m＝1： n＝0　　Do While m<20　　　　n＝m＋n　　　　m＝3 * m＋1　　Loop　　Print m， nEnd Sub程序运行后，单击命令按钮Command1，输出结果为(　　)。

A．40 18
B．40 19
C．20 64
D．21 64

单项选择题

下列循环中，可以正常结束的是(　　)。

A．i＝10 Do i＝i＋1 Loop Until i<1
B．i＝1 Do i＝i＋1 Loop Until i＝10
C．i＝10 Do i＝i＋1 Loop While i>1
D．i＝10 Do i＝i－2 Loop Until i＝1

单项选择题

现有程序如下：Option Base 1Private Sub Form_Click()　　Dim x(5， 6)As Integer， y(5)As Integer　　For i＝1 To 5　　　　For j＝1 To 6　　　　　　x(i， j)＝Int(Rnd * 9＋1)　　　　Next j　　Next i　　Call f(5， 6， x， y)　　For i＝1 To 5　　　　Print y(i)；　　Next iEnd SubSub f(m As Integer， n As Integer， a()As Integer， b()As Integer)　　For i＝1 To m　　　　b(i)＝0　　　　For j＝1 To n　　　　 b(i)＝b(i)＋a(i， j)　　　　Next j　　Next iEnd Sub关于上述程序，以下叙述中正确的是(　　)。

A．调用过程语句有错，参数不匹配
B．程序有错，数组下标越界
C．y数组中保存的是x数组每行数据之和
D．x数组中数据的取值范围是1－10

单项选择题

窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer()　　ch＝Chr(n＋Asc("A"))　　Label1.Caption＝ch　　n＝n＋1　　n＝n Mod 4End Sub运行程序，将在标签中( )。

A．不停地依次显示字符"A"、"B"、"C"、"D"，直至窗体被关闭
B．依次显示字符"A"、"B"、"C"、"D"各一次
C．每隔1秒显示字符"A"一次
D．每隔1秒依次显示26个英文字母中的一个

单项选择题

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。

A．Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button＝1 Then Label1＝"X＝" & X & " Y＝" & Y End If End Sub
B．Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button＝1 Then Label1＝"X＝" & X & " Y＝" & Y End If End Sub
C．Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button＝1 Then Label1＝"X＝" & X & " Y＝" & Y End If End Sub
D．Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) Label1＝"X＝" & X & " Y＝" & Y End Sub

单项选择题

窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：Private Sub Command1_Click()　　n%＝List1.ListIndex　　If n>0 Then　　　　ch$＝List1.List(n)　　　　List1.List(n)＝List1.List(n－1)　　　　List1.List(n－1)＝ch　　End IfEnd Sub程序运行时，选中1个列表项，然后单击Command1按钮，则产生的结果是(　　)。

A．若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置
B．选中的列表项与它前面的列表项互换位置
C．若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置
D．选中的列表项与它后面的列表项互换位置

单项选择题

在窗体上画一个名称为Text1的文本框，并编写如下程序：Option Base 1Private Sub Form_Click()　　Dim arr　　Dim Start As Integer， Finish As Integer　　Dim Sum As Integer　　arr＝Array(12， 4， 8， 16)　　Start＝LBound(arr)　　Finish＝UBound(arr)　　Sum＝0　　For i＝Start To Finish　　　　Sum＝Sum＋arr(i)　　Next i　　c＝Sum / Finish　　Text1.Text＝cEnd Sub运行程序，单击窗体，则在文本框中显示的是(　　)。

A．40
B．10
C．12
D．16

单项选择题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：Private Sub Command1_Click()　　Dim arr(10)　　For i＝6 To 10　　　　arr(i)＝i－5　　Next i　　Label1.Caption＝arr(0)＋arr(arr(10)/ arr(6))End Sub运行程序，单击命令按钮，则在标签中显示的是(　　)。

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

单项选择题

以下合法的VB变量名是(　　)。

A．_x
B．2y
C．a#b
D．x_1_x

单项选择题

以下关于VB特点的叙述中，错误的是(　　)。

A．VB中一个对象可有多个事件过程
B．VB应用程序能以编译方式运行
C．VB应用程序从Form_Load事件过程开始执行
D．在VB应用程序中往往通过引发某个事件导致对对象的操作

单项选择题

Print Format(1234.56， "###.#")语句的输出结果是(　　)。

A．123.4
B．1234.6
C．1234.5
D．1234.56

单项选择题

Print Right("VB Programming"， 2)语句的输出结果是(　　)。

A．VB
B．Programming
C．ng
D．2

编写如下程序：Private Sub Command1_Click() Dim m As Integer， n As Integer m＝1： n＝0 Do While m<20 n＝m＋n m＝3 * m＋1 Loop Print m， nEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。

你可能感兴趣的试题

一棵二叉树中共有80个叶子结点与70个度为1的结点，则该二叉树中的总结点数为

下列叙述中正确的是

对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为

软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是

构成计算机软件的是

下列叙述中正确的是

下面不能作为结构化方法软件需求分析工具的是

若实体A和B是一对多的联系，实体B和C是一对一的联系，则实体A和C的联系是

在关系模型中，每一个二维表称为一个

假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是( )。

下列操作中不能向工程添加窗体的是( )。

下列关于顺序文件的描述中，正确的是( )。

下列操作说明中，错误的是( )。

以下关于变量作用域的叙述中错误的是( )。

下面关于文件叙述中错误的是( )。

要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是( )。

如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是( )。

列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是( )。

为了使一个复选框被禁用(灰色显示)，应把它的Value属性设置为( )。

下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( )。

下列事件的事件过程中，参数是输入字符ASCII码的是( )。

以下关于单选按钮和复选框的叙述中，正确的是( )。

窗体的MouseUp事件过程如下：Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single) ……End Sub关于以上定义，以下叙述中错误的是( )。

有如下程序：Private Sub Form_Click() Dim i As Integer， n As Integer For i＝1 To 20 i＝i＋4 n＝n＋i If i>10 Then Exit For Next Print nEnd Sub程序运行后，单击窗体，则输出结果是( )。

编写如下程序：Private Sub Command1_Click() Dim m As Integer， n As Integer m＝1： n＝0 Do While m<20 n＝m＋n m＝3 * m＋1 Loop Print m， nEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。

下列循环中，可以正常结束的是( )。

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是( )。

以下合法的VB变量名是( )。

以下关于VB特点的叙述中，错误的是( )。

Print Format(1234.56， "###.#")语句的输出结果是( )。

Print Right("VB Programming"， 2)语句的输出结果是( )。

编写如下程序：Private Sub Command1_Click()　　Dim m As Integer， n As Integer　　m＝1： n＝0　　Do While m<20　　　　n＝m＋n　　　　m＝3 * m＋1　　Loop　　Print m， nEnd Sub程序运行后，单击命令按钮Command1，输出结果为(　　)。

假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是(　　)。

下列操作中不能向工程添加窗体的是(　　)。

下列关于顺序文件的描述中，正确的是(　　)。

下列操作说明中，错误的是(　　)。

以下关于变量作用域的叙述中错误的是(　　)。

下面关于文件叙述中错误的是(　　)。

要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是(　　)。

如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是(　　)。

列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是(　　)。

为了使一个复选框被禁用(灰色显示)，应把它的Value属性设置为(　　)。

下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是(　　)。

下列事件的事件过程中，参数是输入字符ASCII码的是(　　)。

以下关于单选按钮和复选框的叙述中，正确的是(　　)。

窗体的MouseUp事件过程如下：Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)　　……End Sub关于以上定义，以下叙述中错误的是(　　)。

有如下程序：Private Sub Form_Click()　　Dim i As Integer， n As Integer　　For i＝1 To 20　　　　i＝i＋4　　　　n＝n＋i　　　　If i>10 Then Exit For　　Next　　Print nEnd Sub程序运行后，单击窗体，则输出结果是(　　)。

编写如下程序：Private Sub Command1_Click()　　Dim m As Integer， n As Integer　　m＝1： n＝0　　Do While m<20　　　　n＝m＋n　　　　m＝3 * m＋1　　Loop　　Print m， nEnd Sub程序运行后，单击命令按钮Command1，输出结果为(　　)。

下列循环中，可以正常结束的是(　　)。

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。

以下合法的VB变量名是(　　)。

以下关于VB特点的叙述中，错误的是(　　)。

Print Format(1234.56， "###.#")语句的输出结果是(　　)。

Print Right("VB Programming"， 2)语句的输出结果是(　　)。