广东药学院VB考试复习题

广东药学院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 Is>10(C) Case Is>10 And Is<50 (D) Case 3,5,Is>108.一般情况下，控件的大小是由___()___属性确定的(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，则表达式 x<y And (Not y>z) Or z<x 的值是________。

(A) 1 (B) -1 (C) True (D) False14. 关于Name属性，以下叙述中___( )___是正确的。

(A) 窗体的Name属性指定窗体的名称，用于标识一个窗体。

(B) 窗体的Name属性用于设置显示在窗体标题栏的文本。

(C) 可以通过代码在程序运行中改变某个对象的Name属性值。

(D) 对象的Name属性值可以设置为空。

15. 要求出变量x和y中较大的一个并保存在变量Max中，下面的程序段中___( )___是不正确的。

(A) Max = IIf(x > 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 ___[3 ]___ (3)x mod 5=0 then print xNext IPrint "总和："; 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=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-1If m Mod i = 0 Thenk = k + i ' 因数和___[8 ]___ (8)end ifNext iIf ___[9 ]___Then (9)k=m or m=kPrint m & "是完数"ElsePrint m & "不是完数"End IfEnd Sub如下图，窗体上有两个命令按扭C1, C2及一个文本框Text1，当按下C1时，将C2的标题与Text1中的内容交换。

Private Sub C1_Click()Dim a As StringForm1.Caption = "交换后"a = ___[ 10]____ (10) Text1.TextText1.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 5x =____[12]______("请输入第" & i & "个数")) (12)inputboxPrint x;If Abs(x - 100) ___[13 ]____ Abs(Nu - 100) Then (13) <____[ 14]______ (14) nu=xEnd IfNext iPrint vbCrLf & "最接近100的数是____[15 ]______ (15)nuEnd Sub◆ 若一个三位数，它的个、十、百位数字的立方和恰巧等于这个数本身，则把这个数称为水仙花数。

完善程序求出所有水仙花数。

Private Sub Command1_Click()Dim x%, a%, b%, c%C1C2For x = ______[ 16]______ Step 1(16)for 100 to 1000 or for 100 to 999a = Int(x / 100)b = ______[17 ]______ (17) (x-a*100)\10 or int(x-a*100)/10c = x - 100 * a - 10 * bIf _______[ 18]_________ Then (18) a^3+b^3+c^3=x or x=a^3+b^3+c^3 Print xEnd IfNext xEnd Sub◆完善程序，统计文本框中大小写字母各有多少个。

s = Text1.TextFor i = 1 To _____[19 ]______ (19) len(s)c = _____[ 20]_______ (20)mid(s,i,1)If c >= "A" And c <= "Z"Thent = t+1Elsem = m +1End If___[ 21]______ (21)next iPrint "大写字符有" & t & "个"; "小写字符有" & m & "个"◆完善程序，输入x，求：Sin（x）=x/1-x^3/3!+x^5/5!-x^7/7!+``````+(-1)^n-1*x^2n-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+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个100～200之间的整数，求其中的最小值，并将原始数据和最小值显示在窗体中。

2.编程求100到1000之间的素数，将其显示在窗体上。