题库
题库
A．在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”）
B．菜单中的横线是在该菜单项的标题输入框中输入了一个“－”（减号）字符
C．在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”）
D．在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”
| 单选题 | 在Visual Basic中，表达式3* 2\5 Mod 3的值是 | 查看答案 |
| 单选题 | 设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas，两个窗体上分别只有一个名称Command1的命令按钮。 Form1的代码如下： Public X As Integer Private Sub Form_load() x=1 y=5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2的代码如下： Private Sub Command1_Ciick() Print Form1.x,y End Sub Module1的代码如下： Public y As Integer 运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是 |
查看答案 |
| 单选题 | 窗体上有一个名称为Command1的命令按钮，其事件过程如下： Private Sub Command1_Click() x=“VisualBasicProgramming” a=Right(x,11) b=Mid(x,7,5) C=Msgbox(a, , b) End Sub 运行程序后单击命令按钮，以下叙述中错误的是 |
查看答案 |
| 单选题 | 窗体上有一个名称为Picture1图片框控件，一个名称Label1的标签控件。如图所示。 现有如下程序： Public Sub display (x As Control) If TypeOf x is Label Then x.Caption=“计算机等级考试” Else  x.Picture = Loadpicture(“pic.jpg”) EndIf End Sub Private Sub Label1_Click() Call display(Label1) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是 |
查看答案 |
| 单选题 | 窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序： Private Sub Command1_ClickO Call Cale (HV.Value, HT.Value) End Sub  Public Sub Cale(x AS Integer , y AS Integer) Text1.Text = x* y End Sub 运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是 |
查看答案 |
| 单选题 | 设有如图所示窗体和以下程序： Private Sub Command1_Click() Textl.Text=“Visual Basic” EndSub  Private Sub Text1_LostFocus() If Text1.Text <>“BASIC”Then Text1.Text=”” Text1.SetFocus End If End Sub 程序运行时，在Text1文件框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是 |
查看答案 |
| 单选题 | 对长度为n的线性表排序，在最坏的情况下，比较次数不是n(n-1)/2的排序方法是 | 查看答案 |
| 单选题 | 算法的有穷性是指 | 查看答案 |
| 单选题 | 窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。下面能够实现上述操作的事件过程是 | 查看答案 |
| 单选题 | 下列关于栈的叙述正确的是 | 查看答案 |
| 单选题 | 窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。 命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2  CD1.Acti_dj=5 Case 3 End End Select End Sub 对上述程序，下列叙述中错误的是 |
查看答案 |
| 单选题 | 现有如下程序： Private Sub Command1_ Click() S=0 For i=1 to 5 S=S+f(5+i)  Next Print S End Sub Public Function f(x As Integer) If x>=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是 |
查看答案 |
| 单选题 | 若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是 | 查看答案 |
| 单选题 | 设窗体上有一个标签Labell和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是 | 查看答案 |
| 单选题 | 以下数组定义语句中，错误的是 | 查看答案 |
| 单选题 | 设有表示学生选课的三张表，学生S（学号，姓名，性别，年龄，身份证号），课程（课号，课名），选课SC（学号，课号，成绩），则表SC的关键字（键或码）为 | 查看答案 |
| 单选题 | 文本框Text1的KeyDown事件过程如下： Private SubText1_ KeyDown(KeyCode As Integer, Shift As Integer) End Sub 其中参数KeyCode的值表示的是发生此事件时 |
查看答案 |
| 单选题 | 程序流程图中带有箭头的线段表示的是 | 查看答案 |
| 单选题 | 在软件开发中，需求分析阶段产生的主要文档是 | 查看答案 |
| 单选题 | 某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 TO 10 a(K)=InputBox(“输入一个整数”) Next k Max=0 For k=1 To 10 If a(k)＞max Then Max = a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是 |
查看答案 |