VB期中练习题

1 VB程序设计练习题(答案仅供参考) 2012. 04

一．基础知识部分（选择填空） 1．以下叙述正确的是：_______A_______。 (A)窗体的Name属性指定窗体的名称，用来标识一个窗体。 (B)窗体的Name属性的值是显示在窗体标题栏中的文本。 (C)可以在运行时间改变窗体的Name属性的值。 (D)对象的的Name属性可以为空。

2．若变量X=30275678，则变量声明时不能将其声明为 __B_______________。 (A)Integer (B)Variant (C)Single (D)Long 3．(多)设a=3，b=5，则以下表达式为真的是： (A) a<0 And b>0 (B) Not (a<0 Or b<0) (C) a>=b And b>10 (D) (a>b) Or (b>0)

4．以下能够触发文本框Change事件的操作是：_____D_________。 (A) 文本框失去焦点 （B）文本框获得焦点 (C) 设置文本框的焦点 （D）改变文本框内容 5．为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属

性设置为True，这个属性是：______A________。 (A)Cancel (B) Enabled （C）Value (D) Default 6．为了在按下回车键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属

性设置为True，这个属性是：______D________。 (A)Cancel (B) Enabled （C）Value (D) Default 7．表达式4+5\6*7/8 Mod 9的值是 _____4_________。 8．假定窗体的名称（Name）属性为Form1，则把窗体标题设置为VB Test的语句是：__D_____。 (A) Form1.Text=”VB Test” (B) Form1.Name=”VB Test” (C) Form1=”VB Test” (D) Caption=”VB Test” 9．为了使文本框同时具有水平和垂直滚动条，应首先把MultiLine 设置为True，然后把

ScrollBars设置为：_____B_________。 （A）0 (B) 1 (C) 2 (D) 3 10．执行下列语句后整型变量a的值是多少？_____B_________。 If (3-2)>2 Then a=100 ElseIF (10/2)=6 Then a=200 Else a=300 EndIF 2

（A）200 (B) 300 (C) 100 (D) 不确定 11．以下程序段的循环结构执行后，i 的输出值是 ______B_________。 f=1 For i = 1 To 10 step 2 f = f + i Next i Print i;

(A) 25 (B) 11 (C)10 (D) 9 12．为了使标签中的内容居中显示，应把Alignment属性设置为_______C__________。 （A）0 (B) 1 (C) 2 (D) 3 13．为了列表框中的项目分多列显示，需要设置的属性设置为：_______B__________。 （A）Columns (B) Style (C) List (D) MultiSelect 14．删除列表框中的指定项目所使用的方法是：D

（A）Move (B) Remove (C) Clear (D) RemoveItemt 15．按要求写出VB语言的表达式 ⑴写出x和y之一为零，但不能都为零的表达式

x=0 or y=0,but x 不等号0 and y 不等号0

⑵写出x小于10或大于100时为真的表达式 X<10 or x>100

⑶数学表达式 yxx102 写成VB表达式 Sqr(x*x+10)/abs(x+y) ⑷数学表达式Sin25°写成VB表达式 Sin(25*3.1416/180)

二．阅读程序写出结果 1．Private Sub Command1_Click() For i=2 To 5 For j=0 To i Print i*j Next j Print Next i End Sub 单击命令按钮后输出的结果：

_0,2,4 ;0,3,6,9 ;0,4,8,12,16 ;0,5,10,15,20,25______________ 2．Private Sub Command1_Click() 3

For i=2 To 4 For j=5 To 2 Step -1 Print i*j Next j Print Next i End Sub

单击命令按钮后 Print i*j执行的次数：_12___________________ 3．Private Sub Command1_Click() Dim S As Integer S=InputBox(“请输入一个数 S:”) Select Case S Case Is<6 F=S+1 Case Is<5 F=S+2 Case Is<4 F=S+3 Case Else F=S+4 End Select Print S;F End Sub

单击命令按钮后，输入数为6，语句Print S; F执行的结果：__10________________ 4．Private Sub Command1_Click() Dim m(10) As Integer For j=1 To 10 m(j)=12-j Next j x=6 Print m(2+m(x)) End Sub

单击命令按钮后 Print m(2+m(x))执行的结果是：__________4_______ 5． Private Sub Command1_Click() Dim m(10) As Integer ,i As Integer, N As Integer, t As Integer N=10 For i=1 To N m(i)= InputBox(“请输入一个数:”) Next i For i=3 To N\2 t=m(i): m(i)=m(N+1-i): m(N+1-i)=t Next i For i=10 To 1 STEP -2 Print m(i); 4

Next i End Sub 若输入数据依次为13，18，31，19，11，22，12，10，9，21；单击命令按钮后，

输出结果是：______________21,31,11,12,18_____________ 三 程序设计部分：（要求所有的变量完全定义，默认的事件过程为单击命令按钮，输出在

默认窗体上，事件过程框架可省略，输入数据手段可自己决定） 1．输入三个任意不为零的不同整数，如果全部小于0按递增次序输出，如果全部大于0按递减次序输出，否则输出它们的平均值。

2．输入一个4位数的整数，输出最接近该4位数（小于等于这4位数）的质数。 Private sub form_click() Dim x%,n%,i%,k%,t% X= Inputbox(“输入一个四位数的整数”) Print Print x For n=900 to x ,step 2 K=int(sqr(n)) For I=2 to k If n mod i=0 then exit for Next i If i>=k+1 then T=t+1

3．计算下列公式的近似值。（0

当某项的绝对值小于0.0001时，该项及以后各项不再累加。这时就完成了S的计算。 Private sub form_click() Dim x!,f#,p#,b%,s#,i% X=inputbox(“x=”) I=1;b=-1;f=x;p=1;s=1-x Do while abs(b*f/p)<0.0001 B=-b F=f*x*x P=2*i+1 S=s+b*f/p I=i+1 Loop Print Print s

4． 输出集合A与B的交集中的元素的最大值，假设集合A与B各有10个不同的整数元素。 Private Sub Form_click()

......7531753XXXXS 5

Dim A(1 To 10) As Integer, B(1 To 10) As Integer, C(1 To 10) As Integer, g%, i%, j%, k% For i = 1 To 10 A(i) = InputBox("A(i)=") Next i Print Print "A数组：" For i = 1 To 10 Print A(i) Next i For j = 1 To 10 B(j) = InputBox("B(j)=") Next j Print Print "B数组:" For j = 1 To 10 Print B(j) Next j i = 1: k = 1

Do While i <= 10 j = 1 Do While j <= 10 If B(j) <> A(j) Then Exit Do End If j = j + 1 Loop If B(j) = A(i) Then C(k) = A(i) k = k + 1 End If i = i + 1 Loop k = k - 1

For i = 1 To k - 1 g = i For j = i + 1 To k If C(g) < C(j) Then g = j Next j If i <> g Then t = C(i): C(i) = C(g): C(g) = t End If Next i Print printC (1)