当前位置:首页 >> 其它课程 >> VB试题

VB试题


一、填空题(每空 1 分,共 20 分) 1、当进入 VB 集成环境时,发现没有显示―工具箱‖,则应选择 视图 菜单的工具栏 选项,使―工具箱‖显示。 2、要使 For i= x To -5 Step -2 的循环体执行 10 次,循环变量的初值 x=13。 5、当用户不想暴露在文本框中输入的内容时,应设置文本框的 PassWordChar 属性。 6、数学表达式 的 VB 算术

表达式为:(a+b)/(1/(c+5)-(1/2)*c*d)。 8、VB 中自定义过程的参数传递方式有传址方式(或引用方式) 、传值方式两种。 9、写出产生一个 100—200(包括 100、200)范围内的正整数的语句 Int(Rnd*101+100) 。 10、VB 的通用声明部分若有 Option Base -1 语句,说明规定数组下标中下界的默认值 为-1。 11、检查框的 value 属性设置为 2-Grayed 时,变长灰色,禁止用户选择。 12、在对一文件进行读操作时,用 EOF( )函数表示指针到达文件末尾。 13、若要时钟控件每隔 0.02 引发一个 Timer 事件,则应将其 Interval 属性设为 200 。 二、选择题(每小题 2 分,共 20 分) 3、当文本框的 ScrollBar 属性设置为非零值,却没有效果,原因是( B ) A. 文本框中没有内容 B. 文本框的 MutiLine 属性为 False C. 文本框的 MutiLine 属性为 True D. 文本框的 Locked 属性为 True 5、下面的程序段求两个数中的大数, ( D )是不正确的。 A. Max=IIf(x>y,x,y) B. If x>y Then Max=x Else Max=y C. Max=x D. If y>=x Then Max=y If y>=x Then Max=y Max=x 6、下列循环语句能正常结束循环的是( C ) A. i=5 B. i=1 Do Do i=i+1 i=i+2 Loop Until i<0 Loop Until i=10 C. i=10 D. i=6 Do Do i=i-1 i=i-2 Loop Until i<0 Loop Until i=1 7、如下数组声明语句中,数组 a 中包含的元素个数为( A ) Dim a(3,-2 To 2,5) A. 120 B. 75 C. 60 D. 13 8、KILL 语句在 VB 语言中的功能是( C ) A. 清内存 B. 清病毒 C. 删除磁盘上的文件 D. 清屏幕 10、 对话框分模式的和无模式的两种, 为了把对话框显示为模式的, 下列语句正确的是 ( B ) A. Form1.Show vbModeless B. Form1.Show vbMode C. Form1.Show D. Form1.Show vbAbout

三、读程序写结果(每小题 5 分,共 20 分) 1、下列程序段的运行结果为 For i=3 To 1 Step -1 Print Spc(5-i); For j=1 To 2*i-1 Print ―*‖; Next j Print Next i 2、下列程序当在文本框中输入字符串―12345‖时,窗体上显示 112123123412345 Private Suv Text1_Change( ) Print Text1.Text; End Sub 4、下面程序段的输出结果为: For i=0 To 4 For j=0 To i sc(i,j)=i*5+j Print sc(i,j);‖‖; Next j Next i 四、按要求完成程序(每小题 5 分,共 10 分) 1、 利用计算机计算―鸡兔同笼问题‖: 即已知在同一个笼子中鸡和兔的总数为 h, 总脚数为 f, 求鸡和兔各有多少只? Private Sub Form1_Click( ) Dim h%,f%,x%,y% h=InputBox(―输入鸡和兔的总数:‖) f= InputBox(―输入鸡和兔的总脚数:‖) ①x=(4*h-f)/2 ② y=(f-2*h)/2 Print ―笼中共有‖;x;‖只鸡,‖;y;―只兔‖ End Sub 2、找出能被 3、5、7 除,余数为 1 的最小的 10 个正整数。 Private Sub Command1_Click( ) Dim count%,n% n=1 Do n=n+1 If ① n Mod 3=1 And n Mod 5=1 And n Mod 7=1 Then Print n count=count+1 End If Loop ② Until Count=10 (或 While Count<10 或 While Count<=9) End Sub 五、编程题(每题 10 分,共 30 分)

要求:只需写出程序代码,不要求画出界面。 1、编程计算 1—100 之间的奇数和及偶数和,并分别输出结果。 1、Private Sub Form1_Click( ) Dim i As Integer,s1 As Integer,s2 As Integer s1=0 :s2=0 For i=1 To 100 If i Mod 2<>0 Then s1=s1+i If i Mod 2=0 Then s2=s2+i Next i Print ―1—100 之间的奇数和为:‖; s1 Print ―1—100 之间的偶数和为:‖; s2 End Sub 2、编程求斐波那契数列:1、1、2、3、5、8、13、…… Private Sub Form1_Click( ) Dim i,f(),n As Integer n=Val(InputBox(―请输入数组元素的个数:‖,‖输入‖)) If n>0 Then ReDim f(n) f(0)=1:f(1)=1 For i=2 To n-1 f(i)=f(i+1)+f(i+2) Next i For i=0 To n-1 Print f(i);Spc(4); If i Mod 5=0 And i<>0 Then Print Next i End If End Sub 3、用递归法求组合数 。 (对于 有如下递归形式: = + )

运行界面如右图所示:

Private Function Cmn(n As Long,m As Long) As Long If n=0 Then Cmn=1 ElseIf n=1 Then Cmn=m

ElseIf n>m/2 Then Cmn=Cmn(m-n,m) Else Cmn=Cmn(n,m-1)+Cmn(n-1,m-1) End If End Function Private Sub Command1_Clock( ) Text3.Text=Cmn(Val(Text1.Text),Val(Text2.Text)) End Sub 三、读程序写结果(每小题 5 分,共 20 分) 1、* * * * * 4、0 *** 5 6 * 10 11 12 15 16 17 18 20 21 22 23 24 一、选择题(每小题 2 分,共 20 分) 4、表达式 Int(68.555*100+0.5)/100 的值为( C ) A. 68.55 B. 68.56 C. 68 D. 68.555 5、用 If 语句表示分段函数, 下面的程序段中不正确的是( A ) 。 A. If x>=1 Then f=Sqr(x+1) B. If x>=1 Then f=Sqr(x+1) f=x*x+3 If x<1 Then f= x*x+3 C. If x>=1 Then f=Sqr(x+1)_ D. If x<1 Then f= x*x+3_ Else f= x*x+3 Else f= Sqr(x+1) 6、以下( B )是正确的 For……Next 结构。 A. For x=1 To Step 10 B. For x=3 To -3 Step -3 …… …… Next x Next x C. For x=1 To 10 D. For x=3 To 10 Step 3 re: …… …… Next x Next y If i=10 Then GoTo re 7、RmDir 语句在 VB 语言中的功能是( C ) A. 删除一个存在的目录 B. 删除文件 C. 改变当前目录 D. 创建一个新的目录 二、填空题(每空 2 分,共 40 分) 7、为使文本框能输入多行信息,应把文本框控件的 LOCKED 属性设置为 True。 11、如果要在一行上书写多条程序代码,各语句之间应该用 冒号 分隔开。 三、读程序写结果(每小题 5 分,共 10 分) 1、下列程序当在文本框中输入字符串―ABCDE‖时,在窗体上将显示为 。 Private Sub Text1_Change( ) Print Text1.Text; End Sub 2、下面程序段的输出结果为:

For i=3 To 1 Print Spc(10-i); For j=1 To 2*i-1 Print ―*‖; Next j Print Next i 五、编程题(每题 10 分,共 20 分;要求:只需写出程序代码) 1、编程计算 1—100 之间的奇数和,并输出结果。 Private Sub Form1_Click( ) Dim i As Integer,s As Integer s=0 For i=1 To 100 If i Mod 2<>0 Then s=s+i End If Next i Print ―1—100 之间的奇数和为:‖; s End Sub 三、读程序写结果(每小题 5 分,共 20 分) 1、优秀 2、112123123412345 3、144 4、0 5 6 10 11 12 15 16 17 18 20 21 22 23 24 1、填空题(每空 1 分,共 20 分) 1、VB 中使用注释有利于程序的维护和调试,一般以 或 开头。 3、结构化程序设计规定程序的基本结构为: 、 、 。 4、 当对命令按钮的 Picture 属性装入. bmp 图形文件后, 选项按钮上并没有显示所需的图形, 原因是没有对 属性设置为 1(Graphical)。 5、要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置 的属性为 True。 6、在对一文件进行读操作时,用 函数表示指针到达文件末尾。 7、要使 For i= x To -6 Step -3 的循环体执行 30 次,则循环变量的初值 x= 。 8、对象的三要素是指 、 、 。 9、文本框最有用的方法是 ,它是把光标移到指定的文本框中。 10、检查框的 属性设置为 2-Grayed 时,变成暗灰色,禁止用户选择。 13、在 VB 中我们用 函数调用其他的 Windows 应用程序。 14、在直角坐标系中,(x,y)是坐标系中任意点的位置,用 x 与 Y 表示在第一或第三象限的 表达式是 。 二、选择题(每小题 2 分,共 30 分) 4、表达式 Int(68.555*100+0.5)/100 的值为( )

A. 68.55 B. 68.56 C. 68 D. 68.555 5、下面的程序段求两个数中的大数, ( )是不正确的。 A. Max=IIf(x>y,x,y) B. If x>y Then Max=x Else Max=y C. Max=x D. If y>=x Then Max=y If y>=x Then Max=y Max=x 6、以下( )是正确的 For……Next 结构。 A. For x=1 To Step 10 B. For x=3 To -3 Step -3 …… …… Next x Next x C. For x=1 To 10 D. For x=3 To 10 Step 3 re: …… …… Next x Next y If i=10 Then GoTo re 7、表达式 Len(―123 程序设计 ABC‖)的值是( ) A. 17 B. 20 C. 10 D. 14 8、关于语句 If x=1 Then y=1,下列说法正确的是( ) A. x=1 和 y=1 都是赋值语句 B. x=1 和 y=1 都是关系表达式 C. x=1 为关系表达式,y=1 为赋值语句 D. x=1 为赋值语句,y=1 为关系表达式 9、复选框的 Value 属性为 1 时,表示( ) 。 A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作有错误 10、下面程序段的运行结果为( ) For i=3 To 1 Step –1 Print Spc(5-i); For j=1 To 2*i-1 Print ―★‖; Next j Print Next i A. ★ B. ★★★★★ C. ★★★★★ D. ★★★★★ ★★★ ★★★ ★★★ ★★★ ★★★★★ ★ ★ ★ 12、若要设置命令按钮具有图形特性可通过( )属性设置。 A、Appearance B、BackStyle C、BorderStyle D、Style 13、如下数组声明语句, ( )正确。 A. Dim a [ 3 , 4 ] As Integer B. Dim a ( 3 , 4 ) As Integer C. Dim a ( n , n ) As Integer D. Dim a [ 3 4 ] As Integer 三、读程序写结果(共 15 分)

初中各年级课件教案习题汇总语文数学英语物理化学 4

a(i) = a(i) + a(i + 1) i=i+1 Loop While i < =2 End Sub Private Sub Command1_Click() Dim m As Integer, i As Integer, x(10) As Integer For i = 0 To 4: x(i) = i + 1: Next i For i = 0 To 2: Call Proc(x): Next i For i = 0 To 4: Print x(i);: Next i End Sub A 、 34756 B 、 12345 C 、 35795 D 、 12357 21 、假定已定义了一个过程 Sub Add(a As Single,b As Single) ,则正确的调用语句是 ____ 。 A 、 Add 12,5 B 、 Call(2*x,Add(1.57)) C 、 Call Add x,y D 、 Call Add(12,12,x)

22 、以下叙述错误的是 ____ A 、 Visual Basic 是事件驱动型可视化编程工具 B 、 Visual Basic 应用程序不具有明显的开始和结束语句 C 、 Visual Basic 工具箱中的所有控件都具有宽度( Width) 和高度 (Height) 属性 D 、 Visual Basic 中控件的某些属性只能在运行时设置 23 、在窗体上画 1 个命令按钮,其名称为 Command1 ,然后编写如下程序:

Private Sub Command1_Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 a(i)=8+i

Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序运行后,单击命令按钮,输出结果为 ____ 。

A) 12

B) 15

C) 17

D) 18 24 、关于 Visual Basic" 方法 " 的概念错误的是 ____ A) 方法是对象的一部分

B) 方法是预先定义好的操作 C) 方法是对事件的响应

D) 方法用于完成某些特定的功能 25 、单击命令按钮时,下列程序的执行结果为 ____ Private Sub Command1_Click() Dim x As Integer, y As Integer

x=12:y=32

Call Proc(x,y)

Print x; y End Sub 5 Public Sub Proc(n As Integer, ByVal m As Integer)

n=n Mod 10

m=m Mod 10

End Sub A) 12 32 B) 2 32 C) 2 3

D) 12 3 26 、一个工程必须包含的文件的类型是 ____ A) *.vbp *.frm *.frx B) *.vbp *.cls *.bas C) *.bas *.ocx *.res D) *.frm *.cls *.bas 27 、有如下事件过程: Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox(" 请输入 a 的值 ") a=Val(A) b=InputBox(" 请输入 b 的值 ") b=Val(b) a=a * b Loop Print a End Sub 程序运行后,依次输入数值 30 , 20 ,

10 ,- 1 ,输出结果为 ____ A) 6000

B) - 10 C) 200

D) -6000 28 、 VB 是一种面向对象的可视化程序设计工具,下列关于面向对象程序设计的描述,正确的是 ____ A )面向对象程序设计完全不同于结构化程序设计; B )对象的属性、方法和事件称为对象的三要素; C ) VB 中的类就是一种变量

D ) 面向对象程序设计的三大特征是封装性、继承性和事件驱动 29 、设有以下循环结构 Do 循环体 Loop While<

条件 > 则以下叙述中错误的是 ____ A 、若 “ 条件 ” 是一个为 0 的常数,则一次也不执行循环体 B 、 “ 条件 ” 可以是关系表达式、逻辑表达式或常数 C 、循环体中可以使用 Exit Do 语句

D 、如果 “ 条件 ” 总是为 True ,则不停地执行循环体 30 、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是 ____ A 、工程资源管理器窗口 B 、工具箱窗口 C

、代码窗口

D 、属性窗口

二、填空题: 1 、新建一个工程,内有两个窗体,窗体 Form1 上有一个命令按钮 Command1 ,单击该按钮, Form1 窗体 消失,显示窗体 Form2 ,程序如下,试补充完整: Private Sub Command1_Click() _(1)_ Form2. _(2)_ End Sub 2 、若 A=20 , B=80 , C=70 , D=30 ,则表达式 A+B>160 Or (B+C>200 And Not D>60) 的值是 ____ 。 3 、 Visual Basic 应用程序中标准模块文件的扩展名是

______ 。 4 、以下程序代码实现单击命令按钮 Command1 时形成并输出一个主对角线上元素值为 -1 ,其他元素值为 6 0 的 6× 6 阶方阵。 Privae Sub Command1_Click( ) Dim A(6,6) For I=1 To 6 For J=1 To 6 If I=J Then ___(1)___ Else ___(2)___ End If Print A(I,J); Next J Print Next I End Sub 5 、以下程序循环的执行次数是 ____ 。 a=0 Do While a<=10 a=a+2 Loop 6 、在窗体上画 1 个命令按钮,其名称为

Command1 ,然后编写如下事件过程:

Private Sub Command1_Click() Dim arr(1 To 100 ) As Integer For i=1 To 100 arr(i)=Int(Rnd*1000) Next i Max=arr(1) Min=arr(1) For i=1 To 100 If __(1)___ Then Max=arr(i) End If If ___(2)___ Then Min=arr(i) End If Next i Print"Max=" ; Max , "Min=" ; Min

End Sub 程序运行后,单击命令按钮,将产生 100 个 1000 以内的随机整数,放入数组 arr 中,然后查找并输出这 100 个数中的最大值 Max 和最小值 Min ,请填空。 7 、执行以下程序段,并输入 1.23 ,则程序的输出结果应是: ________ N=Str(InputBox( “ 请输入一个实数: ” )) P=InStr(N, ” . ” ) Print Mid(N,P) 7 8 、下述定义中的函数所计算的数学表达式是 A(0)+A(1)*x+A(2)*x^2+ ?? +A(N-1)+A(N)*x^N ,请填空。

FUNCTION Fun(A(),N,x) S=0 For k=N to 0 step -1

S= ________ Next Fun=S END FUNCTION 9 、 下面的程序用“冒泡”法将数组 x 中的 10 个整数按升序排列,请将程序补充完整。

Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,324,528,439,387,87,875,273,823) For i=___(1)___

For j= ____(2)__

If a(i) __(3)___ a(j) then

a1=a(i)

a(i)=a(j)

a(j)=a1

End if

Next j Next i For i=1 to 10

Print a(i) ___(4)___ End Sub 10 、计时器控件能有规律的以一定时间间隔触发 ____ 事件,并执行该事件过程中的程序代码。 11 、为了运行时把 d:\pic 文件夹下的图形文件 a.jpg 装入图片框架 Picture1 ,所使用的语句为 ____ 。

12 、在顺序表( 6 , 10 , 16 , 18 , 25 , 28 , 30 , 48 , 50 , 52 )中,用二分查找法查找关键码值 20 ,则需 要进行关键码比较次数为 ____ 。

三、编程题: 1 、在窗体上画一个标签(名称为 Label1 )和一个计时器(名称为 Timer1 ) ,请编写如下事件过程,使程序 运行后,单击窗体,将在标签中显示当前时间,每隔 1 秒钟变换一次(见图) 。

Private Sub Form_Load() (1) End Sub Private Sub Form_Click() (2) End Sub 8 Private Sub Timer1_Timer() (3) End Sub 2 、 编写程序, 用于计算数学表达式 S=12-22+3242+…+ ( N-1 ) 2-N2 3 、窗体上有一个输入编辑框( text1 ) 、一个输出编辑框( text2 )和 一全命令按钮( command1 ) ,编程实现如下功能:在输入框中录入 以空格为分隔标志的正整数,点击运行按钮,将找出其中的最大数并 将其删除后,按原顺序输出在输出框中。 提示:函数 InStr([start, ]string1, string2) 功能:返回一字符串在另一字符串中最先出现的位置 InStr

函数的语法具有下面的参数: 参数 说明

start 可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。

string1 必要参数。接受搜索的字符串表达式。

string2 必要参数。被搜索的字符串表达式。

Vb 程序设计试题 一、填空() 1 。 Vb 应用程序具有两个基本特点:可视化设计和

。 2 。

和控件是创建界面的基本构件,也是创建应用程序所使用的对象。 3 。为了了解 windows 的工作机制,至少需要理解三个关键概念:窗口、

和消息。 4 。创建 vb

应用程序有三个主要步骤: ( 1 )创建应用程序界面。 ( 2 )设置属性。 ( 3 )

。 5 。 Vb 程序存储在模块中,模块分为窗体、类和

三类模块。 6 。在 vb 程序中使用变量,除了正确的

之外,还要根据变量所表示 的内容正确地声明其数据类型。 7 。运算符是用来

进行各种运算的操作符号。 8 。当开发一个应用程序时,可以使用一个工程来管理组成应用程序的

。 9 。 典型的 vb 应用程序包括若干模块, 每个模块包含若干含有代码的过程, 因而呈现



构。 10 。在计算机中,文件随着分类方法的不同, 名称也各不一致。按着文件的数据编码方式来 分,可以分为

和二进制文件。 二、单项选择题() 1 。 标签控件提供了在窗体相对固定的位置显示文件的区域, 和它具有同样功能的控件是 () A. 文本框

B. 命令按钮 C. 图片框

D. 以上各控件都不对 2 。文本框不具有的属性是() A 。 Multiline

B.Caption C 。 Font

D.Height 3

。命令按钮不具有的属性是() A 。 Font

B.Multiline C 。 Enabled

D.Visable 4 。单选按钮不具有的属性是() A 。 Value

B.Caption C 。 Text

D.Font 5 。复选框不具有的属性是() A 。 Value

B.Caption C 。 BackColor

D.Default 6 。列表框图标的英文名称是: () A 。 ListBox

B.ComboBox C 。

Frame

D.CommonDialog 7 。 PictureBox 图标的中文名称是() A 。图片框图标

B.

图片框图标 C 。计时器图标

D. 以上都不是 8 。图像框和图片框的区别是() A 。图像框使用的系统资源比图片框多

B. 图像框重新绘图速度快 C 。图片框重新绘图速度快

D. 以上都不对 9 。图片框没有的属性是() A 。 Picture

B.Appearance C 。 AutoRedraw

D. 以上属性都没有 10 。计时器没有的属性是() A 。 Interval

B.Enable C 。 Size

D.Index 三、判断下列各题是否正确,若不正确请修改或说明原因。 1 。 4AB 和 AB 都可以作为 VB 的变量名。 2 。变量名的长度最长可达 225 个字符。 3 。下列程序运行结果是: 3 , 3

Option Explicit

Private Sub Command1_Click()

Dim a, b As Integer

a= 3.6

b=3.6

Text1.Text= a

Text2.Text= b

End Sub 4 。下列程序运行结果是: 2 Option Explicit Private Sub Command1_Click()

Public Const a As Integer =2

Text1.text=a End sub 5 。定义定长字符串,最长可达 64KB 个字符。 6 。 Empty 与 Null 都表示 V ariant 变量为空。

7 。下列程序运行结果: False 。

Private Sub Command1_Click()

a=1 b=2

c=3

text1.Text=c>a+b OR b-1>c-1 And c+a>a Xor b<c-2 End sub 8 。一个工程的文件可以被其它工程文件共享。 9 。标准模块是程序中的一个独立容器,包含全局变量, Function( 函数 ) 过程、 Sub 过程(子 过程)和窗体模块。 10 。所谓文件是指存放在内存中的数据和程序等。 四、读程序体,写出程序运行结果() 1 。当输入如下数据

按确定,下列程序运行结果是什么? Dim flag Boolean Dim inputName as string Private sub form_Load() UserName(1)=‖LiMing‖ UserName(2)=‖wangfang‖ UserName(3)=‖zhangsan‖ UserName(0)=‖xuhua‖ Flag=False inputName=InputBox(― 请输入您的用户名称: ” , ” 用户身份确认 ” , ” ”) Dim i As Integer For i= 0 to 3

If inputName=UserName(i) Then Flag=true

End If Next if If Flag=False Then Else

MsgBox ― 欢迎您!

” + inputName + ― 先生 ” , vbOKOnly , ― 欢迎您! ” End If End Sub 2 。 Option Explicit

Private Sub Command1_Click()

Static S As Integer

Dim I As Integer

S=1

For I =1 to 5

S=S*i

Next i

Print S End Sub 3 。 Private Sub Form_Click()

For I =15 to 18

Print ―*‖;

For j=3 to 6 step 1

Print ―*‖;

Next j

Print

Next i End Sub 4 。分析下列程序,单击窗口时,程序运行结果。 Private Function Fac() As String Fac = ―,‖ End Function Private Sub Form_Click()

Dim I as Integer

For I=1 to 5

Command1_Click

Print Fac();

Command2_Click

Next I End Sub Private Sub Command1_Click()

Print “ 您好 ” ; End Sub Private Sub Command2_Click()

Print ―VB!‖ End Sub 五、编程题 () 1 。有一个可作 1 到 100 以内加减乘除计算的程序。该程序用户界面如图所示,它由四个文 本框 ( text1 、 text2 、 text3

、 text4 ) , 和两个按钮; 命令按钮 1 ( command1 ) 、 命令按钮 2(command2) 等组成, text2 用来输入运算符, text1 、 text2 分别用来输入操作数, text4 用来显示结果。程 序运行, 可在相应的文本框中输入数据和运算符, 按计算按钮后, 则检查输入数据和运算符, 若正确则进行相应的计算,并把结果显示出来,否则,则显示提示。程序清单如下,请补充 完整。 Private Sub Command1_Click()

Dim a As Integer , b As Integer

If Not IsNumeric(Text1.text) Then

MsgBox ― 输入数 1

只能为数字 ”

Text1.[] = ― ‖

Text1.SetFocus

Exit Sub End If If Not IsNumeric (Text3.Text) Then

MsgBox ― 输入数 2 只能为数字 ”

Text3.Text = ―‖

Text3.SetFocus

Exit Sub [

] a=Val([

]) b=V al([

]) If a<0 Or a>100 Then

MsgBox ― 输入数只能在 0 到 100 之间 ”

Text1.text = [

]

Text1.[

] End If If b<0 Or b>100 Then

MsgBox “ 输入数只能在 0 到 100 之间 ”

Text3.text= ― ‖

Text3.SetFocus End If Op= [

] Select Case op

Case “+‖

r=a+b Case “ ”

r=a – b Case “*‖

r=a*b Case ―/ ‖

If

[

] Then

MsgB ox ― 除法运算的操作的除数不能为 0‖

Text3.Text = ― ”

Text3.SetFocus

Exit Sub End If r = a/b

Case Else MsgBox “ 运算符非法,请重新输入 ” Text2.Text = ― ” Text2.SetFocus Exit [

]

End [

] Text4= r End Sub Private Sub Command2_Click() End End Sub

Private Sub Form_Load()

Text1= ―‖

Text2= ―‖

Text3= ―‖

Text4= ―‖ End Sub 一到简单的 vb 程序题 回答: 1 浏览: 140 提问时间: 2008-09-02 23:01 Private Sub Command2_Click() For i = 1 To 3

x = 1 For j = 1 To 3 x = 3 + j For k = 1 To 3 x = x + 3 Next k Next j Next i Print x End Sub

运行程序后,单击命令按钮,输出结果是 。

Private Sub Form_Activate() Dim sum As Integer Dim I As Integer sum = 0 For I = 1 To 100 sum = sum + I Next I Print "1 到 100 的和为 "; sum

End Sub

Visual Basic 试题 2008 上半年试题 vb1 VB 语言程序设计试题库 2011-01-21 07:08:01| 分类: 计算机 | 标签: |字号大 中 小 订阅 选择题: 1、下面( )是 Visual Basic 语言中的数值常量。 A、ABC B、E+5 C、TRUE D、1E-2 )类型的数值数据。 C、双精度实型 D、货币型

2、3896#表示的是( A、整型

B、单精度实型

3、表达式 3 \ 3 * 3 / 3 mod 3 的值是( A、-1 B、1 C、-3 D、3



4、方法 Print Sgn(- 3 ^ 2)+ Abs(- 3 ^ 2)+ Int(- 3 ^ 2)的输出结果是( A、17 B、27 C、1 D、-1



5、假设硬币有图案一面为 0,有字的一面为 1,则掷一次硬币出现的随机数可表示为( A、Int(Rnd(1)+1) B、Int(Rnd * 1) C、Int(Rnd * 2) D、Int(Rnd * 2 + 1) 6、要将 A、B 两个变量的值互换,正确的写法是( A、A=B:B=A B、B=A:A=B C、C=A:A=B:B=C D、A=C:C=B:B=A ) D、[ 0,20 ] )



7、函数 Int(Rnd(0)* 11)+ 10 的取值范围是( A、[ 0,10 ] 8、6.8E2 与( A、6.8 B、[ 10,10 ] )数值相同 B、6800 C、68 ) C、Nn”Mm” ) C、[ 10,20 ]

D、680

9、下列正确的字符串常量是( A、 ”NnMm” B、ABCD

D、Abcd

10、下列符号中合法的常量是(

A、 ”x=2.456e-10” B、10 * 3.4 C、A + B +C 11、表达式 Sin(a + B、^ 3 * 2 中,先进行( A、Sin 函数 B、+ C、^ D、*

D、1.234E4.5 )计算。

12、下列哪个运算符不能进行字符串比较 A、= B、<> 13、下列( C、>= D、=<

)的值为 True。 B、 ”9” > “a” C、 ”D” > “d” D、 ”99” < “100” )表达式在 x 为任何值时都有意义。

A、 ”a” < “b”

14、若变量 x 的值是实数,下列( A、Sqr(x) B、Int(Sqr(x) ) C、Sqr(Abs(x) )

D、Sqr(Int(x) ) )

15、表达式 Int(-3.67)mod 4 的值是( A、0 B、1 C、-1 D、-9 16、下列表达式值为 0 的是( A、4 / 5 17、X=5 是( A、关系表达式 C、逻辑表达式 B、4 \ 5 )表达式 B、算术表达式 D、字符串表达式 )

C、4 mod 5

D、5 mod 4

18、把 2.67 赋值为变量 A%,则变量 A 的值为( A、0 B、2 C、3 D、2.67



19、已知 x1= -3.67,x2= 4,x3= 5,x4= 6 ,下列关系式的值为真的是( A、Sgn(x1 – x2)- Sgn(x3 – x4)< 0 B、Sgn(x1 + x4)- Sgn(x2 + x3)= -2 C、Sgn(x2 – x1)- Sgn(x3 – x4)> 0 D、Sgn(x2 – x3)- Sgn(x1 – x4)> 0 20、若 A and B 的值是真,则( )



A、A 为真,B 不必为真 B、B 为真,A 不必为真 C、A、B 都为真 21、下列各变量中, ( A、A@ B、B& C、C$ 22、ex 在 VB 中应该用( A、e**x B、e^x D、A、B 全为假 )是字符串型的变量。 D、D# )表示。 C、Exp(x) )表示。 D、Exp(e)

23、Sin46°在 VB 中应该用(

A、Sin(46) B、Sin46 C、Sin(46*3.14/180) D、Sin46*3.14/180 24、已知字符“A”的十进制 ASCII 码值是 65,则 Asc(”BCD” )的结果是( A、66 B、67 C、68 D、69 25、Right(”abcdef” ,2)的值是( A、 ”ab” B、 ”ef” ) ) C、 ”f” D、 ”fe” )

26、Str(2+3)的值是(

A、5 B、 ” 5” C、 ”2+3” D、2+3 27、下列赋值语句正确的是( A、A+B+C=0 ) B、A=B+C

C、SIN(A、=B+C D、A=2*π *R 28、如果 x 是一个正实数,对 x 的第 3 位小数进行四舍五入的表达式是( A、0.01 * Int(x + 0.005) B、0.01 * Int(100 * (x + 0.005) ) )

C、0.01 * Int(100 * (x + 0.05) ) D、0.01 * Int(x + 0.05) 29、A=123:B=456

C=LEN(STR(A、+STR(B、 ) PRINT C 运行时输出结果为( A、3 B、4 C、6 D、8 30、顺序执行如下语句后,输出结果是 PRINT 1;2; PRINT 3 PRINT 4 A 、1 2 3 4 2 3 4 B、1 2 C、1 2 3 D、1 3 4 4 )

31.在设计应用程序时,可以查看到应用程序工程中的所有部分的窗口是( ) 。 A.窗体设计.代码 C.属性 D.工程资源管理器窗口 32.窗体的 Load 事件的触发时机是() 。 A.用户单击窗体时 B.窗体被加载时 C.窗体显示之后 D.窗口被卸载时 33.与传统的程序设计语言相比,Visual Basuc 最突出的特点是( ) 。 A.结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D.程序调试技术 34.VB6.0 集成开发环境的主窗口不包括 A.标题栏 C.状态栏 B.菜单栏 D.工具栏

35.如果对象的名称为 Mytext,而且对象有一个属性 Text,那么在代码中引用该属性的正 确格式是( ) 。 A.Text.Mytext B.Mytext.text C.Mytext.(Text) D.Mytext*Text 36.下列可以激活属性窗口的操作是( ) 。 A.用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“属性窗口”命令

C.按 Ctrl+F4

D.按 F4 键

37.假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的 属性,预先应制造的操作是() 。 A.单击窗体上没有控件的地方 B.单击任一个控件 C.不执行任何操作 D.双击窗体的标题栏 38.如果在文本框中键入字符时,只显示某个字符,如星号(*) ,应设置文本框的( )属 性。 A.Caption B.PasswordChar C.Text D.Char

39.如果想让文本框中的内容在运行时不能编辑,需将文本框的( )属性设置为 True。 A.Locked B.MultiLine C.TabStop D.Visible

40.对于定时器(Timer)控件,设计其定时是否开启的属性是() 。 A.Index B.Tag C.Enabled D.Left

41.要在窗体 Form1 内显示“myfrm” ,使用的语句是( ) 。 A.Form.Caption=“myfrm” C.Form1.Print=“myfrm” B.Form1.Caption=“myfrm” D.Form.Print=“myfrm”

42.对象的性质和状态特性称为( ) 。 A.事件 B.方法 C.属性 D.类

43.下列正确的赋值语句是( ) 。 A.x+y=20 B.y=x+20 C.3x=y D.s=π *r*r 44.当使用上下文相关的帮助时,选择要帮助的内容,然后按( )键,就可出现 MSDN 窗 口直接显示所需的帮助信息。 A.Help B.F10 C.ESC D.F1 45.将调试通过的工程经“文件”菜单的“生成.exe.文件”编译成名.exe 后,就该可执行文

件放到其它机器上不能运行的主要原因是( ) 。 A.运行的机器上无 VB 系统 B.缺少.frm 文件 C.该可执行文件有病毒 D.以上原因都不对 46、定义记录类型通过( A、Dim B、Record )语句来实现。

C、ReDim D、Type )事件。

47、当在文件列表中单击一个文件时将发生( A、Click B、PathChange

C、PattermChange D、Change 48、在窗体或图像框中画直线的方法是 A、Line C、Scale D、Pset(5) ) B、Circle

49、用下面的语句声明的数组元素的个数是( Dim A (4 to 6,-3 to 3)As Integer A、24 B、36 C、21 D、18

50、由 For j=1 To 100 Step 3 语句开头的循环,循环体被执行的次数为 A、 100 B、 50 C、 33 D、34 )

51、在鼠标事件中,若 shift 参数的值为 6,则说明用户按下了( A、 Alt 键 B、Ctrl 键 C、Shift 键 D、Ctrl 和 Alt 键 )方法。

52、运行时要向列表框中添加项目,应调用( A、 Add B、AddItem C、Fill D、FillItem

53.工程文件的扩展名是( ) 。A、vbg B、vbp C、vbw D、vbl54、用于从字符 串左边截取字符的函数是 A、Ltrim( ) B、Trim( ) C、Left( ) D、Instr( ) 55、可获得当前 系统日期的函数是 A、Date( ) B、Time( ) C、IsDate( ) D、Year( ) 56、退出 For 循环可 使用的语句为( ) A、Exit For B、Exit Do C、End For D、End Do 57、窗体的标题 栏显示内容由窗体对象的( )属性决定。 A、BackColor B、BackStyle C、Text D、 Caption 58 以下叙述中错误的是 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic 应用程序不具有明显的开始和结束语句 C、Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性 D、Visual Basic 中控件的某些属性只能在运行时设置 59 以下叙述中错误的是 A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B、以.BAS 为扩展名的文件是标准模块文件 C、窗体文件包含该窗体及其控件的属性 D、一个工程中可以含有多个标准模块文件 60、以下叙述中错误的是 A、双击鼠标可以触发 DblClick 事件 B、窗体或控件的事件的名称可以由编程人员确定 C、移动鼠标时,会触发 MouseMove 事件 D、控件的名称可以由编程人员设定 61、以下不属于 Visual Basic 系统的文件类型是 A、.frm B、.bat C、.vbg D、.vbp 62、以下叙述中错误的是 A、打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件 B、保存 Visual Basic 程序时,应分别保存窗体文件及工程文件 C、Visual Basic 应用程序只能以解释方式执行 D、事件可以由用户引发,也可以由系统引发 63、以下能正确定义数据类型 TelBook 的代码是 A、Type TelBook B、Type TelBook Name As String*10 Name As String*10 TelNum As Integer TelNum As Integer End Type End TelBook C、Type TelBook D、Typedef TelBook Name String*10 Name String*10 TelNum Integer TelNum Integer End Type TelBook End Type 64、以下声明语句中错误的是 A、Const var1=123 B、Dim var2 = 'ABC' C、DefInt a-z D、Static var3 As Integer 65、设窗体上有一个列表框控件 List1,且其中含有若干列表项。则以下能表示当前被选中 的列表项内容的是 A、List1.List B、List1.ListIndex C、List1.Index D、List1. Text 66、程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是 A、MouseDown B、MouseUp C、Load D、Click

67、设 a=10,b=5,c=1,执行语句 Print a > b > c 后,窗体上显示的是 A、True B、False C、1 D、出错信息 68、如果要改变窗体的标题,则需要设置的属性是 A、Caption B、Name C、BackColor D、BorderStyle 69、以下能判断是否到达文件尾的函数是 A、BOF B、LOC C、LOF D、EOF 70、如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是 A、如果工程中含有 Sub Main 过程,则程序一定首先执行该过程 B、不能把标准模块设置为启动模块 C、用 Hide 方法只是隐藏一个窗体,不能从内存中清除该窗体 D、任何时刻最多只有一个窗体是活动窗体 71、窗体的 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 用来设置鼠标当前位置的坐标 72、设组合框 Combo1 中有 3 个项目,则以下能删除最后一项的语句是 A、Combo1.RemoveItem Text B、Combo1.RemoveItem 2 C、Combo1.RemoveItem 3 D、Combo1.RemoveItem Combo1.Listcount 73、以下关于焦点的叙述中,错误的是 A、如果文本框的 TabStop 属性为 False,则不能接收从键盘上输入的数据 B、当文本框失去焦点时,触发 LostFocus 事件 C、当文本框的 Enabled 属性为 False 时,其 Tab 顺序不起作用 D、可以用 TabIndex 属性改变 Tab 顺序 74、如果要在菜单中添加一个分隔线,则应将其 Caption 属性设置为 A、= B、* C、& D、75、执行语句 Open "Tel.dat" For Random As #1 Len = 50 后,对文件 Tel.dat 中的数据能够执 行的操作是 A、只能写,不能读 B、只能读,不能写 C、既可以读,也可以写 D、不能读,不能写 76、在窗体上画一个名称为 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 77、设有以下循环结构 Do 循环体 Loop While <条件> 则以下叙述中错误的是 A、若"条件"是一个为 0 的常数,则一次也不执行循环体 B、"条件"可以是关系表达式、逻辑表达式或常数 C、循环体中可以使用 Exit Do 语句 D、如果"条件"总是为 True,则不停地执行循环体 78、在窗体上画一个名称为 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、无数据输出 79、在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a = a-1 Loop While a <= 0 Print s; a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A、 7 9 B、 34 0

C、 9 7 D、死循环 80、设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x = 20 y=2 f=x*y End Function 在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A、10 5 B、20 5 C、20 40 D、10 40 81、设有如下通用过程: 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 82、在窗体上画一个名称为 Command1 的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click() d=0 c = 10 x = Array(10, 12, 21, 32, 24)

For i = 1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d-c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 A、89 B、99 C、23 D、77 83、 在窗体上画两个滚动条, 名称分别为 Hscroll1 、 Hscroll2; 六个标签, 名称分别为 Label1、 Label2、Label3、Label4、 Label5、 Label6, 其中标签 Label 4~ Label6 分别显示"A"、 "B"、 "A*B"等文字信息, 标签 Label1、 Label2 分别显示其右侧的 滚动条的数值,Label3 显示 A*B 的计算结果。如图所示。当移动滚动框时,在相应的标签 中显示滚动条的值。当单击命令 按钮"计算"时,对标签 Label1、Label2 中显示的两个值求积,并将结果显示在 Label3 中。 以下不能实现上述功能的事件过 程是 A、Private Sub Command1_Click() Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)) End Sub B、Private Sub Command1_Click() Label3.Caption = HScroll1.&#118alue * HScroll2.&#118alue End Sub C、Private Sub Command1_Click() Label3.Caption = HScroll1 * HScroll2 End Sub D、Private Sub Command1_Click() Label3.Caption = HScroll1. Text * HScroll2.Text End Sub 84、在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 <> 0 Then m = m + n \ 3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是 A、15 B、18 C、21 D、24 85、在窗体上画一个名称为 Text1 的文本框,并编写如下程序: Private Sub Form_Load()

Show Text1.Text = "" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后,如果按"A"键,然后单击窗体,则在窗体上显示的内容是 A、Visual Basic B、程序设计 C、A 程序设计 D、Visual Basic 程序设计 86、设有如下程序: Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n=0 For i = 1 To 5 x=n/i n=n+1 sum = sum + x Next End Sub 该程序通过 For 循环计算一个表达式的值,这个表达式是 A、1+1/2+ 2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5 87、 表示窗体名称的属性是( A.Name B、 caption ) C、 top D、title ) D、整型 )

88、 以下数据类型中存储空间最大的是( A.长整型 B、 货币型 C、单精度浮点型

89、 下面对窗体 form 进行属性设置,其中不正确的是( A.form.Name= “cmdsave” B、 form..caption= “保存(&s) ” C、 form.top=-100

D、form.left=200 90、 在下列字符串常量中,值最大的字符串是( A.中华人民共和国 B、计算机 C、变量 ) D、运算方式 )

91、 关于安装 Visual Basic6.0 集成开发环境,计算所需要的配置的叙述不正确的是( A. 操作系统:window98 或更高版本的操作系统 B. 内存:16M 以上内存 C. 硬盘空间:48M 以上硬盘空间 D.显示器:VGA 或分辨率更高的显示器 92、 Visual Basic6.0 的主窗口是指 A.对象窗口 B.工程管理器窗口 C.代码窗口 ) D.中断模式 D.属性窗口

93、下面不属于 Visual Basic6.0 3 种工作模式的是( A.编辑模式 B.运行模式 C.设计模式

94、 窗体设计窗口的主要功能是 A.绘制图形 B.编制程序 C.设计界面 ) D.管理资源

95、 程序模块文件的扩展名是( A..frm C. .bas B. .prg D. .visual basicp

96、 与传统的程序设计语言相比较,visual basic 的最突出的特点是( A. 结构化的程序设计 B. 访问数据库 C. 面向对象的可视化编程 D.良好的中文支持 97、 以下不能在工程资源管理器窗口中列出的文件类型是( A..bas B. .res C. .frm D. .ocx )



98、 下列(

)是日期变量 C.12.345 D.#11/16/1999# )

A.name B. “120”

99、 如果要对窗体进行双击操作去执行某程序,该事件过程应被取名为( A. form_load( ) B、 form_click( ) C、 form_dblclick( ) D、 form_dbclick( ) 100、 将窗体 Form1 的标题设置为“学生成绩” ,所使用的语句是( A.form1.name= ‘学生成绩’ B、 form1.caption = ‘学生成绩’ C、 form1 = ‘学生成绩’ D、 caption= ‘学生成绩’ ) )

101、 在设计阶段,当双击窗体上的某个控件时,所打开的窗口是( A、工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 102、 程序运行装入窗体时,最先触发的是( A.Activate 事件 )

B.Load 事件 C.Click 事件

D.Unload 事件 )

103.文本框的 ScrollBars 属性设置了非零值,却没有效果,原因是( A、 文本框的 MultiLine 属性为 True B、 文本框中没有内容 C、 文本框的 MultiLine 属性为 False D、文本框的 Locked 属性为 True

104. Visual Basic 在程序开发过程中用于使用窗体或控件对象的属性是 A、 Name B、 Enabled

C、 Text

D、 Caption

105.下面哪个属性不是标签控件的属性 A、 Text B、 Alignment C、 Caption D、 BorderStyle

106.在 Visual Basic 中,要使一个窗体不可见,但不从内存中释放,应使用的语句是() A、 Hide C、 UnLoand B、 Load D、 Show

107.在 Visual Basic 中,默认缺省的数据类型为() 。 A、 Variant C、 Double B、 Integer D、 Boolean

108. 以下有关 Visual Basic 语言描述中错误的是( ) 。 A、 一条语句放在多行中,则在前一行结束处使用续行符“_”连接下一行 B、 不区分大小写 C、 语句是一行一句,以回车键结束 D、 用“; ”分隔一行中的多个语句 109.下面哪个方法是控件获得焦点的方法( A、 Click C、 LostFocus B、 GotFocus D、 SetFocus )

110.若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框的属性窗口中 设置( ) 。 A、 Passwordchar 属性值为空 B、 Passwordchar 属性值为* C、 Text 属性值为* D、 Caption 属性值为*

111.以下进入代码编辑器的方法中错误的是( ) A、 单击工程资源管理器窗口中的【查看代码】按钮 B、 单击控件 C、 按“F7”键 D、 执行【视图】菜单下的【代码窗口命令】 )

112.窗体 Form1 的 Name 属性为 Myfrm,则它的 load 事件过程名为( A、 Me_load B、 Form_load C、 Form1_load D、 Myfrm_load

113.以下多窗体操作中工程文件的扩展名是( ) 。 A、 .vbp B、 .cls C、 .frm D、 .bas )

114.如果希望一个窗体在显示的时候没有边框,应该设置的属性是( A、 将窗体的 Enabled 属性置成 False B、 将窗体的 BorderStyle 置成 None C、 将窗体的 ControlBox 置成 False D、 将窗体的标题(Caption)设成空字符 115.下列不属于 VB 应用程序构成的是 A、 res 文件 B、 ocx 文件 C、 cls 文件 D、 pas 文件 116. Msgbox 函数返回值的类型为( )

A、 字符串 B、变体 C、 整数或字符串(视输入的数据而定) D、 整型 117.下列赋值语句正确的是( A、 A=B+C C、 2=A+B B、 –B=A D、 B+C=A )

118.为了暂时关闭计时器,应把该计时器的某个属性设置为 False,这个属性是 A、 Enabled B、 Visible

C、 Interval

D、 Timer )

119.在 Visual Basic 中,程序的执行顺序是否( A、 由事件驱动 B、 由 Visual Basic 开发系统决定 C、 随意执行 D、 由代码行的顺利决定

120.VB 集成开发环境中用于编写程序代码的窗口是( ) A、 属性窗口 B、工程资源管理器 C、 工具栏 D、 代码编辑窗口 121.下列控件中,不能变大小的是( )

A、 Timer B、 PictureBox C、 Label D、 TextBox 122.后缀为 frm 的文件表示( )

A、 标准类模块文件 B、窗体文件 C、 窗体二进制数据文件 D、 类模块文件 123.表达式 6+10MOD4*2+1 的值是() A、 11 B、 10 C、 8 D、 9

124.表达式 Abs(-5)+Len(“ABCDE”)的值为( ) A、 -5ABCDE C、 5ABCDE B、 0 D、 10

125.关于语句行,下列说法正确的是() A、 一行只能写一条语句 B、 一条语句可以分多行书写 C、 长度不能超过去了 255 个字符 D、 每行的首字符必须大写 126.在编码器中,如果一条语句太长,无法在一行内写下(不包括注释) , 折行书写,可以 在行末使用续行字符( ) ,表示下一行是当前行的继续

A、 一个空格加一个连字符(—) B、 一个空格加一个下划字符(_) C、 一个下划字符(_) D、 直接回车 127. 有如下程序段: Dim str1 As String*5 Str1=―Visual Basic‖ 当该段程序被执行完时,变量 str1 的值为( ) A、 “Visual Basic” B、 “V” C、 “Visual” D、 “Visua” 128.把数值型转换为字符型需要使用的函数是() A、 Str B、 Val C、 Chr D、 Asc

129.下列关于变量的说法不正确的是( ) A、 局部变量在声明它的过程执行完毕后就被释放了 B、 局部变量的作用域仅限于声明它的过程 C、 静态局部变量是在过程中用 Static 语句声明的 D、 局部变量是指那些在过程中用 Dim 语句或 Static 语句声明的变量 130.如果希望以模态方式显示窗体 Form1,下列正确的语句是( ) A、 Form1.Show 0 B、 Form1.Show C、 Form1.Show 1 D、 以下都不正确

131."x"是小于 80 的非负数,用 VB 表达式表示正确的是() A、 0<=x<80 B、 0<=x Or x<80 C、 0<=x And x<80 D、 0≤x<80

132.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为 () A、 星号(*) B、 减号(-) C、 加号(+) D、 感叹号(! )

133.可获取字符的 ASCII 码的函数是() A、 Fix B、 Chr C、 val D、 Asc

134.以下右以作为 Visual Basic 变量名的是() A、 SIN C、 X(-1) B、 COS(X) D、 COL

135.按照变量的作用域可将变量划分为 A、 Public、Private、Protected B、 全局变量、模块 级变量、过程级变量 C、 公有、私有、系统 D、 动态、常量、静态 136.要退出 Do?.Loop 循环,可使用的语句是()语句 A、 Exit C、 End Do B、 Exit Do D、 Exit For

137.Sub 过程与 Function 过程最根本的区别是() A、 Sub 过程可以使用 Call 语句或直接使用过程名调用,而 Function 过程不可以 B、 Sub 过程的过程名不能返回值,而 Function 过程能够通过过程名返回值。 C、 两种过程参数的传递方式不同 D、 Function 过程可以有参数,Sub 过程不可 138.要利用通用对话框控件来显示“打开对话框” ,需要调用控件的()方法 A、 ShowColor C、 ShowPrinter B、 ShowOpen D、 ShowSave

139.下列可以用来存储图像供其他对象使用的控件是() A、 TreeView C、 StatursBar B、 ToolBar D、 ImageList

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

141.VB 提供了结构化程序设计的三种基本结构是( A、 递归结构、选择结构、循环结构 B、 选择结构、过程结构、顺序结构 C、 选择结构、循环结构、顺序结构 D、 过程结构、转向结构、递归结构

142.如果要在程序中显示一个弹出式菜单,那么要调用 Visual Basic 中提供的方法是() A、 Print C、 Refresh B、 PopupMenu D、 Move

143、由单精度浮点型的数据组成的字节数是 A、2 B、4 C、8 D、16

144.可以同时删除字符串前导和尾部空白的函数是 A.Ltrim B.Rtrim C.Trim D.Mid 145.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是 A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 146.在窗体上添加如下命令按钮,然后编写如下事件过程:C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5

For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A、35 B、33 C、31 D、29

147.VB 表达式 Cos(0)+Abs(1)+Int(Rnd(1))的值是 A、1 B、 -1 C、 0 D、 2

148.若 m,x,y,均为 Integer 型变量,则执行下面语句后 m 值是 m=1:X=2:Y=3 m=IIf(X>Y,X+Y,X-Y) A、-1 B、0 C、1 D、 2

149.设 a=″Visual Basic″,下面使 b=″Basic″的语句是 A、b=Left(a,8,12) B、b=Mid(a,8,5)

C、b=Right(a,5,5) D、b=Left(a,8,5) 150.以下不能运行工程的操作是 A、.执行"运行"菜单中的"启动"命令 B、单击工具栏中的"启动"命令 C、按下 Ctrl+F5 键 D、按下 F5 键 151.下列关于面向对象程序设计的叙述不正确的是 A、对象具有属性、方法等特性 B、对象之间的通信产生了消息 C、一个对象是一个软件构造块,它包含数据与相关的操作 D、对象的属性不能被改变 152.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下程序: Private Sub Command1 _ Click() Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X,Y End Sub

程序运行时,三次单击命令按钮 Command1 后,窗体上显示的结果为: A、15 16 C、15 15 B、15 6 D、 5 6

153、在 Visual Basic 集成环境中,要添加一个窗体,可以单击工具栏上的一个按钮,这个按 钮是 A、 B、 C、 D、 154、 在 Visual Basic 集成环境的设计模式下, 用鼠标双击窗体上的某个控件打开的窗口是 A、工程资源管理器窗口 B、属性窗口 C、工具箱窗口 D、代码窗口 155、下列叙述中错误的是 A、列表框与组合框都有 List 属性 B、列表框有 Selected 属性,而组合框没有 C、列表框和组合框都有 Style 属性 D、组合框有 Text 属性、而列表框没有 156、设窗体上有一个命令按钮数组,能够区分数组中各个按钮的属性是 A、Name B、Index C、Caption D、Left 157、滚动条可以响应的事件是 A、Load B、Scroll C、Click D、MouseDown

158、设 a=5, b=6, c=7, d=8,执行语句 X=Ilf( (a>B、And (c>D、, 10, 20)后,x 的值是 A、10 B、20 C、30 D、200 159、语句 Print Sgn(-6^2)+ Abs(-6^2)+Int(-6^2)的输出结果是 A、-36 B、1 C、-1 D、-72 160、 在窗体上画一个名称为 Command l 的命令按钮。 单击命令按钮时执行如下事件过程: Private Sub Command 1_Click() a$=”software and hardware" b$=Right(a$,8) c$=Mid(a$, 1,8) MsgBox a$,,b$,c$, 1 End Sub 则在弹出的信息框标题栏中显示的标题是 A、software and hardware B、hardware C、software D、1 161、在窗体上画一个文本框(名称为 Text 1)和一个标签(名称为 Label 1) ,程序运行后, 如果在文本框中输入文本, 则标签中立即显示相同的内容。 以下可以实现上述操作的事件过 程是 A、Private Sub Text1_Change()

Label1.Caption=Text1.Text End Sub B、Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub C、Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub D、Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub 162、以下说法中错误的是 A、如果把一个命令按钮的 Default 属性设置为 True,则按回车键与单击该命令按钮的 作用相同 B、可以用多个命令按钮组成命令按钮数组 、命令按钮只能识别单击(Click)事件 D、通过设置命令按钮的 Enabled 属性,可以使该命令按钮有效或禁用 163、以下关于局部变量的叙述中错误的是 A、在过程中用 Dim 语句或 Static 语句声明的变量是局部变量 B、局部变量的作用域是它所在的过程 C、在过程中用 Static 语句声明的变量是静态局部变量 D、过程执行完毕,该过程中用 Dim 或 Static 语句声明的变量即被释放 164、以下程序段的输出结果是 x=I:y=4 Do Until y>4 x=x*y:Y=y+I Loop Print x A、1 B、4 C、8 D、20 165、有如下事件过程: Private Sub Form Click() Dim n A s Integer:x=0 n=InputBox("请输入一个整数” ) For i=1 Ton For j=1 To i x=x+I Next j Next i Print x End Sub 程序运行后,单击窗体,女口果在输入对话框中输入: ,则在窗体上显示的内容是 A、13 B、14 C、15 D、16

166、请阅读程序: Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command 1_Click() Dim a(l To 4)As Integer A(l)=5:a(2)=6:a(3)=7:a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序,单击命令按钮,则输出结果是 A、2 B、5 C、10 D、出错 4 6 12 6 7 14 8 8 16 167、请阅读程序: Private Sub Form_ Click() m=1 For i=4 To 1 Step-1 Print Str(m) ; m=m+1 For j=1 To i Print”*” ; Next j Print Next i End Sub 程序运行后,单击窗体,则输出结果是 A、1**** B、4**** C、**** D、* 2*** 3*** *** ** 3** 2** ** *** 4* 1* * **** 168、在窗体上画一个命令按钮(其名称为 Commandl) ,然后编写如下代码: Private Sub Command l_Click() Dim a a=Array(1,2,3,4) I=3:j=1 Do While i>=0

s=s+a(i)*j i=i-1 j=j*10。 Loop Print s End Sub 运行上面的程序,单击命令按钮,则输出结果是 A、4321 B、123 C、234 D、1234 169、下列可以打开随机文件的语句是 A、Open "file l .dat" For lnpu't As#1 B、Open”file l .dat" For Append As#1 C、Open”file1.dat" For Output As#1 D、Open”file1.dat" For Random As#1 Len=20 170、请阅读程序: Option Base I Private Sub Form_ Click() Dim Arr(4, 4)As Integer For i=1 To 4 For j=I To 4 Arr(i, j)=(i - 1)*2+j Next j Next i For i=3To4 For j=3 To 4 Print Arr(j, i); Next j Print Next i End Sub 程序运行后,单击窗体,则输出结果是 A、5 7 B、6 8 C、7 9 D、8 10 68 79 8 10 8 11 171、一下面函数的功能应该是:删除字符串 str 中所有与变量 ch 相同的字符,并返回 删除后的结果。例如:若 str= "ABCDABCD", ch= "B",则函数的返回值为:"ACDACD" Function delchar(str As String, ch As String)As String Dim k As Integer, temp As String, ret As String ret="" For k=1 To Len(str) temp=Mid(str, k, 1) If temp= ch Then ret=ret&temp End If

Next k delchar=ret End Function 但实际上函数有错误,需要修改。下面的修改方案中正确的是 A、把 ret=ret&temp 改为 ret=temp B、把 If temp=ch Then 改为 If temp<> ch Then C、把 delchar=ret 改为 delchar=temp D、把 ret =""改为 temp="" 172、在窗体上画一个命令按钮和两个文本框,其名称分别为 Command1、Text I 和 Text2, 在属性窗口中把窗体的 KeyPreview 属性设置为 True,然后编写如下程序: Dim S I As String, S2 As String Private Sub Form Load() Text 1 .Text="" Text2.Text="" Text 1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_ KeyDown(KeyCode As Integer, Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Forin_ KeyPress(KeyAscii As Integer) S1=S1&Chr(KeyAscii) End Sub Private Sub Command l Click Text l .Text=Sl Text2.Text=S2 S1="" S2="" End Sub 程序运行后,先后按“a” 、 “b” 、 “c”键,然后单击命令按钮,在文本框 Textl 和 Text2 中显示的内容分别为 A、abc 和 ABC B、空白 C、ABC 和 abc D、出错

173、 如果要将窗体中的某个命令按钮设置成无效状态,应该动命令按钮的何种属性 A、Value B、Visible C、Default D、Enabled 174、 在窗体上有多个控件,要实现程序运行后焦点默认在某一控件上,应该设置的 属性是 A、 设置 Enabled 的值为 True B、 设置 TabIndex 的值为 1

C、 设置 TabIndex 的值为 0 D、 设置 Index 的值为 0 175、下列几项中,属于合法的日期型常量的是 A、 "10/10/02" B、 10/10/02 C、 {10/10/02} D、 #10/10/02# 176、 下列程序段的执行结果为 A=2 B=5 If A * B < 1 Then B=B - 1 Else B=-1 Print B - A > 0 A、 True B、 False C、 -1 D、 1 177、以下语句的输出结果是 a=Sqr(26) Print Format$ (a, "$####.###") A、$5.099 B、5.099 C、5099 D、$0005.099 178、 标签控件能够显示文本信息,决定其文本内容的属性是 A、Alignment B、Caption C、Visible D、BorderStyle 179、 在属性窗口中,加载指定的图形放入当前对象中的属性是 A、CurrentY B、Picture C、CurrentX D、Caption 180、在使用应用程序时,常常用作在单击时执行指定的操作的控件是 A、 命令按钮 B、 图片框 C、 复选框 D、 单选按钮 181、 当直线或形状的 BorderStyle 属性设置为 1 时,控件是 A、 虚线 B、 点线 C、 不可见 D、实线 182、 通过设置何属性可以改变所画图形的形状? A、Shape B、Index C、 Enabled D、 Height 183、 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s >=30 Print Number, s

End Sub 程序运行后,输出的结果是 A、2 3 B、2 56 C、5 12 D、10 20 184、下列程和序段的执行结果为 x=Int(Rnd() + 9) Select Case x Case 10 Print "excellent" Case 9 Print "good" Case 8 Print "pass" Case Else Print "fail" End Select A、excellent B、good C、pass D、 fail 185、下列程序段的执行结果为 a=75 If a > 60 Then Score=1 If a > 70 Then Score=2 If a > 80 Then Score=3 If a > 90 Then Score=4 Print " Score="; Score A、Score=1 B、Score=2 C、Score=3 186、下列程序段的执行结果为 I=1 x=5 Do I=I + 1 x=x + 2 Loop Until I >=7 Print "I="; I Print "x="; x A、I=4 x=5 B、 I=7 x=15 C、I=6 x=8 D、 I=7 x=17 187、下面的程序的运行结果是 a=1 :b=1 Do a=a^2: b=b + 1 Loop Until b > 5 Print "k="; a; Spc(4) ; "b="; b + a A、 k=7 b=14 B、 k=6 b=6

D、Score=4

C、 k=4 b=8 D、 k=1 b=7 188、 单击命令按钮,下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer, y As Integer x=32: y=42 Call PCS(x, y) Print x; y End Sub Public Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1 m=m Mod 10+1 End Sub A、32 42 B、2 32 C、2 3 D、12 3 189、 下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String, s2 As String s1="abcd" Call Transfer(s1, s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As String i=Len(xstr) Do While i >=1 tempstr=tempstr + Mid(xstr, i, 1) i=i - 1 Loop ystr=te mpstr End Sub A、dcba B、abdc C、abcd D、dabc 190、 单击命令按钮,下列程序的执行结果是 Private Sub Blck(x As Integer) x=x * 2 + 1 If x < 6 Then Call Blck(x) End If x=x * 2 + 1 Print x; End Sub Private Sub Command1_Click() Blck 2 End Sub A、 23 47 B、 10 36

C、 22 44 D、 24 50 191、下列过程定义语句中,参数不是对象的定义语句是 A、Sub Pro4(x As Form) B、Sub Pro4(y As Control) C、Sub Pro4(Form1 As Form,Labell As Control)D、Sub Pro4(x As Currency) 192、下列说法正确的是 A、任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器 B、只有当代码窗口为当前活动窗口时,才能打开菜单编辑器 C、任何时候都可以使用"工具"菜单下的"菜单编辑器"命令,打开菜单编辑器 D、 只有当某个窗体为当前活动窗体时,才能打开菜单编辑器 193、 下列各选项说法错误的一项是 A、文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框 B、DefaultEXT 属性和 DialogTitle 属性都是打开对话框的属性,但非保存对话框的属性 C、打开文件对话框可以让用户指定一个文件,由程序使用;而用保存文件对话框可以指定 一个文件,并以这个文件名保存当前文件 D、通用对话框的名称属性的默认值为 CommonDialogX(X=1,2??) ,此外,每种对话框 都有自己的默认标题 194、 下列数组定义语句错误的是 A、 k%=10 Dim Arr(k) B、 Const k%=10 Dim Arr(k) C、 Dim Arr1(10) As Integer Dim Arr2 (10) D、 Dim Arr1(1 To 10) Dim Arr2(1 To 10, 2 To 11) 195、 在 Visual Basic 中按文件的数据性质不同,可将文件分为 A、数据文件和程序文件 B、文本文件和数据文件 C、顺序文件和随机文件 D、ASCII 文件和二进制文件 196、菜单控件只包括一个事件,即 (1) ,当用鼠标单击或键盘选中后按“回车”键时 触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 197、滚动条控件(如图所示)的 Max 属性所设置的是 (2) 。 A、滚动框处于最右位置时,一个滚动条位置的 Value 属性最大设置值 B、 单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 198、SQL 语句 Select * Form student 中的 *表示 (3) 。 A、所有记录 B、所有字段 C、所有表 D、都不对

199、以下选项中,不属于标签的属性是 (4) A、Enabled B、Caption



C、Default D、Font 200、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 (5) A、Caption B、Name



C、Text D、Label 201、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属 性是 (6) 。 A、Caption B、Name C、Text D、Value 202、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的? (7) A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 203、语句 Print "The answer is:";20/4-2 的结果为 (9) A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 204、下列哪个控件是容器控件 (10) A、Image B、Picture







C、ComboBox D、FileListBox 205、若要将窗体从内存中卸载出去,其实现的方法是 A、Show B、Hide

(11)



C、Load D、UnLoad 206、以下选项中,不是 Visual Basic 控件的是 (12) 。 A、窗体 B、定时器 C、单选框 D、命令按钮 207、双击窗体中的对象后,Visual Basic 将显示的窗口是 (13) 。 A、代码窗口 B.工具箱 C.项目(工程)窗口 D.属性窗口 208、可决定窗体的左上角是否有控制菜单的属性是 (14) 。 A、ControlBox B、MinButton C、MaxButton D、BorderStyle 209、设有如下语句: Strl=InputBox("输人","","练习")

从键盘上输人字符 “示例”后,Strl 的值是 (15) A. “输入” B. “ ”



C. “练习” D. “示例” 210、窗体 Form1 的 Name 属性是 Frm1,它的单击事件过程名是 A、 Form1_Click B、Form_Click

(16)



C、 Frm1_Click D、 Me_Click 211、窗体的 hide 属性的含义是 (17) 。 A、隐藏 B、展现 C、装入 D、卸载 212、若要设置定时器控件的定时时间,需设置的属性是 (18) 。 A.Enabled B.Value C.Interval D.Text 213、能够改变复选框中背景颜色的属性是 (19) 。 A.Value B.FontColor C.BackColor D.Font 214、 窗体能响应的事件是 (20) 。 A. ActiveForm B. Load C. Drive D. Change 判断题 1、设置属性的语句格式为: “对象名.属性名=属性值” . ( )2、若用户在键 盘上按下一个键,则会产生一个单击事件(Click 事件) . ( ) 3.VB 窗体坐标系默 认的度量单位是英寸。 ( ) 4 、 FSO 对 象 模 型 包 含 在 Scripting 类 型 库 中 。 ( )5、ReDim 语句只能出现有事件过程或通用过程中,用它定义的数组是一个临 时数组。 ( )6、Visual Basic6.0 有典型和自定义两种安装方式。 ( )

7、控件的 Caption 属性和 Name 属性值相同,说明这两种属性是等同的 8、只能从工具栏中添加控件,不能在窗体上复制已经画好的控件。 ( 9、代码窗口是用户用来编写程序的窗口。 ( 10、 ,同一类对象的属性完全相同。 ( 11、对像使用的所有方法都是由系统提供的。 ( 12、图形化界面下只能使用鼠标进行操作。 ( 13、窗体设计窗口又称为窗体布局窗口。 14、三种方式的组合框都允许用户输入哪些不在列表框中的选项。 15、图象框中的 Stretch 属性为 true 时,其作用是图形自动调整大小以适应图象控件。 16、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字” 。 17、通过改变属性窗口中的 Name 属性,来改变窗体的标题。 18、创建 VB 应用程序的三个主要步骤是:(1)创建应用程序界面(2)设置控件(3)编写代码。 19、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。 20、已知 P=MsgBox(“Howareyou?",VbYesNo+VbQuestion, “Hello!”),变量 P 是 Integer ) ) ) ) )

数据类型。 21、工程文件的扩展名是 .vbg 。 22、VB 允许设计和使用用户自己设计的控件。 23、OptionButton 控件没有 DblCliek 事件。 24、同一条记录中的各数据具有相同的类型。 25、使用 Data 控件可以直接显示数据库中的数据。 26、ImageList 是一个图像容器控件,可用作工具栏的图像库。 27、当用户单击工具栏按钮时,将触发工具栏按钮的 ButtonClick 事件。 28、在 VB 的工程资源管理器中,如果从工程中移除已经保存过的文件,该文件仍然被物理 删除(真正删除) 。 29、如果列表框的 ListConut 的属性为 10,则列表框最后一项的 ListIndex 值为 10。 30、要是某个命令按钮不起作用,应将该按钮的 Enabeld 属性设置为 False。 31、使用数组定义语句:Dim D$(10) ,则数组 D 中各元素的值为空。 32、如果在一行中输入多条语句,各语句之间用使用 ;分隔。 33、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法 错误。

填空题 1、VB 中的整型数在计算机中占 2、变量命名规则要求变量名必须以 度不超过 个字符。 3、CHR(ASC( “ABCD” ) )的值是 4、RND 函数产生的随机数区间是 5、逻辑运算符中,运算级别最高的是 6、语句 X=X+1 的含义是 7、Print 方法具有 和 功能。 号,第二个“=”是 号 个字节,表示数的范围是 。

开头,其后可由字母、数字、下划线组成,长

LOG(EXP(3) )的值是

8、语句 X = 5 = 3 中,第一个“=”是

9、要定义一个单精度符号常量 PI,其值为 3.1416 应该使用的语句是:

10、有如下语句:Dim x as Integer,y ,z as String * 8,则声明的变量 x,y,z 的类型分别是 型、 型和 型。

11. 当进入 VB 集成开发环境后, 发现没有显示 “工具箱” 窗口, 应选择( 选项,使“工具箱”窗口显示。 12.在 VB 中,事件过程名由( 13.工程文件的扩展名是 ( ) 和 ( ) 构成。 ) 。 ) (

)菜单的 (

)

) ,窗体文件的扩展名是 (

14.对象是代码和数据的集合,例如,Visual Basic 中的( ) 、( 对象。

) 、等都是

15.对象的方法应用于( ) 。当对象不需要任何参数并且也没有返回值时,调用对象的 方法的格式为( ) 。例如,对窗体 Form1 使用 Show 方法,应写成( ) 。 16.要使文本框显示滚动条,需要将其( ) 属性设置为 ( ) 。

17.欲设置定时器的时间间隔为 4 秒,则属性的 Interval 属性设置为 ________ 18. 要使标签框的大小随 Caption 属性作自动调整, 应将 ________ 19.通过 ________ 属性设置为 ________

可以在设计时直观地调整窗体在屏幕上的位置。

20.要想在代码中给名为 txtshow 的文本框赋予文本:GOOD WORK!时,应当编写的语句 是 ________ 。 21.若命令按钮的名称为 Cmdopen,程序要求单击以上命令按钮时,打开一个窗口 frm1 时, 请对以下事件过程填空。 Private Sub Cmdopen________ ________ End Sub 22 . 事 件 就 是 在 对 象 上所 方 式 的 事 情 , Visual Basic 中 的 事 件 如 ________ ________ ________ 等。一个对象响应的事件可以有 () 个,用户不能建立新的事件。事件过程是 指 ________ 。假设一个事件过程如下: Private Sub cmd1_Click( ) Form1.Caption=”VB 示例” End Sub 则响应该过程的对象名是 ________ ,事件名是 ________ 。 23.对象的方法应用于 ________ 。当对象不需要任何参数并且也没有返回值时,调用对 象的方法的格式为 ________ 。 例如, 对窗体 Form1 使用 Show 方法, 应写成________ 。 24. 为了在编写代码时能自动进行语法检查, 必须执行________ 菜单中的________ 令,打开 ________ 对话框,然后选择“编辑器”选项卡中的________ 。 25. 定时器控件可识别的事件是 ________ 属性设置,其单位为 ________ 。 26、驱动器列表框的 命

, 发生该事件的时间间隔由定时器的________

属性返回或设置运行时选择的驱动器。

27、以随机访问方式打开文件时需要在 Open 语句中使用 28、在 VB 中若要让某对对象获取焦点,则可通过 的背景颜色用 属性设置,前景颜色用 30、窗体的



方法来实现。29、窗体或控件 属性设置。

属性用于指定窗体坐标系的度量单位。 属性设置为 True。

31、要使一个窗体成为 MDI 子窗体,应将其 32、 33、 属性。 方法可从列表框控件中删除一项。

属性指定用户是否可用 Tab 键来选定文本框。34、窗体或控件的名称对应于

35、在过程内声明静态变量采用的关键字是 ,在执行一个过程结束时,过程中所用 到的静态变量的值会保留, 下次再调用此过程时, 变量的初值是上次调用结束时被保留的值。 36 、在模块文件中的声明部分用 或 定义的变量为模块级变量。用 声明为全局变量 37、数据控件的 属性,设置要使用的数据库文件名。38、 Visual Basic 6.0 包括了________, _____________ ,_________三种版本。 39 、 新 建 一 个 标 准 EXE 工 程 文 件 , 默 认 打 开 的 窗 口 包 括 工 程 管 理 器 窗 口 、 _______________ ,_____________,________________。 40、 Visual Basic 采用的是_______________驱动的编程机制。 41、 Visual Basic 中提供了四类工具栏_________ ,__________,________,_______。 42、 不包含数据库访问工具的 Visual Basic 版本是_________。 43、 对象的基本特征中,描述对象特点的被称为_______________。 44、 Visual Basic 6.0 程序设计的基本步骤是____________,____________,___________。 45、 VB 将数值型变量划分为___________和_________类型两大类。 46、 布尔型常量具有两个值________和_________________ 。 47、 VB 提供了注释是用什么符号表示______,分行时用到什么符号______,合并行书规 范_______________。 48、_______________是系统担供的用于控制对像的功能函数。 49、 在 VB 中用_____或者______来作为日期常量的定界符。

50、 我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题:每只公鸡 5 元,每只 母鸡 3 元,三只雏鸡 1 元;如何用 100 元买 100 只鸡,即公鸡、母鸡、雏鸡各多少只。请在 空白处填入适当的内容,将程序补充完整。 Private Sub Command1_Click() Dim Cock As Integer Dim Hen As Integer Dim Chick As Integer Form1.Print "公鸡数", "母鸡数", "雏鸡数" For Cock=0 To 20 For Hen=0 To 33 For Chick=0 To 100 If 【7】 Then Form1.Print Cock, Hen, Chick End If Next Chick Next Hen Next Cock End Sub 51、 每一个窗体或者控件都有一个名字,为提高程序的可读性,可以用前缀的方式来表示 对象的类型,如 Form 的前缀为 frm,则 Image 的前缀为 【8】 ,Picture 的前缀为 【9】 。 52、 在一个工程中有两个窗体,窗体 Form1 上有一个命令按钮 Disp,单击该按钮,Form1 窗体隐藏,显示 Form2 窗体,程序如下,请补充完整。 Private Sub Disp_Click () Me.Hide Form2. 【10】 End Sub (10) 在窗体上有几个对象,运行程序时,当对象得到焦点时,会触发 【11】 事件, 当对象失去焦点时将触发 【12】 事件。 (11) 下面是用冒泡法将 5 个整数按升序排列,请将程序补充完整。 Sub GASR() Dim m m=Array(10, 1, 5, 6, 7) For i=0 To 3 For j= 【13】 If m(i) >=m(j) Then 【14】 m(i) =m(j) m(j) =t End If Next j 【15】 For i=0 To 4 Print m(i)

Next i End Sub 1、VB 程序设计的主要特点是 和 。 53、在 VB 中,最主要的两种对象是 和 。 54、工程是构成应用程序文件的 。 55、方法是 VB 提供的一种 ,用来完成一定的操作。 56、浮点类型数据包括单精度型和___ __数据。 57、事件是窗体或控件对象识别的___ ____。 58、可用窗体的___ _ 方法在窗体中显示文字。 59、 复选框控件 Value 属性指示复选框处于___ ___或禁止状态(暗淡的)中的某一 种。 60、在 VB 中,修改窗体的 和 属性值,可改变窗体的大小。 61、双击工具箱中的控件图标,可在窗体的 出现一个尺寸为缺省值的控件。 62、在 MsgBox 函数中,如果缺省 title 参数,则使用 作为消息框的标题。 63、设 x=34.58,语句 Print Format(x,“000.0”)的输出结果是 。 64、在 VB 中,数值型变量的初值为 ,Varant 型变量的初值为 ,布尔型 变量的初值为 。 65、设置窗体的 属性,可在窗体上显示图片。 66、程序运行工程中,清除 MP 图片框中的图片应使用语句 。

计算表达式的值: 1、 3 * 4 / 2 * 3 2、6 * Sqr(4)+ 3 ^ 2 * 2 3、 6 + 10 mod 4 * 2 + 1 4、4 * 5 * (8 mod 3)* 2 / 5 5、 14.4 \ 3.6 * 5 < 14.4 / 3.6 * 5 6、121.9 mod 11.7 7、 3 ^ 2 \ 4 + 3 ^ 2 / 2 8、Fix(-1.8)+ Int(-1.8) 9、 3 + 1 < = 3 – 2 or 3 + 5 > 8 + 6 and 7 < 2 10、 (3 ^ 3 \ 2)mod 2 *(Sgn(Abs(Int(-25.8) ) ) )

程序填空: 1、下列程序是计算一元二次方程 2x2+5x-8=0 的两个实根。请补充完整 A = 2:B=5: D = B ^ 2 – 4 *A*C X1 = X2 = PRINT X1,X2 2、利用公式 V=4/3 π r3 求半径为 5 的圆球的体积。 R=5 V= PRINT “半径为 5 的圆球的体积是: ” ;V 请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。 3、执行下面的程序段后,i 的值为 【1】 ,s 的值为 【2】 。 s=2 For i = 3.2 To 4.9 Step 0.8 s=s+1 Next i 4、把窗体的 KeyPreview 属性设置为 True,然后编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后,如果直接按键盘上的"A"键(即不按住 Shift 键) ,则在窗体上输出的字符分别 是 【3】 和 【4】 。 (3)在窗体上画一个标签(名称为 Label1)和一个计时器(名称为 Timer1) ,然后编写如 下几个事件过程: Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 【5】 End Sub Private Sub Form_Click()

Timer1.Enabled = 【6】 End Sub Private Sub Timer1_Timer() Label1.Caption = 【7】 End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔 1 秒钟变换一次(见图) 。请填空。 (4)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然后编写如下两个事 件过程: Private Sub Command1_Click() S$ = InputBox("请输入一个字符串") Text1.Text = S$ End Sub Private Sub Text1_Change() Label1.Caption = UCase(Mid(Text1.Text, 7)) End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串 "VisualBasic",则在标签中显示的内容 是 【8】 。 5、在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为 List1、Command1 和 Label1,通过属性窗口把列表 框中的项目设置为:"第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运 行后,在列表框中选择一个项目, 然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行 情况如图所示(选择"第三个项目 "的情况)。下面是实现上述功能的程序,请填空。 Private Sub Command1_Click() If List1.ListIndex >= 【9】 Then List1.RemoveItem 【10】 Label1.Caption = 【11】 Else MsgBox "请选择要删除的项目" End If End Sub 6、设有程序: Option Base 1 Private Sub Command1_Click() Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 【12】 = arr1(1) For i = 1 To 8 If arr1(i) > Max Then 【13】 Next i

Print "最大值是: "; Max End Sub 以上程序的功能是:用 Array 函数建立一个含有 8 个元素的数组,然后查找并输出该数组中 元素的最大值。请填空。 7、以下程序的功能是:把当前目录下的顺序文件 smtext1.txt 的内容读入内存,并在文本框 Text1 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text = "" Open ".\smtext1.txt" 【14】 As #1 Do While 【15】 Input #1, inData Text1.Text = Text1.Text & inData Loop Close #1 End Sub

8、计算 1*2*3*...*3000,当积大于 3000 时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 __________________ If t>3000 Then Exit For Next j Debug.Print j,t End Sub 9、下面程序运行后,输出的结果是_______。 For J= 1 To 10 A(J)=2*J

B(J)=A(J)*2 Next J Print B(J/2+0.1) End 10、设有如下程序:程序运行后,单击窗体,则在窗体上显示的是 6 5 4 3,请在_______处 将程序补充完整。 Option Base 0 Private Sub Form _ Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3

Next i End Sub (1) 执行下面的程序段后,i 的值为 【1】 ,s 的值为【2】 。 s=2 For i = 3.2 To 4.9 Step 0.8 s=s+1 Next i (2)把窗体的 KeyPreview 属性设置为 True,然后编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后,如果直接按键盘上的"A"键(即不按住 Shift 键) ,则在窗体上输出的字符分别 是 【3】 和 【4】 。 11、在窗体上画一个标签(名称为 Label1)和一个计时器(名称为 Timer1) ,然后编写如下

几个事件过程: Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 【5】 End Sub Private Sub Form_Click() Timer1.Enabled = 【6】 End Sub Private Sub Timer1_Timer() Label1.Caption = 【7】 End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔 1 秒钟变换一次(见图) 。请填空。 12、在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然后编写如下两个事 件过程: Private Sub Command1_Click() S$ = InputBox("请输入一个字符串") Text1.Text = S$ End Sub Private Sub Text1_Change() Label1.Caption = UCase(Mid(Text1.Text, 7)) End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串 "VisualBasic",则在标签中显示的内容 是 【8】 。 13、在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为 List1、Command1 和 Label1,通过属性窗口把列表 框中的项目设置为:"第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运 行后,在列表框中选择一个项目, 然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行 情况如图所示(选择"第三个项目 "的情况)。下面是实现上述功能的程序,请填空。 Private Sub Command1_Click() If List1.ListIndex >= 【9】 Then List1.RemoveItem 【10】 Label1.Caption = 【11】 Else MsgBox "请选择要删除的项目" End If End Sub 14、设有程序: Option Base 1 Private Sub Command1_Click()

Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 【12】 = arr1(1) For i = 1 To 8 If arr1(i) > Max Then 【13】 Next i Print "最大值是: "; Max End Sub 以上程序的功能是:用 Array 函数建立一个含有 8 个元素的数组,然后查找并输出该数组中 元素的最大值。请填空。 15、以下程序的功能是:把当前目录下的顺序文件 smtext1.txt 的内容读入内存,并在文本框 Text1 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text = "" Open ".\smtext1.txt" 【14】 As #1 Do While 【15】 Input #1, inData Text1.Text = Text1.Text & inData Loop Close #1 End Sub (2) 程序分析题: (每空 4 分,共 8 分)

依次执行下列语句: X = 567:Y= 984 X=X+Y Y=X – Y X=X–Y PRINT X,Y 1、Private Sub Form_Click( )Dim i As Integer Dim a As IntegerI=0While i<10i=i+1i=i*i+ia=a+i Wend Print aEnd Sub( )2、Private Sub Form_Click( ) Static Sum As Integer For I=1 To 10 Sum= Sum+I Next I Print SumEnd Sub ( )16、 、读下列程序,当程序运行后用户单击窗体会显示什么结果?(8 分) Private sub form_click( ) 运行该段代码后,输出结果是: 该段程序的主要功能是:

Print “欢迎光临” End sub 结果是: 17、读下列程序,当程序运行后用户双击窗体内的某个位置,命令按钮 command1 的标题 为?(8 分) Private sub form_dblclick( ) Command1.caption= ―def‖ End sub Private sub form_load( ) Command2.caption= ―abcd‖ End sub 结果是: 18.读下程序,用户单击鼠标左健后会显示什么?(10 分) Private sub form_ MouseDown(Button As Integer,Shift As Integer, X As Single , Y As Single) print ―AAAAA‖ End sub Private sub form_ MouseUP(Button As Integer,Shift As Integer, X As Single , Y As Single) print ―BBBBB‖ End sub 结果是: 19、 Private Sub Form_Click() Static SUM As Integer I=1 Do While I<=10 SUM = SUM + I

I=I+1 Loop

Print SUM End Sub 运行程序,第一次单击窗体: 第二次单击窗体: 20、 Private Sub Form_Click() Print "*"; Tab(6); 2, Tab(15); 5 Print For I = 15 To 16 Print I; For j = 2 To 6 Step 3 Print Tab(3 * j); j * I; Next j Print Next I End Sub 程序运行结果: 程序设计题 1.在窗体上添加一个文本框和两个命令按钮,并把两个命令按钮的标题分别色绘制为“隐 藏文本框”和“显示文本框” 。当单击第一个命令按钮时,文本框消失;而当单击第二个命 令按钮时,文本框重新出现,并在文本框显示“VB 程序设计” (字体大小为 16)程序运行 界面如图 1 所示。 图一

答案:程序代码: Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.Text = "VB 程序设计" End Sub 2.设计一个计算程序。该程序用户界面如图 2 所示,由四个文本框:文本框 1(text1) 、文 本框 2 (text2) 、 文本框 3 (text3) 、 文本框 4 (text4) , 和三个命令按钮: 命令按钮 1 (command1) 、 命令按钮 2(command2) 、命令按钮 3(command3)组成。程序运行后,用户按清除按钮, 则清除文本框中显示的内容,按计算按钮,则计算三科平均成绩。单击退出按钮则退出。 图二

答案: 程序代码:Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Command2_Click() Text4.Text = Trim(Str((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)) End Sub Private Sub Command3_Click() End End Sub

3、在窗体上有一个文本框控件,名称为 TxtTime;一个计时器控件,名称为 Timer1。要求 每一秒钟在文本框中显示一次当前的时间。程序如下,请在下划线上填入恰当的内容。 Private Sub Timer1( ) TxtTime.text= ( )End Sub 1. 用 随机函数产生 10 个不大于 100 的整数存入一维数组 a 中,并找出这组数中能被 3 整除余 2 的数赋值于数组 b。点击开始按钮在窗体中显示数组 a 和数组 b。

2.编写一段程序,实现 label1(我爱我家)的无规则运动,要求使用时钟控件,同时命令按 钮 1 实现自动运动,命令按钮 2 实现手动控制。

(一) 窗体中有图片框(Picture1)和计时器(Timer1)两个控件,运行程序时,将图片加载 到图片框中,然后图片框以每 2 秒钟一次的速度向窗体的右下脚移动,每次向左、向右移动 100twip(20 分之一像素) 。请填空: Private Sub Form_load( ) (1) .Interval=200 =loadPicture(“c:\pic\ball.ico”)

End Sub Private Sub Timer1_Timer( ) Static x , y As Integer x=x+100 : y=y+100 Picture1.Move End Sub (二)有一个单击按钮过程,其作用是产生 50 个 60~100 的随机数,统计其中被 6 整除 余 2 的个数,并将这些数输出。请填空: Private Sub Command1_Click() Dim x As Integer, N% Dim Counter As Integer (1) Timer (3)

For N=1 To 50 X=Rnd()* If (3) (2) =2 Then

Print x Counter= (5) Next N Print Counter End Sub 简答题 1.什么是可视化编程和事件驱动? (4)

答案: 编程人员只需针对某个事件编写程序代码称为可视化编程。 应用程序是在响应不同的 事件时执行不同的代码片段称为事件驱动。 2.对象、属性、事件和方法指的关系任何? 答案:窗体和控件是创建应用程序所使用的对象,方法是对象的动作,事件是对象的响应, 属性可看作对象的性质。 3.简述事件驱动编程机制与传统编程方式的不同。 答案:传统编程方式是结构化程序设计,它从系统的功能入手,按照工程的标准和严格的规 范将系统分解为若干功能模块, 系统是实现功能模块的函数和过程的集合。 事件驱动编程则 是从所处理的数据入手,以数据为中心而不是以服务(功能)为中心来描述系统。它把编程 问题视为一个数据集合,数据相对于功能而言,具有更强的稳定性。事件驱动编程与传统编 程方式相比,最大的区别在于:前者首先关系关心的是所要处理的数据,而后者首先关心的 是功能。 4.简述事件驱动的工作过程。 答案:答:事件驱动的工作过程为: 1.启动应用程序,装载和显示窗体。 2.窗体或窗体上 的控件等待事件的发生。 3.当某个事件发生后,执行其对应的事件过程代码。 4.重复执行 第 2 和第 3 步,直到遇到 End 语句或单击结束按钮停止程序的运行。


更多相关文档:

大学VB考试题库

大学VB 考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic 最突出的特点是(C) 。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 ...

VB试题库精简版

VB试题库精简版_IT认证_资格考试/认证_教育专区。VB 试题库 一、选择题 1.能被对象所识别的动作与对象可执行的活动分别称为对象的___。 A.方法、事件 A....

VB试卷5

VB试卷5_IT认证_资格考试/认证_教育专区。《Visual Basic 程序设计》试卷 5 一、单项选择题(每题 1 分,共 30 分) 1.窗体文件名的后缀是( d A.BMP A. ...

vb测试题

第一卷 (本卷每题 2 分,共 70 分) 1.在 VB.NET 中每个对象都有三个基本要素,它们是 。 A.对象的名称、值和所属类 B.对象的属性、事件和方法 C....

VB题库 (1)

VB题库 (1)_IT认证_资格考试/认证_教育专区 暂无评价|0人阅读|0次下载|举报文档 VB题库 (1)_IT认证_资格考试/认证_教育专区。'---'【程序设计】 '---...

VB期末考试试卷及答案

VB期末考试试卷及答案_工学_高等教育_教育专区。VB期末考试试卷及答案VB 期末考试试卷及答案一·选择题 1.Visual Basic 是一种面向对象的程序设计语言,构成对象的...

VB_经典考试题及答案

33 2006 年 4 月全国计算机等级考试二级 VB 笔试试卷 ... 33 2005 年 9 月全国计算机等级考试二级 VB 笔试试卷 ... 43 2005 年 4 月全国计算机等级考试二...

vb试题及答案

vb试题及答案_IT认证_资格考试/认证_教育专区。VB 试卷 一、单项选择题(每题 2 分,共 40 分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) Back...

vb试题

VB试题(四) 8页 免费 VB试题(三) 9页 免费 VB二级试题 13页 免费 VB笔试...敏敏想用 vb 设计一个加法器程序,她做了如下规划,下列说法错误的是( C ) ...

VB习题及习题解答

13.VB 应用程序的执行步骤是什么? 14.Visual Basic 应用程序中有哪几种类型的错误? 二、填空题 1. Visual Basic 是一种面向 的可视化程序设计语言,采取了 的...
更多相关标签:
vb试题及答案(一) | vb试题及答案 | vb | vb考试试题及答案 | 高中vb试题 | 计算机二级考试 | vb上机试题 | vb程序设计教程 |
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com