vb题库3

1.可视化编程的最大优点是().

A.一个工程文件由若干个窗体文件组成 B.不需要编写大量代码来描述图形对象 C.所见即所得

D.具有标准工具箱

2.设计动画通常使用时钟控件()来控制动画速度. A.Move B.Enabled C.Timer D.Interval

3.语句listl.removeitem 1 将删除list.listindext等于()的项目.. A.1B.2C.0D.3

4.InputBox函数返回的函数值的类型是(). A.字符串

B.根据需要可以是任何类型数据 C.数值或字符串 D.数值

5.在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示()事件过程模板. A.Form_Click B.Form1_Click C.Form1_Load D.Form_Load

6.单击滚动条的滚动箭头时,产生的事件是(). A.MoveB.ClickC.ChangeD.Scroll

7.下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作(). A.Open \B.Open \

C.Open \D.Open \8.标签控件最重要的属性是(). A.textB.captionC.nameD.width

9.由For k=0 to 34 step 3:next k循环语句控制的循环次数是(). A.-10B.0C.-11D.12

10.循环结构For I%= -1 to -17 Step -2 共执行()次. A.5B.8C.9D.6

11.由For k=10 to 0 step -4 : next k循环语句控制的循环次数是(). A.-10B.3C.-11 12D.12

12.()属性决定了按Tab键时焦点在各个控件之间移动的顺序. A.SetFocusB.TabStopC.TablndexD.Index

13.用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是(). A.7B.9C.8D.6

14.要清除组合框Combol中的所有内容,可以使用()语句. A.Combo1.Remove B.Combo1.Cls C.Combo1.Clear D.Combo1.Delete

15.用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件. A.KeyUpB.KeyPressC.ClickD.KeyDown

1.VB通过窗体管理构成应用程序的各类文件的集合.

2.所有的VB 的变量,都有隐含说明和显式声明两种方法来定义.

3.可以用\合并字符串,但是用在变体变量时,\可能会将两个数值加起来. 4.MsgBox()函数建立的消息框能显示信息也能输入信息. 5.用dim语句声明的局部变量能保存上一次过程调用后的值.

6.利用Private Const 声明的符号常量,在代码中不可以再赋值. 7.将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法. 8.Listl.clear是清除Listl的全部列表项,所以Clear是对象的方法. 9.所有的控件在程序运行以后都是可见的.

10.清除list1列表框对象的内容的语句是list1.cls. 11.在框架控件上放置的控件可以移动到框架控件的外面. 12.要使定时器控件起作用,其属性Interval不可以设置为0. 13.在MsgBox 函数中 prompt 参数是必须的.

14.若要新建一个磁盘上的顺序文件,可用output,append方式打开文件.

15.对窗体Form内各控件不能用鼠标任意精确定位是由于窗体中的定位网格起作用. 16.图象框中的Stretch 属性为 true 时,其作用是图形自动调整大小以适应图象控件.

17.时钟控件的属性Interval值为0时,表示屏蔽计时器. 18.在VB中,可通过函数 Now返回计算机系统的日期和时间. 19.VB规定窗体文件的扩展名是 .vbp.

20.*.bmp格式的图片,如果在autosize设为False的图片框,它会以图片框大小完整显示出来.

1.大于X 的最小整数的VB表示形式为_____.

2.把整数0赋给一个逻辑型变量,则逻辑变量的值为_____.

3.定时器控件的Interval属性值是指时间间隔,单位为毫秒;当每隔此间隔的时间,定时器会触发一次_____事件.

4.Option Base 1的作用是确定数组的下界为_____.

5.工程资源管理器窗口顶部有3个按钮,分别为_____、\查看对象\和\切换文件夹\6.下面程序运行后输出的结果是_____. Private Sub Command1_Click() For i=0 To 3

Print Tab(5*i+1);\Next i End Sub

7.若定义一维数组为:Dim a(N To M),则该数组的元素为_____个.

8.在过程调用中,参数的传递可分为两种方式,其中按_____传递方式是默认的. '------------------------------------------------- '【程序设计】

'------------------------------------------------- '题目：(事件)单击窗体。

' (响应)求100以内偶数的和，并将结果输出在窗体上。 ' 将结果存入变量SUM中

'------------------------------------------------- Private Sub Form_Click() Dim sum As Integer

'******* Begin ************

'******* End ************ TestFunc (sum) End Sub

Private Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile

Open App.Path & \ Print #OUT, i Close #OUT End Sub

'------------------------------------------------- '【程序设计】

'------------------------------------------------- '题目：：编写函数fun其功能是:判断一个整数w的各位 ' 数字平方之和能否被5整除 , 可以被5整除则返 ' 回1 , 否则返回0

'------------------------------------------------- Private Function fun(w As Integer) As Boolean '********** Begin *********

'********** End ************* End Function

Private Sub Form_Load()

Show

Print fun(50) TestFunc End Sub

Private Sub TestFunc() Dim i As Integer Dim s As String Dim l As Integer Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile

Open App.Path & \fOut = FreeFile

Open App.Path & \ For i = 1 To 10

Line Input #fIn, a(i) l = Val(a(i))

Print #fOut, fun(l) Next

Close #fIn Close #fOut End Sub

'------------------------------------------ '以下程序段用于计算数组中各元素的乘积。 '------------------------------------------ Private Sub Command1_Click() '**********FILL**********

Dim a(1 To 5) _____, b%(2 To 10), i%, t1#, t2# For i = 1 To 5 a(i) = i Next i

For i = 2 To 10 b(i) = i Next i

t1 = tim(a()) t2 = tim(b())

Print \End Sub

'**********FILL**********

Function tim(_____ As Integer) Dim t#, i% t = 1

For i = LBound(a) To UBound(a) t = t * a(i) Next i tim = t

End Function

'------------------------------------------ '以下程序段用于计算数组中各元素的乘积。 '------------------------------------------ Private Sub Command1_Click() '**********FILL**********

Dim a(1 To 5) _____, b%(2 To 10), i%, t1#, t2# For i = 1 To 5 a(i) = i Next i

For i = 2 To 10 b(i) = i Next i

t1 = tim(a()) t2 = tim(b())

Print \End Sub

'**********FILL**********

Function tim(_____ As Integer) Dim t#, i% t = 1

For i = LBound(a) To UBound(a) t = t * a(i) Next i tim = t

End Function

'------------------------------------------------ '【程序改错】

'------------------------------------------------ '题目：该程序的功能是求出100到200之间的全部素数， ' 并且按每行4个、每个数据之间有10个空格的格 ' 式输出。

'------------------------------------------------ Private Sub Form_Click()

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb题库3在线全文阅读。