VB练习测试题

品文档下载命运如同手中的掌纹，无论多曲折，终掌握在自己手中)【本页是封面，下载后可以删除！】一，选择题。1. 关于KeyPress事件的Keyascii参数，下列说法正确的是（ AA. Keyascii参数返回用户所按键的 ASCII码B. Keyascii参数为字符型C. Keyascii参数与KeyCode参数返回值一样D . Keyascii参数可以省略2. 以下程序段执行的结果是（B ）j=0Do While j30 j=（j+1）*（j+2） k=k+1LoopPrint k;jA. 0 1B.3 182C.30 30D.4 303. 以下叙述中错误的是（A ）A. 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B. 以.BAS为扩展名的文件是标准模块文件C. 窗体文件包含该窗体及其控件的属性D. 个工程中可以含有多个标准模块文件4. Private Sub Form_Click()score = 85Select Case scoreCase Is =b And b10B. (ab) Or (b0)C. (a0)D. (-3+5a) And (b0)9. 下列语句中循环体的执行次数是( A )a=3 : b=1For I=a to b step 1Print INext IA. 0 B . 1 C . 2 D . 310. 以下叙述中错误的是(C )A.Visual Basic是事件驱动型可视化编程工具B. Visual Basic 应用程序不具有明显的开始和结束语句C. Visual Basic 工具箱中的所有控件都具有宽度（ Width ）和高度（Height ）属性D. Visual Basic 中控件的某些属性只能在运行时设置11. 关于文件的叙述，错误的是（ A ）。A. VB提供访问文件的模式有：二进制访问、八进制访问和十六进制访问B. 文件是相关记录的集合C. 文件一般指存储在计算机外部介质上一组信息的集合D. 字符是数据文件中最小的信息单位12. MouseMove事件的发生是（ A）。A伴随鼠标指针移动而连续不断发生的B. 当鼠标移动时将无限次的被激发C. 每秒激发一次D .与鼠标灵敏度相关的13. 若要暂时关闭时钟，可通过设置属性（ B）为False来实现。A.VisibleB. En abledC. I ntervalD. Timer14. 在窗体中添加一个名称为 Comma nd的命令按钮和一个名称为 Text1的文本框，然后编写 如下程序：Private Sub Comma nd1_Click（）Dim x, y, z As In tegerx = 10y = 5z = 23Text1.Text =Call p1（x, y, z）Text1.Text = Str（z）End SubSub p1(ByVal a As In teger, ByVal b As In teger, c As In teger) c = a + bEnd Sub程序运行后，如果单击命令按钮，则文本框中显示的内容是（BA. 0 B . 15 C . Str（z） D . 2315. 滚动条的（A）属性用于返回或设置滚动条的当前值。A. ValueB. MaxA的值为（A ）C. MinD. Data16. 当VB执行下面语句后，A=1If A0 The n A=A+1C . 2 D . 3定义的数组元素的个数为（D.11 D . 12If A1 The n A=0A . 0 B . 117. 语句 Dim a(-1 To 10)A. 1 B . 10 C18. 当一个工程含有多个窗体时，其中的启动窗体是(D)。A.启动VB时建立的窗体B.第一个添加的窗体C. 最后一个添加的窗体D.在 工程属性”对话框中指定的窗体19. 有语句abc=lnputbox( strl ” str2 ” str3 ”2)执行后,将显示一个信息框，此时如单 击 确定”按钮，则abc的值是(C )A.strlB.str2 C.str3D.320. 表达式4+5 6 * 7 / 8 Mod 9 的值是：BA. 4B. 5C. 6D. 7二判断题1. 在控件数组中，控件的类型可以不同，但控件的名字必须相同。(F)2. 模块(module)是相对独立的程序单元。(T)3.时钟控件只支持Timer事件。(T)4.运算符mo(与的功能是一样的。(F5.在 VB中,s=iif( x =0 ,1, -1与 if x=0 the n s=1 else s=-1是完全等效的语句(T6.组合框包含了列表框的功能。(T)7. 在控件数组中，每一个控件都共享同一个事件过程。(T)8. 在命令按钮释放鼠标按钮时，所触发的事件称为mouseup事件。(T)9. Visual Basic是一种面向对象的可视化程序语言，米用了事件驱动的编程机制(T10. KeyDown事件、KeyUp事件不与KeyPress事件同时激发。( F)二填空题1. 有过程swap,其功能为交换一维数组，即第一个与最后一个元素交换，第二个与倒数第 二个元素交换，请填空。Sub swap( a() as in teger)M=Lbou nd(a)N= Ubou nd(a)J=0For k=M to (N-M+1)/2T=a(k)a(k) = a(N-J)a(N-J)= TJ=J+1Next2. 产生10个介于0到 100之间的随机整数，求数组中的最大数并在窗体上输出Private Sub Comma nd1_Click()Dim a (1 To 10) As IntegerDim max As In tegerFor I = 1 To 10a(l)= In t(R nd * 101 )Next Imax = aFor I = 2 To 10If a(l) max The n Next I MAX=A(I)3. 输入二个正整数N、N，用辗转相除法求它们的最大公约数P。Sub comma nd1_click()Dim M%,N%M=val(i nputbox(M=”)N=val( in putbox(N=)DoP= M mod NM=NN= PLoop While P0P=MPrint PEnd sub4. 输入一个正整数N,判断它是否是素数。Sub comma nd1_click()Dim N%N=val(i nputbox(N=”)For k=2 to sqr(N)IfN mod k=0 thenFOREXITEnd ifNextIf ksqr(N) thenPrint N;是素数”ElsePri nt N;不是素数End ifEnd sub5. 下面程序的作用是利用随机函数产生10个100200之间(包含100、200)的随机数，打印其中为5的倍数的数，并求出它们的总和。请将下列程序补充完整。Private Sub Comma nd1_Click()dim x%,k1%,m%k1=0For m = 1 To 10x = Int(Rnd * _)If x mod 5=0 The nPrint x;k1 = k1 + xEnd IfNext mPrint k仁;k1End Sub_ 101+1006. 以下程序的运行结果为 _A.B.C=15 27 49。Private Sub Comma nd1_Click()Dim a%,b%,C%a=3: b=5: c=7a=a+b+cb=a+b+cc=a+b+cprint a,b,c= ”a;b;cEnd Sub7. 下列程序段的执行结果为_9。a=5For k=2.6 to 4.9 step 0.6a=a+1NextPrint a8. 以下程序段执行时，当在 Commanc按扭上单击，该程序的输出结果是 _15Private Function Func ( ByVal a As In teger ,ByVal b As In teger)Func=a+bEnd FunctionPrivate Sub Comma nd1_Click()Dim x%,y%,z%,r% x=2: y=5: z=8 r=F unc ( Func ( x , y),z)Print rEnd Sub9. 以下程序的运行结果为10Option Base 1Private Sub Form_Click()Dim aDim i As In tegerDim max As In tegerDim min As In tegera = Array(1,3, 9, 4, 7, 6, 2, 8,5)max=a(1)mi n=a(1)For i = 2 To 9If a(i)max Then max=a(i)If a(i) min Then min=a(i)Next iPrint max+min10. 窗体上有一空文本框Text1，执行以下程序后在文本框中输入abc123,单击按钮后运行结果是ABC123Private Sub Comma nd1_Click()Print Text1.TextEnd SubPrivate Sub Text1_KeyPress(KeyAscii As In teger) Char = Chr(KeyAscii)KeyAscii = Asc(UCase(Char)End Sub四程序设计1.计算下数列的前20项之和。2.3.5.8.13.21.1235813程序如下：Private Sub Comma nd1_Click()Dim a(20) As In tegerDim b(20) As In tegerDim s!a(1) = 2a(2) = 3b(1) = 1b(2) = 2s = a(1) / b(1) + a(2) / b(2)For i = 3 To 20a(i) = a(i - 1) + a(i - 2)b(i) = b(i - 1) + b(i - 2)s = s + a(i) / b(i)Next iPri nt sEnd Sub2.随机产生10个0 s 100之间的整数，用选择排序法或者冒泡排序法对其进行排序 程序如下：Option Base 1Private Sub Comma nd1_Click() Dim i%, j%, a(10) As In teger Ran domizeFori = 1 To 10 a(i) = In t(101 * Rnd) Next iFori = 1 To 9P = iFor j = i + 1 To 10If a(p) a(j) The n p = jNext j t = a(i) a(i) = a(p) a(p) = tNext iFori = 1 To 10Print a(i)Next iEnd Sub3. 编写一个函数过程，能够通过该函数过程求任意正整数的阶乘，并利用该函数过程分别 求5的阶乘、8的阶乘、10的阶乘，将结果打印在窗体上。程序如下：Private Sub Comma nd1_Click()Dim f As Lon g, i%a = InputBox( 请输入一个数)f = 1For i = 1 To af = f * iNext iPrint fEnd Sub