[计算机]VB阶段测试卷.docVIP

VB程序设计阶段测试试卷院系_年级_专业_学号_姓名_成绩_一、选择题（每题1分，共10分）1窗体文件名和标准模块文件名的后缀分别是_。 A frm和vbp B frm和bas C bas和 Vbw D vbp和vbs2通过文本框的_事件过程可以获取文本框中键入字符的ASCll码值。 AChange BLostFocus CGotFocus DKeyPress3可以在窗体模块的通用声明段中声明_。 A全局变量B全局常量C全局数组 D全局用户自定义类型4调用过程时，若不想改变实参中的值，应采用_的方法。 A传地址B传信息C传值D传对象5下面叙述中正确的是_。 ASpace函数只能用于Print方法中，不能用于表达式 BMid(s，n)表示从s字符串左边第n个位置开始向右取字符，直到末尾 C连接符“”可以用于连接任意类型的数据连接 DRight函数用于取字符串右边的n个字符6语句 Print “Sgn（-26）=”；Sgn(-26）的输出结果_。 ASgn（-26）=-1 BSgn（-26）=Sgn（-26） CSgn（-26）=-26 DSgn（-26）+17在VB程序设计中所产生的错误分为三类：语法错误、运行错误和_错误。 A逻辑B概念C函数D语言8以下说法不正确的是 A使用ReDim语句可以改变数组的维数 B使用ReDim语句可以改变数组的类型 C使用ReDim语句可以改变数组元素的个数 D使用ReDim语句可以对数组中的所有元素进行初始化9若要将滚动条的最小值设为0，最大值设为255，应对其_属性进行设置。 ALeft和 Top BWidth和 Height CSmallChange和 LargeChange DMin和 Max10在过程中已说明a、b、c 均为Integer型变量，且均已被赋值，其中a30、b40、c=50，如再执行下面的语句，可正常执行的是_。 APrint abC BPrint 1abC CPrint abC1 DPrint abCl！二、简单填空（每题1分，共10分）1顺序结构、分支结构和_是结构化程序设计的核心。2欲使某窗体从屏幕上消失，但仍驻留在内存中，应使用窗体的_方法。s设置文本框的_属性，可以使在文本框中键入字符时，只显示某个特定的字符，如“”。4可将同一窗体上的多个 Option Button控件分为几个组的控件是_。5如果将非0的数赋值给一个布尔变量，则布尔变量的值为_。6标准模块中不能包含_过程。7在定义过程时，_变量不能作为形式参数。8用_语句可以重新初始化大小固定的数组的元素，以及释放动态数组的存储空间。9用 Dim在A（-3 To 5，4 to 10）As Integer语句定义的数组的元素个数是_。10通用过程包括：Sub过程和_过程。三、写出下列程序的运行结果（每题2分，共20分）1运行下列程序，第一行输出的内容是 （1） ，第二行输出的内容是 （2） 。 Private Sub Command1_CliCk() Dim m As Integer, n As Integer Do While n 5 Then Exit Do n = n + m Loop Print m=; m Print n=; n End Sub2运行下列程序，第二行输出的内容是 (3) ，第三行输出的内容是 (4) 。 Private Sub Command1_ Click（） Dim st As String, st1 As String, st2 As String st1 = D For I = 1 To 3 st2 = LCase(st1) st1 = st1 + st2 st = st + st1 Print st st1 = Chr(Asc(st1) + 1) Next I End Sub3运行下列程序，第一行输出的内容是 (5) ，第四行输出的内容是 (6) 。 Private Sub Command5_Click（） Dim a(4, 4) As Integer, I As Integer, J As Integer Dim X As Integer, N As Integer m = 1: N = 1: X = 1 For I = 1 To 4 For J = N To 5 - N Step m a(I, J) = X X = X + 1 Next N = J - m m = -m Next For I = 1 To 4 For J = 1 To 4 Print a(I, J); Next Print Next End Sub4运行下列程序，第一行输出的内容是 (7) ，第三行输出的内容是 (8) 。 Private Sub Sub5(ByVal X As Integer, ByVal Y As Integer, z As Integer) z = X + Y + z End SubPrivate Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 5: b = 8: c = 3 Call Sub5(a, b, c) Print a, b, c Call Sub5(a, a + b + c, b) Print a, b, c Call Sub5(a + b, b / a, a) Print a, b, c End Sub5运行下列程序，第一行输出的内容是 (9) ，第二行输出的内容是 (10 ) 。 Private Sub Sub5(N As Integer, ByVal m As Integer) N = N Mod 10 m = m 10 End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x = 12 y = 34 Call Sub5(x, y) Print x Print y End Sub四、读程序填写代码（每题3分，共30分）l. 将给定的N位（N10）正整数按逆序输出，如12345逆序输出后得到 54321，并且求出各位数字之和，运行结果如图所示。Private Sub Form_Click() Dim x As Long, sum As Integer x = Val(InputBox(请输入10位以内的正整数) Print 正整数：; x Call rv(x, sum) Print (1) Print 各位数字之和为：; sum; End Sub Private Sub rv(x As Long, s As Integer) Dim i As Integer, a() As Integer, k As Long i = l Do (2) a(i) = x Mod 10 k = k * 10 + a(i) s = s + a(i) (3) i = i + 1 Loop Until x = 0 x = k End Sub2在数组 A中存放 4个数据11、22、33、44，输入 X，如果 X在数组中，则将其从数组中删除，删除后需将后面的数据依次向前移动一个位置；如果X不在数组中，则显示“数据没找到”；如果X超出了数组的第1个数或第4个数，则显示“数据超出范围”。Private Sub Command1_Click() Dim a(4) As Integer a(1) = 11: a(2) = 22: a(3) = 33: a(4) = 44 x = Val(InputBox(请输入X：) If (4) Then MsgBox (数据超出范围) Else For i = 1 To 4 If (5) Then Exit For Next If i 5 Then For J = i + 1 To 4 (6) Next For k = 1 To 3 Print a(k) Next Print Else MsgBox 数据没找到 End If End If End Sub 3本程序的功能是在二维数组中查找鞍点元素。所谓鞍点即该元素在所在行中为最大，且在所在列中为最小。在一个数组中鞍点可能存在，也可能不存在这样的元素。例如有一如下数组，数组各元素的值从文件 Datatxt中读取，其中第 2行第 2列的元素 12就是鞍点元素。 Private Sub Form_click（） Dim a（3，3）As Integer, i As Integer， J As Integer Dim maxvr As Integer, col As Integer, flg As Integer For i1 to 3 For j=1 To 3 a（i，j）Rnd*8910 Print a(i，j）； Next j PrintFor i = 1 To 3 maxvr = (7) col = l For J = 2 To 3 If maxvr a(J, col) Then (9) Next J If J 3 Then Print a(; i; ,; col; )=; a(i, col) flg = 1 End If Next i If (10) Then Print 鞍点元素不存在 End Sub 五、按要求编写通用过程代码（每题了分，共14分）1编写一个判断是否素数的子过程，过程名为Sushu，形参N是要判断的数，flag是判断的结果。Pnvate Sub Sushu（N As Integer, flag As Boolean） End Sub2编写一个求两个数的最小公倍数的函数过程，函数名为minpub，形参M、N分别为两个整数。 Private Function minPub（M As Integer， N As Integer） as Inte