广东药学院VB考试复习题.doc

广东药学院VB考试复习题一、单选题（每题2分，共30分）1.我们通常说的U盘属于计算机部件中的_( )_。(A) 输出设备 (B) 输入设备 (C) 存储设备 (D) 打印设备2.下列表示存储容量的数据中，_( )_是最小的。(A)20480 KB (B) 1.44 MB (C) 1 GB (D)486 Byte3. 一个完整计算机系统应包括_()_。(A) 主机和显示器 (B) 硬件系统和软件系统(C) 系统软件和应用软件 (D) 内存和外存4.二进制数10101转换为十进制是_()_。(A) 17 (B) 21 (C) 42 (D) 101015.在VB中，保存一个工程至少应保存两个文件，这两个文件分别是_()_。 (A)文本文件和工程文件 (B)窗体文件和工程文件 (C)窗体文件和标准模块文件 (D)类模块文件和工程文件6.设a=6，则执行 x= IIf(a 5, -1, 0) 后，x的值为_()_。(A)5 (B)6 (C)0 (D)-17.以下Case语句中错误的是_()_。 (A) Case 0 To 10 (B) Case Is10 (C) Case Is10 And Is108.一般情况下，控件的大小是由_()_属性确定的(A) Width和Height (B) Top和Left (C) Width和Left (D) Top和Width9. 下列变量名中，合法的变量名是_()_。(A)t24 (B)iun-k (C)24t (D)t+p10.对象的三个要素是：_。A) 属性、方法、事件 B) 色彩、高度、宽度C)事件、属性、色彩 D) 属性、高度、宽度11. 符号是声明_类型变量的类型定义符。A)Integer B)Variant C)Single D)String12. 以下表达式中_与其他几个的值不同。(A) Left(Right(ABCDEDEFG, 6), 4) (B) Right(Left(ABCDEDEFG, 7), 4)(C) Mid(ABCDEDEFG, 4, 4) (D) String(2, DE)13. 设x=4，y=8，z=7，则表达式 xz) Or z y, x, y)(B) If x y Then Max = x Else Max = y(C) Max = xIf y = x Then Max = y(D) If y x Then Max = yMax = x二、填空题（50分，每空2分，请在实验报告上标明每个空的编号） 下面这段程序要在窗体显示20个100，200间的随机整数，求这些数的和，并显示其中5的倍数请完成程序。 For i = 1 To 20 x = Int(_1_) (1)Int(Rnd*101+100) _2 _ (2)s=s+x If _3 _ (3)x mod 5=0 then print x Next I Print 总和：; s 执行下面这段程序后，窗体中显示_4 _和_5 _。(4) 5 (5) 5.6 s = 2 For i = 3.2 To 4.9 Step 0.8 s = s + 1 Next i Print s, i 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-la=InputBox(请输入A的值)a=Val(A)b=InputBox（请输入B的值)b=Val(B)x=InputBox(请输入x的值)x=Val(x)a=a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-l，则输出结果为_ 6_。(6)2 u 请完善以下判断完数的程序。一个数如果恰好等于它的因子之和，这个数就被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数。例如6是一个完数，因为6=1+2+3。Private Sub Command1_Click()Dim m%, k%, i%m = Val(Text1.Text)k = 0For i = _ 7_ (7)1 to m-1 If m Mod i = 0 Then k = k + i 因数和 _8 _ (8)end ifNext i If _9 _Then (9)k=m or m=k Print m & 是完数 Else Print m & 不是完数 End IfEnd Subu 如下图，窗体上有两个命令按扭C1, C2及一个文本框Text1，当按下C1时，将C2的标题与Text1中的内容交换。C2C1 Private Sub C1_Click()Dim a As StringForm1.Caption = 交换后a = _ 10_ (10) Text1.Text Text1.Text = _11 _ (11) C2.CaptionC2.Caption = aEnd Sub 编程键盘输入5个数字，求出其中最接近100的数字。Private Sub Command1_Click()Dim i%, x%, Nu%Nu =Val(InputBox(请输入第一个数字)Print 你输入的五个数分别是: & Nu;For i = 2 To 5 x =_12_(请输入第 & i & 个数) (12)inputbox Print x; If Abs(x - 100) _13 _ Abs(Nu - 100) Then (13) = A And c = ZThen t = t+1 Else m = m +1 End If_ 21_ (21)next iPrint 大写字符有 & t & 个; 小写字符有 & m & 个 完善程序，输入x，求：Sin（x）=x/1-x3/3!+x5/5!-x7/7!+(-1)n-1*x2n-1/(2n-1)!要求当第N项的精度小于10-5时结束运算，自变量x单位为弧度。提示：t（当前项） = -1 * t（前一项） * x 2 / (i - 1) * i)Dim x!Dim Sx!Dim i%, t!x = Val(InputBox(x=)i = 1t = x / 1Do Until _22 _ 10 (-5) (22)abs(t) _23 _ (23)sx=sx+t i = i + 2 t = -1_24 _ x 2 / (i - 1) * i) (24)*t*_25_ (25)loopMsgBox 计算结果Sin