1、电子科大18秋VB程序设计在线作业2(单选题) 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 b10B: ab) or (b0)C: (a0)D: (-3=5a) And (b0)正确答案: (单选题) 3
2、: 在窗体上画一个名称为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: 12B: 13C: 14D: 15正确答案: (单选题) 4: 在窗体上画一个
3、名称为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.8B: 1 3 5C: 1 4 7D: 无数据输出正确答案: (单选题) 5: 设组合框Combo1中有三个项目,则以下能删除最后一项的语句是( )。A: Combo1.RemoveItem TextB: Combo1.RemoveItem 2
4、C: Combo1.RemoveItem 3D: 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,
5、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: 4321B: 1234C: 34D: 12正确答案: (单选题) 8: 窗体上有一组合框Combol,窗体加载时的代码如下: Private Sub Form_Load() Combol. AddItem“电视机” Combol. AddItem“录像机” Combol. AddItem“VCD” Combol. AddItem“组合音响” End Sub 要在文本框
6、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
7、,4,6 x = 20 Case Is=b And b10B: ab) or (b0)C: (a0)D: (-3=5a) And (b0)正确答案: (单选题) 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(
8、3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。A: 12B: 13C: 14D: 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.8B: 1 3 5C: 1 4 7D: 无数据输出正确答案: (单选题) 5:
9、设组合框Combo1中有三个项目,则以下能删除最后一项的语句是( )。A: Combo1.RemoveItem TextB: Combo1.RemoveItem 2C: Combo1.RemoveItem 3D: Combo1.RemoveItem Combo1.Listcount正确答案: (单选题) 6: 为了把一个记录型变量的内容写入文件中指定的位置,要使用语句( )。A: Get文件号,记录号,变量名B: Get文件号,变量名,记录号C: Put文件号,变量名,记录号D: Put文件号,记录号,变量名正确答案: (单选题) 7: 在窗体上画一个命令按钮(其Name属性为Command1
10、),然后编写如下代码: 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: 4321B: 1234C: 34D: 12正确答案: (单选题) 8: 窗体上有一组合框Combol,窗体加载时的代码如下: Private Sub Form_Load() Combol. AddItem“
11、电视机” 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的文本框,然后编写如下事件过程: Pr
12、ivate Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2,4,6 x = 20 Case Is10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是( )。A: 10B: 20C: 30D: 40正确答案: (单选题) 10: 在窗体中添加一个命令按钮,然后编写如下程序: Private Sub Command1_Click() Di
13、m a As Integer, b As Integer a=InputBox(Enter the Firstinteger) b=InputBox(Enter the Secondinteger) Print b+a End Sub 程序运行后,单击命令按钮,先后在两个输入框中分别输入123和123,则输出结果是( )。A: 246B: 123C: 456D: 123123正确答案: (单选题) 11: 代码Command1.Caption=”退出”,其中Command1是( ),Caption是( ),“退出”是( )。请选择一个正确答案( )。A: 方法,事件,属性B: 对象,属性,值C
14、: 对象,方法,值D: 方法,对象,值正确答案: (单选题) 12: 目录列表框的Path属性的作用是( )。A: 显示当前驱动器或指定驱动器上的目录结构B: 显示当前驱动器或指定驱动器上的某目录下的文件名C: 显示根目录下的文件名D: 显示该路径下的文件正确答案: (单选题) 13: 可以与ADO数据控件绑定的控件必须具有( )属性。A: ConnectionstringB: CaptionC: DataSourceD: RecordSource正确答案: (单选题) 14: 执行语句:Open Tel.dat For Random As #1 Len=50后,对文件Tel.dat中的数据能
15、够执行的操作是( )。A: 只能写,不能读B: 只能读,不能写C: 既可以读,也可以写D: 不能读,不能写正确答案: (单选题) 15: 以下能判断是否到达文件尾的函数是( )。A: BOFB: LOCC: LOFD: EOF正确答案: (单选题) 16: 为了保留动态数组中原有元素的值,需要使用关健字( )。A: StaticB: PreserveC: Option BaseD: Option Compare正确答案: (单选题) 17: 如果要改变窗体的标题,则需要设置的属性是( )。A: CaptionB: NameC: BackColorD: Borderstyle正确答案: (单选题
16、) 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: 在按钮上单击鼠标
17、右键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: 10B: 15C: 25D: 24正确答案:
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2