《2022年大一的vb期末考试题和答案 .pdf》由会员分享，可在线阅读，更多相关《2022年大一的vb期末考试题和答案 .pdf（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、学而不思则惘，思而不学则殆大一的 vb 期末考试题和答案1在代码中引用一个控件时，应使用控件的（b ）属性。ACaption BName CText D Index 2设变量x = 4 ，y = -1 ，a = 7 ，b = -8, 下面表达式（a ）的值为 “ 假” 。Ax+a 0 AND y y D x+y a+b AND NOT (y b = c AND a = d的值为。6要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True 来实现。7若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic 的语句分隔符为。8要强制显式声明变量，使用_ 语句完成。精选学习资
2、料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 8 页学而不思则惘，思而不学则殆9在 VB中，用户定义常量使用语句，声明变量使用语句。三、将下列数学表达式转换为VB 表达式。（6 分）1a2+2ab+b2 _ 2_ 38exln10 _ 42sin(450)cos(450) _ 5_ 6_ 四、判断题，正确打“”，错误打 “”（10 分）1在 VB中，控件的事件只能通过用户的操作触发。（）2字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（）3保存工程时，窗体文件和工程文件的文件名不能相同。（）4改变控件的大小，可以使用鼠标和键盘
3、，还可以通过修改代码。（）5同一过程中，数组和简单变量可以同名。（）6VB 函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（）7代码 Const Number1=15：Number1=10合法。 （）8允许将块If-Then 语句结构中的所有语句都写在一行上（）9定义数组语句Dim a(b) As Integer 是正确的（）10在过程调用中，“ 实参表 ” 和“ 形参表 ” 中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（）五、根据题意，将下列程序补充完整。（16 分）1 产生 20 个10 ，100 之间的随机整数，每行输出10
4、 个数据。Private Sub command1_click() Dim a(1 To 20) As Integer Randomize i = 0 Do While i 10 Then Print a(i); Loop End Sub 2打印九九乘法表Private Sub command1_click() For i = 1 To 9 For j = 1 To 9 Print （）Next j 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 8 页学而不思则惘，思而不学则殆Print （）End Sub 3判断一个数是否素数Pri
5、vate Sub command1_click() x = InputBox(请输入一个整数) flag = 1 For i = 2 To （) If x Mod i = 0 Then flag = 0 End If Next i If （）Then Print x; 是素数 Else Print x; 不是素数 End Sub 4利用数组输出Fibonacci 数列的前15 项。该数列的第1 项和第 2 项为 1，其余各项均为其前两项之和。Private Sub Command1_Click() （）f(1) = 1 : f(2) = 1 List1.AddItem f(1) : List1
6、.AddItem f(2) For i = 3 To 15 f(i) = （) List1.AddItem f(i) Next i End Sub 六、写出下面程序的输出结果。（每题 3 分，共 18 分）1Private Sub command1_click() x = InputBox(enter x) x 的输入值为 -8 Select Case Sgn(x) + 2 Case 1 Print y=; x 2 + 1 Case 2 Print y=; x - 4 Case 3 Print y=; x 3 + 100 End Select End Sub 2Private Sub comm
7、and1_click() Dim a, b, c, d, e As String a = Zheng Zhou b = Zhong Yuan Gong Xue Yuan c = a + + b d = Left(a, 1) + Mid(a, 7, 1) 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 8 页学而不思则惘，思而不学则殆e = Left(b, 1) + Mid(b, 12, 1) Print c Print d; e End Sub 3设有 Sub 过程：Private Sub p1(x As Integer, ByVal
8、y As Integer) x = 4 ：y = 5 ：z = 6 End Sub 则如下程序段的运行结果是: Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 2: z = 3 Print x, y, z Call p1(x, y) Print x, y, z End Sub 4Private Sub command1_click() k = 0 For i = 1 To 3 k = k + 1 a = i * i * k Print a; Next i End Sub 5Private Sub co
9、mmand1_click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i * 2 + j Print a(i, j); Next j Print Next i End Sub 6设有 Function 过程 : Private Function f1(b, a) a = a * a: b = b * b f1 = a - b End Function 则如下程序段的运行结果是什么？精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 8 页学而不思则惘，思而
10、不学则殆Private Sub command1_click() a = 4: b = 3 a = f1(a, b) Print a End Sub 七编程题（共30 分）注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、 5、6 小题；其他学生做第 1、2、3、4 小题。1给出一个百分制的成绩，要求输出成绩的相应等级。（7 分）90 分以上为 “ A”，80 89 分为 “ B”，7079 分为 “ C”，6069 分为 “ D”， 60 分以下为 “ E”。2求 n!,n 由键盘输入。 （7 分）3产生 20 个 0 ，99 之间的随机整数，并按从小到大的顺序输出。（8 分）4产生并输
11、出一个6 6 的二维数组A： （8 分）（1）两条对角线上元素的值为1，其余元素为小于30 的随机整数。（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。5输出 1+2+ +100的和，并求出1100 之间能被17 整除的数据的个数（8 分）6从键盘输入10 个数，求出其中的最大数，最小数和平均值。（8 分）VB 试题答案及评分标准一、单项选择题（每题1 分，共 10 分）1B 2 A 3C 4C 5D 6D 7 A 8B 9 D 10 B 二、填空题（每空1 分，共 10 分）1n Mod 13=0 And n Mod 17=0 1、 对象3LEFT( “ Visual Basi
12、c 6.0” ,6)46 5False 6Autosize 7 ：8 Option Explict 9Const Dim 三、将下列数学表达式转换成VB 表达式（每题1 分，共 6 分）1、 a2+2*a*b+b2 2、 x(1/3)*y(1/4) 3、 8*exp(x)*log(10) 4、 2*sin(3.1416/4)*cos(3.1416/4) 5、 (x+y+z)/sqr(x2+y2+z2) 6、 log(1+abs(a+b)/(a-b) 四、判断题（每题1 分，共 10 分）1 2 34 56 7 89 10五、根据题意，将下列程序补充完整（每空1 分，共 10 分）1 （ 1）
13、int(rnd*91)+10 （ 2）I10 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 8 页学而不思则惘，思而不学则殆2 （ 1） i*j （ 2） next i 3 （ 1）int(sqr(x)或者 x-1 （ 2）flag=1 4 （ 1）dim f(15) as integer （2）f(I-1)+f(I-2) 六、写出下面程序的输出结果（每题4 分，共 24 分）1、 y=65 2、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2 分ZZZG 2 分31 2 3 4 2 3 41 8 27 5
14、3 4 5 6 7 5 6 7 8 9 7 8 9 10 11 9 10 11 12 13 11 12 13 14 15 6-7 七、编写程序1. private sub command1_click() dim x as integer,grade as string 1 分x=text1.text 1 分select case x 4 分case 90 to 100 grade=” A”case 80 to 89 grade=” B”case 70 to 79 grade=” C”case 60 to 69 grade=” D”case is a(j) Then t = a(i): a(i
15、) = a(j): a(j) = t End If Next j Next i For i = 1 To 20 2 分Print a(i); Next i End Sub 4 Private Sub Command1_Click() Dim a(1 To 6, 1 To 6) As Integer 1 分 Dim aver As Single Randomize For i = 1 To 6 3 分For j = 1 To 6 If i = j Or i + j = 7 Then a(i, j) = 1 Else a(i, j) = Int(Rnd * 30) End If Print a(i
16、, j); Next j Print Next i Print Max = 0: Min = 30 4 分 For i = 1 To 6 s = 0 For j = 1 To 6 s = s + a(i, j) Next j aver = s / 6 If aver Max Then Max = aver: row_max = I 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 8 页学而不思则惘，思而不学则殆If aver Max Then Max = x If x Min Then Min = x Next i Print s / 10 1 分Print Max, Min 1 分End Sub 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 8 页，共 8 页