|
(单选题)1: 下列哪种说法正确的是（ ）。 A: 通用对话框是Visual Basic 6.0的内部标准控件 B: 要使用CommonDialog控件，必须在“工程”菜单下的“部件”对话框中选定“Microsoft Common Dialog Control 6.0” C: 打开“部件”对话框只有一种方法 D: 程序运行过程中，通用对话框在窗体中是可见的 (单选题)2: 设a=3,b=5,则以下表达式值为真的是（ ）。 A: a>=b And b>10 B: a>b) or (b>0) C: (a<0) Eqv (b>0) D: (-3=5>a) And (b>0) (单选题)3: 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。 A: 12 B: 13 C: 14 D: 15 (单选题)4: 在窗体上画一个名称为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: 1 3.4 5.8 B: 1 3 5 C: 1 4 7 D: 无数据输出 (单选题)5: 设组合框Combo1中有三个项目，则以下能删除最后一项的语句是（ ）。 A: Combo1.RemoveItem Text B: Combo1.RemoveItem 2 C: Combo1.RemoveItem 3 D: Combo1.RemoveItem Combo1.Listcount (单选题)6: 为了把一个记录型变量的内容写入文件中指定的位置，要使用语句（ ）。 A: Get文件号，记录号，变量名 B: Get文件号，变量名，记录号 C: Put文件号，变量名，记录号 D: Put文件号，记录号，变量名 (单选题)7: 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array (1,2,3,4) j = 1 For i = 4 To 1 Step - 1 s = s + a (i) * j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是（ ）。 A: 4321 B: 1234 C: 34 D: 12 (单选题)8: 窗体上有一组合框Combol,窗体加载时的代码如下： Private Sub Form_Load() Combol. AddItem“电视机” Combol. AddItem“录像机” Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框Textl中显示列表中的第三个项目，则正确的语句的是（ ）。 A: Textl.Text=Combol.List(0) B: Textl.Text=Combol.List(1) C: Textl.Text=Combol.List(2) D: Textl.Text=Combol.List(3) (单选题)9: 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2,4,6 x = 20 Case Is<10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。 A: 10 B: 20 C: 30 D: 40 (单选题)10: 在窗体中添加一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a=InputBox("Enter the Firstinteger") b=InputBox("Enter the Secondinteger") Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是（ ）。 A: 246 B: 123 C: 456 D: 123123 (单选题)11: 代码Command1.Caption=”退出”,其中Command1是（ ），Caption是（ ）,“退出”是（ ）。请选择一个正确答案（ ）。 A: 方法，事件，属性 B: 对象，属性，值 C: 对象，方法，值 D: 方法，对象，值 (单选题)12: 目录列表框的Path属性的作用是（ ）。 A: 显示当前驱动器或指定驱动器上的目录结构 B: 显示当前驱动器或指定驱动器上的某目录下的文件名 C: 显示根目录下的文件名 D: 显示该路径下的文件 (单选题)13: 可以与ADO数据控件绑定的控件必须具有（ ）属性。 A: Connectionstring B: Caption C: DataSource D: RecordSource (单选题)14: 执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（ ）。 A: 只能写，不能读 B: 只能读，不能写 C: 既可以读，也可以写 D: 不能读，不能写 (单选题)15: 以下能判断是否到达文件尾的函数是（ ）。 A: BOF B: LOC C: LOF D: EOF (单选题)16: 为了保留动态数组中原有元素的值，需要使用关健字（ ）。 A: Static B: Preserve C: Option Base D: Option Compare (单选题)17: 如果要改变窗体的标题，则需要设置的属性是（ ）。 A: Caption B: Name C: BackColor D: Borderstyle (单选题)18: 窗体的MouseDown事件过程如下： Form_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single) 其中有4个参数，关于这些参数，正确的描述是（ ）。 A: 通过Button参数判定当前按下的是哪一个鼠标键 B: Shift参数只能用来确定是否按下Shift键 C: Shift参数只能用来确定是否按下Alt键和Ctrl键 D: 参数x、y用来设置鼠标当前位置的坐标 (单选题)19: 在下列动作中，不能引发命令按钮Click事件的是（ ）。 A: 在按钮上单击鼠标左键 B: 在按钮上单击鼠标右键 C: 把焦点转移到按钮上，然后按回车 D: 如果按钮有快捷字母键，按Alt+快捷字母键 (单选题)20: 设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。 A: 10 B: 15 C: 25 D: 24 (责任编辑：admin) |
