内容发布更新时间 : 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 页