1、广东药学院 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 中，保存一个工程
2、至少应保存两个文件，这两个文件分别是_()_。(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 和Wi
3、dth9. 下列变量名中，合法的变量名是_()_。(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
4、, “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 20x = Int(_1_) (1)Int(Rnd*101+100)_2 _ (2)s=s+xIf _
5、3 _ (3)x mod 5=0 then print xNext I Print “总和：“; s 执行下面这段程序后，窗体中显示_4 _和_5 _。(4) 5 (5) 5.6s = 2For i = 3.2 To 4.9 Step 0.8s = s + 1Next iPrint 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=
6、a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-l，则输出结果为_ 6_。(6)2 请完善以下判断完数的程序。一个数如果恰好等于它的因子之和，这个数就被称为“完数” 。一个数的因子是指除了该数本身以外能够被其整除的数。例如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 Thenk = k + i 因数和_8 _ (8)end
7、ifNext iIf _9 _Then (9)k=m or m=kPrint m For i = 2 To 5x =_12_(“请输入第“ If Abs(x - 100) _13 _ Abs(Nu - 100) Then (13) = “A“ And c = “Z“Thent = t+1Elsem = m +1End If_ 21_ (21)next iPrint “大写字符有“ “小写字符有“ & m & “个“ 完善程序，输入 x，求：Sin（x）=x/1-x3/3!+x5/5!-x7/7!+(-1)n-1*x2n-1/(2n-1)!要求当第 N 项的精度小于 10-5 时结束运算，自变量
8、 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+ti = i + 2t = -1_24 _ x 2 / (i - 1) * i) (24)*t*_25_ (25)loopMsgBox “计算结果 Sin(“ & x & “)=“ & Sx & vbCrLf & “ 验证 Sin(“ & x & “)=“ & Sin(x)三、编程题（20 分，每小题 10 分）1随机产生 10 个 100200 之间的整数，求其中的最小值，并将原始数据和最小值显示在窗体中。2.编程求 100 到 1000 之间的素数，将其显示在窗体上。
