答案-应用基础二Aluo200905_v2

  • 格式:doc
  • 大小:69.00 KB
  • 文档页数:8

上 海 金 融 学 院 2008 ——2009 学年 第 2 学期 《计算机应用基础(二)》课程 代码:13330159 集中考试 考试形式: 闭卷 考试用时: 90 分钟 考试时不能使用计算工具

试 题 纸 一、单项选择题(20分,每小题1分) 1、下面合法的常量是_____ A) 1/2 B) False C) „Name D) 12*5 2、决定窗体标题栏显示内容的属性是______ A) Text B) Name C) Caption D) BackStyle 3、下列符号哪一个是VB中的合法变量名______ A) plane B) del*4 C) 1ax D) ab 4、函数Int(Rnd(0)*5)是在哪个范围内的整数______ A) (0, 1) B) (1, 5) C) (0, 5) D) (1, 6) 5、确定一个控件在窗体上位置的属性是______ A) Width或Height B) Width和Height C) Top或Left D) Top和Left 6. 表达式2*2^2+2*8/4+2^2的值是______ A) 64 B) 32 C) 48 D) 16 7、下面正确的赋值语句是_____. A) y=x+30 B) x+y=30 C) pr*u=30 D) x=3y 8、VB窗体设计器的主要功能是______ A) 建立用户界面 B) 编写源程序代码 C) 画图 D) 显示文字 9、用语句Dim a(-2 To 4)定义的数组的元素个数是______ A) 6 B) 7 C) 8 D) 9 10、设a=2, b=3, c=4, d=5,表达式3>2*b Or a=c And b<>a+c 的值是______ A) 1 B) True C) False D)–1 11、若要使某命令按钮获得控制焦点,可使用的方法是______ A) GotFocus B) SetFocus C) Refresh D) Value 12、以下4类运算符中,优先级最低的是______ A) 算术运算符 B) 字符运算符 C) 关系运算符 D) 逻辑运算符 13、下列不属于程序的三种基本控制结构的是______ A) 顺序结构 B) 递归结构 C) 选择结构 D) 循环结构 14、窗体的边框样式由窗体对象的______属性来设置 A) BorderStyle B) WindowsState C) BackStyle D) FillStyle 15. 已知a="12345678",则表达式Left(a, 4) + Mid(a, 4, 2)的值是______ A) 123456 B) "123456" C) "123445" D) 123445 16、在下列表达式中,正确的日期型常量是_____ A) "12/04/01" B) 12/04/01 C) {12/04/01} D) #12/04/01# 17、若要退出Do…While循环,可使用的语句是______ A) Exit Do B) Exit C) Exit For D) Exit Sub 18、执行 PRINT 18/2*3,-3^2 命令后,输出结果为______ A) 3 9 B) 3 -9 C) 27 -9 D) –9 27 19、可以同时删除字符串前导和尾部空格的函数是______ A) Ltrim B) Rtrim C) Mid D) Trim 20、运行程序时,系统自动执行窗体的______事件 A) DblClick B) Unload C) Load D) Click

二、程序阅读,写出程序运行结果(20分,每小题5分) 1. 此程序为窗体的单击事件过程。 Private Sub Form_Click() x = 1 : n = 0 Do while x<15 x = x * 2 n = n + 2 Loop Print “x =”; x; “n =”; n End Sub 2、此程序为命令按钮的单击事件过程。 Option base 1 Private Sub Command1_Click() Dim IA, imax%, n%, I%, J%, t% IA = Array(8, 6, 9, 3, 2, 7) n = 6 For I = 1 To n-1 imax = I For j = I+1 To n if IA(j) > IA(imax) Then imax = j Next j t = IA(I) : IA(I) = IA(imax) : IA(imax) = t for j = 1 to n print IA(j); next j print Next I End Sub 3、此程序为命令按钮的单击事件过程。 Private Sub Command1_Click() Dim IA, n%, I%, J%, t% IA = Array(8, 6, 9, 3, 2, 7) n = 6 For I = 1 To n-1 For j = n-2 To I-1 Step -1 if IA(j) < IA(j+1) Then t = IA(j) : IA(j) = IA(j+1) : IA(j+1) = t End if Next j for j = 0 to n-1 print IA(j); next j print Next I End Sub

4、此程序为命令按钮的单击事件过程。 Private Sub Command1_Click() Dim m As Integer, n As Integer m = 9 : n = 30 If m < n then t = m : m = n : n = t End If Do While n <> 0 r = m Mod n m = n n = r Loop print “m = “; m; “n = ”; n End Sub 三、程序填空(20分,每个空格2分)

1、请将下列程序补充完整。 程序功能是输入三角形的三条边的值,判断如果可以构成三角形,则计算三角形的面积,并判断组成的是等边三角形、等腰三角形或一般三角形;若不能构成三角形,则弹出提示信息框,提示信息为“出错,请重新输入”。 Private Sub Form_Load() Dim a!, b!, c!, t!, s!, k% a = Val(text1.text) b = Val(text2.text) c = Val(text3.text) If ___(1)___ then „提示:可以构成三角形 t = (a + b + c) / 2 s = sqr(t * (t-a) * (t-b) * (t-c)) Print s If ___(2)___ then Print “这是等边三角形” ElseIf ___(3)___ then Print “这是等腰三角形” Else Print “这是一般三角形” End if Else ___(4)___ End if End Sub

2、请将下列程序补充完整。程序功能是从键盘上输入若干个学生的考试成绩,统计并输出最高分、最低分和学生人数。当输入-1时结束输入,输出结果。

Private Sub Form_Click() Dim score As Single ,smax As Single, smin As Single Dim count As integer Score = InputBox(“Enter A Score”) count = 1 :smax = score ___(1)___ Do While ___(2)___ If score > smax Then smax = score If ___(3)___ Then smin = score score=InputBox(“Enter A Score”) ___(4)___ Loop Print “max=”;smax, “min=”;smin,”count=”;count End sub 3、请将下列程序补充完整。程序功能是2的n次方的值 Private Sub Command1_Click() n = 10 : m = 1 : k = 1 Do while ___(1)___ M = m * 2 k = ___(2)___ Loop Print m End Sub 四、程序改错(20分,每个错误2分) 说明:请将下列事件过程中的存在错误的代码(加注编号)以正确的形式写在答题纸上。 1、 Private Sub Command1_Click() n = 7 : Dim b(n) As Integer ① s = 0 For j = 0 To 6 b(j) = InputBox(“请输入正整数”) ② If 5000 > b(j) > 0 Then s = s + b(j) ③ Next j Print “s = ”; s End Sub

2. Private Sub form1_Click() ① m = 1 for I = 1 to 3 if m ≠ 2 then m = m + 1 ② Loop ③ Print “m =”; m End Sub

3. Private Sub Command1_Click() Dim k, m, p as integer ① k = 4 : m = 1 p = func(k, m) Print “p=”; p End sub Function func(a as integer, b as integer) as integer m = 1 : I = 2 I = I + m + 1 m = I + a – b p = m ② End Function