答案-应用基础二Aluo200905_v2.docVIP

上 海 金 融 学 院 2008 ——2009 学年 第 2 学期 《计算机应用基础（二）》课程 代码 集中考试 考试形式： 闭卷 考试用时: 90 分钟 考试时不能使用计算工具 试 题 纸 一、单项选择题（20分，每小题1分） 1、下面合法的常量是_____ ‘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、下面正确的赋值语句是_____.–1 11、若要使某命令按钮获得控制焦点，可使用的方法是______ A) GotFocus B) SetFocus C) Refresh D) Value 12、以下4类运算符优先级最低的是______已知a则表达式Left(a, 4) + Mid(a, 4, 2)的值是______ 123456 C) 123445 D) 123445 16、在下列表达式中正确的日期型常量是_____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 命令后,输出结果为______–9 27 19、可以同时删除字符串前导和尾部空格的函数是______Private Sub Form_Click() x = 1 : n = 0 Do while x15 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