VB程序设计练习题附加答案

内容发布更新时间 : 2024/12/23 11:09:54星期一 下面是文章的全部内容请认真阅读。

C.Dim s As Type Student D.Dim s As Type s.name=\张三\ s.name=\张三\

24、一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程,其定义格式为:

Form1中定义的过程: Private Sub frmfunction1() End Sub

Form2中定义的过程: Public Sub frmfunction2() End Sub

mdlFunc中定义的过程: Public Sub mdlFunction() End Sub

在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是( ) A.上述三个过程都可以在工程中的任何窗体或模块中直接被调用 B.只有mdlFunction过程能够被工程中各个窗体或模块直接被调用

C.frmfunction1只能在form1中调用,而frmfunction2 则可以在所有模块或窗体中被直接调用

D.上述三个过程都只能在各自被定义的模块中直接调用

25、VB中Do……Loop结构既可以构成当型循环,也可以构成直到型循环,根据下面的代码:

Dim i,n as Integer n = 20 i = 1 Do Print i; i = i + 2

第 11 页 共 32 页

Loop Until i >20

判断循环结构的类型和循环体的执行次数,正确的选项是( ) A.当型循环,20次 C.当型循环,10次

B.直到型循环,10次 D.直到型循环,20次

26、在程序中,使用InputBox函数可以接受用户的输入,如果要把它的返回值转换为数值型的数据,应该使用的函数是( )

A.Val

B.Len

C.Str D.Log

27、动态数组因为在程序运行前无法确定数组的大小,所以经常根据程序的运行情况,对数组进行重新定义,以下关于VB中动态数组的叙述中不正确的是( )

A.可以用ReDim语句重新定义动态数组,并且可以进行多次重定义 B.首次用Dim进行动态数组声明的时候,必须指明它的类型和上下界 C.Preserve为ReDim语句的可选参数,用于保留动态数组原来的内容 D.当对动态数组使用Erase语句进行释放操作时,将释放其内存

28、VB中的控件也叫做部件或组件,主要包括三类,以下哪一项不属于VB控件的分类( )

A.控件

B.可插入对象

D.ActiveX控件

C.ADO控件

29、表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是( )

A.4

B.5

C.6

D.7

30、可以同时删除字符串前导和尾部空白的函数是( )

A.Ltrim

B.Rtrim

C.Trim

D.Mid

三、简答题

1、全局变量声明有哪些限制?

2、字符串是否可以自动转换为数字类型?

3、用Format函数格式化后的字符格式在不同区域环境下的输出是否相同?为什么? 4、在InputBox函数中,哪一个参数是必需的? 5、在MsgBox函数中哪一个参数是必须的? 6、在什么情况下使用过程?

第 12 页 共 32 页

7、为什么要进行程序调试? 8、调试程序有哪些手段?

9、用语句Dim A(-3 To 5) As Integer定义的数组的元素个数是多少?

10、设有如下的Visual Basic表达式:5*x^2-3*x-2*Sin(a)/3,与它对应的数学式是什么? 11、数学式(2x?a)(3y?b)对应的VB表达式是什么? 12、表达式2>3 And 4<=5 Or 4>4的值是什么? 13、怎样在程序中设置断点? 14、在什么情况下可以设置断点? 15、程序出错的类型有哪几种?

16、在同一模块、不同过程中声明的相同变量名,两者是否表示同一个变量?为什么? 17、什么情况下会出现“数组下标越界错误”? 18、逐语句和逐过程有什么区别? 19、表达式2.75 * 2 \\ 3.45的值是什么? 20、在程序设计中为什么尽量不用GoTo语句?

四、读程序题

1、分析以下程序,写出运行结果。

Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case score Case Is < 60 A$ = \ Case 60 To 69 A$ = \ Case 70 To 79 A$ = \ Case 80 To 89

第 13 页 共 32 页

A$ = \ Case Else A$ = \ End Select Print A$ End Sub

2、读下面的程序,分析其功能,写出运行结果。

在窗体上有一个命令按钮,名称为Command1。然后编写如下程序:

Private Sub Command1_Click() For I = 1 To 4 For J = 0 To I Print Chr$(65 + I); Next J Print Next I End Sub

程序运行后,如果单击命令按钮,则在窗体上显示的内容是什么? 3、阅读下面的程序,分析并写出其功能。

Sub insert(a() As Single,ByVal x As Single) Dim m as integer,n as integer n=1

Do While n<20 And x>a(n) n=n+1

Loop

For m=20-1 To n Step –1

a(m+1)=a(m)

Next m

第 14 页 共 32 页

a(n)=x End Sub

4、分析以下程序,写出运行结果。

Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub

Private Sub Commandl_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a() For i =1 To 4 Print a(i) Next i End Sub

运行上面的程序,单击命令按钮,输出结果是什么? 5、分析以下程序,写出运行结果。

Sub sele()

Dim n as Integer i=21:n=3 Do While i>n i=i-n

第 15 页 共 32 页

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4 ceshi