vb(1到5章)练习2浦

更新时间:2024-04-15 12:13:01 阅读量: 综合文库 文档下载

说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

vb(1到5章)练习2浦

满分:100分

姓名:________

1、单项选择题(本题共计50分)

1、下面________语句,可以将列表框List1中当前选定的列表项的值替换成“ABC”。 ( )

A、List1.AddItem“ABC”,List1.ListIndex B、List1.Text=“ABC”

C、List1.List(List1.ListIndex)=“ABC” D、前三项均可

2、单选按钮(OptionButton)用于一组互斥的选项中。若一个应用程序包含多组互斥条件,可在不同的________中安排适当的单选按钮,即可实现。 ( )

A、框架控件(Frame)或图象控件(Image) B、组合框(ComboBox)或图象控件(Image) C、组合框(ComboBox)或图片框(PictureBox) D、框架控件(Frame)或图片框(PictureBox) 3、下面的表达试的值为真的是________。 ( )

A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12) B、“ABCRG” > ”abcde” C、Int(134.69) > Cint(134.69)

D、78.9/32.77 < = 97.5/43.97 AND –45.4 > 4.98

4、执行语句\,正确的输出结果是________。 ( )

A、5459.48 B、5,459.48 C、5,459.478 D、5,459.47

5、一个可执行的VisualBasic中应用程序至少要包括一个________。 ( )

A、标准模块 B、类模块 C、窗体模块 D、辅助模块

6、VisualBasic程序设计时常用的Print、Cls属于________。 ( )

A、属性 B、打印字库 C、方法 D、事件

7、执行下列程序,输出结果为___________。 Private Sub Command1_Click( ) Dim b As Single B=2 / 3 Print b End Sub ( )

A、0.6666666666667 B、1 C、0 D、0.6666667

8、执行以下程序段后,变是c$的值为____________。 Private Sub Command1_Click( ) A$ = \

B$ = B$& UCase(Mid$(A$, 7, 6) & Right$(A$, 12)) Print B$ End Sub ( )

A、Viaual BASIC Programming B、Basic Programming C、basic programming D、BASIC PROGRAMMING

9、下列语句中不能正常执行的是________。 ( )

A、print +32758+10 B、print 5+9=15 C、print \D、print \

10、日期类型(Date)在程序中运用时,日期类型必须用______符号括起来。 ( )

A、# B、@ C、$ D、%

11、将文本框的ScrollBars属性设置为非零值,却没有效果,原因是____________。 ( A、文本框中没有内容

B、文本框的MultiLine属性值为False C、文本框的MultiLine属性值为True D、文本框的Locked属性值为True 12、下列程序的执行结果是____________。 x=–6^2

Print Sgn(x)+Abs(x)+Int(x) ( )

A、–36 B、–1 C、0 D、–72

13、下列____________是合法的VB变量名。 ( )

A、_5a B、我_AB C、5name

D、Use&DASF

14、只有当一个对象的________和________属性为True时,它才能获得焦点。 ( )

A、Enabled; Visible B、Visible; Caption

)

C、Visible; Name D、Enabled; Caption

15、下面4个方法中,可以返回字符串的高度值的是____________。 ( )

A、TextHeight B、TextWidth C、ScaleWidth D、ScaleHeight

16、VisualBasic中的工程文件的扩展名是____________。 ( )

A、.reg B、.frm C、.bas D、.vbp

17、下列可以作为VisualBasic变量名的是____________。 ( )

A、Chinese$ B、X(X+Y) C、123BOOK D、BOOK-1

18、不能正确表示条件“两个整型变量X和Y之一为0,但不能同时为0”的布尔表达式

是________。 ( )

A、X*Y=0 And (X<>0 Or Y<>0) B、( X=0 Or Y=0 ) And (X<>0 Or Y<>0) C、Not ( (X=0 Or Y=0) And (X<>0 Or Y<>0) ) D、X*Y=0 And X+Y<>0

19、满足“当a的值是偶数时为0,是奇数时为1”的要求的表达式是____________。 ( )

A、a Mod 2 = 0

B、Not a Mod 2<>0 C、Not (a Mod 2) D、(a\\2*2-a)=0

20、判断在文本框内是否按下了回车键,应通过____________事件过程。 ( )

A、Change B、KeyPress C、GotFocus D、Click

21、如果a是一个正实数,对x的第3位小数四舍五入的表达式是____________。 ( )

A、0.01*Int(a+0.005) B、0.01*Int(a+0.05) C、0.01*Int(100*(a+0.005) D、0.01*Int(100*(a+0.05))

22、描述X、Y中只有一个小于Z的逻辑表达式是________。 ( )

A、X

D、X

23、i被j整除的逻辑表达式是________________。 ( )

A、i/j = 0 B、i\\j = 0 C、i<>0 D、i mod j = 0

24、启动应用程序,装载和显示窗体,产生_______________和Form_Show事件。 ( )

A、Form_Click B、Form_Load C、Form_GotFocus D、Form_Db1Click

25、数学关系3<=x<10表示成正确的VB表达式为____________。 ( )

A、3<=x<0 B、3<=x AND x<10 C、x>=3 OR x<10 D、3<=x AND <10

26、在程序中可以通过复选框和单选框按钮的____________属性值来判断它们的当前状态

它。 ( )

A、Caption B、Value C、Checked D、Selected

27、文本框(Textl)中有选定的文本,执行Textl.SelText=\的结果是____________。 ( )

A、“Hello”将替换掉原来选定的文本 B、“Hello”将插入到原来选定的文本之前 C、Textl.SelLength为5 D、文本框中只有“Hello”

28、当一个CheckBox控件的Value属性为2时,表示该控件____________。 ( )

A、以被选中 B、未选中 C、当前不可用 D、未知

29、有变量定义语句Dim a, b As integer, 变量a的类型和初值是________。 ( )

A、Integer,0 B、Variant,空值 C、String,\D、Long,0,0

30、语句x=x+1的正确含义是__________. ( )

A、变量X的值与X+1的值相等 B、将变量X的值存在X+1中去 C、将变量X的值加1后赋给变量X D、变量X的值为1

31、窗体Form1的名称属性是frm,它的Load事件过程名是_____。 ( )

A、Form-Load B、Form_Load C、frm_Load D、Me_CmdOK

32、复选框的Value属性为1时,表示____________。 ( )

A、复选框未被选中 B、复选框被选中 C、复选框内有灰色的勾 D、复选框操作有错误

33、在窗体上添加一个命令按钮,名为Command1,事件过程如下。执行结果是________。

Sub pb(b( ) As Integer) For i=1 To 4 B(i)=2*i Next i End Sub

Private Sub Command1_Click( ) Dim a(1 To 4) As Integer a(1)=5:a(2)=6: a(3)=7:a(4)=8 pb a For i=1 To 4 Print a(i); Next i

End Sub ( )

A、2 4 6 8 B、1 3 5 7 C、3 6 6 12 D、4 8 12 16

34、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click( ) Static A As Integer Static B As Integer Cls B = 2 B = B+3 A= 3+A print A, B End Sub

程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为___________。 ( )

A、3 5 B、6 6 C、9 5 D、3 3

35、在窗体上画一个命令按钮,然后编写如下事件过程:

Option Base 1

Private Sub Command1_Click( ) Dim a As Variant a = Array(1,2,3,4) j = 1

For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print s End Sub

运行上面的程序,单击命令按钮,其输出结果是_____________。 ( )

A、4321 B、12 C、34 D、1234

36、设有如下语句: strl=InputBox(\输入\练习\从键盘上输入字符串\示例\后,strl的值是________。 ( )

A、“输入” B、“” C、“练习” D、“示例”

37、当Form1_Click事件发生时,程序的输出结果是__________。 Private Sub Form_Click()

Dim M As Integer,k As Integer,t As Integer M=5 : k=7 Select Case M case 1 To 10 t=M: M=k: k=t Case Else M=k Mod 3 End Select Print M, k, t End Sub ( )

A、5 5 7 B、5 7 5 C、7 5 5 D、7 5 7

38、在窗体上有一个文本框Text1,以下程序段的运行结果是_________。 Text1=”” For i=1 To 10 Sum=Sum+i

Next i

Text1=Sum ( )

A、在文本框中Text1中输出55 B、在文本框中Text1中输出0 C、出错

D、在文本框中Text1中输出不定值

39、当发生Command1_Click事件后,程序输出结果是________。

Option Base 1

Private Sub Command1_Click()

Dim a(4, 4) As Integer,i As Integer,s As Integer s=0 Fori=1 To 4 For j=1 To 4 a(i, j) = (i-1)*4+j*2 Next j Next i For i = 1 To 4 s=s+a(i, i) Next i Print s

End Sub ( )

A、28 B、32 C、30 D、44

40、下列程序段的输出结果是____________。

Dim i As Integer Dim a(8) As Integer y = 18: i = 0 Do

a(i) = y Mod 2 i = i + 1 y = y \\ 2 Loop Until y < 1 For j = i - 1 To 0 Step -1 Print a(j); Next j ( )

A、1 0 0 0 B、1 0 0 1 0 C、0 0 1 1 0 D、1 0 1 0 0

41、下列程序的输出结果是____________。

Dim i As Integer, k As Integer Dim a(10) As Integer, p(3) As Integer k = 5 For i = 0 To 9 a(i) = i Next i For i = 0 To 2 p(i) = a(i * (i + 1)) Next i For i = 0 To 2 k = k + p(i) * 2 Next i Print k ( )

A、17 B、21 C、22 D、23

42、Dim y As Integer m = 1

Do While m <= 3 m = m + Print m; Loop ( )

A、2 B、2 3 C、2 3 4 D、2 3 4 5

43、假设X的值是5,则执行以下语句时,可得到的输出结果是 ABCDEF 的 SelectCase 语句是________。 ( )

A、Select Case X Case 10 TO 1 Print “ABCDEF” End Select B、Select Case X Case Is>15, Is<5 Print“ABCDEF” End Select C、Select Case X Case Is>5, 1, 3, TO 10 Print “ABCDEF” End Select D、Select Case X Case 1, 3, Is>5 Print “ABCDEF”

End Select

44、下面程序的内层循环次数是________。 For i=1 TO 3 For j=1 TO i For k=j TO 3 ... Next k Next j Next i ( )

A、3 B、14 C、9 D、21

45、计算机算法可以分为两大类:一类是________________算法,另一类是________________算法。 ( )

A、计算机辅助设计、财务 B、数值计算、非数值计算 C、步骤管理、通信 D、排序、查找

46、下列循环能正常结束循环的是____________。 ( )

A、i=5 Do i=i+1 Loop Until i<0 B、i=1 Do i=i+2

Loop Until i=10 C、i=10 Do i=i+1 Loop Until i>0 D、i=6 Do i=i-2

Loop Until i=1

47、在过程中有语句ForI=N1 To N2 Step N3,在该循环体内有下列四条语句,其中________会影响循环执行的次数。 ①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 ( )

A、①② B、①②③ C、③ D、①②③④ 48、Option Base 1

Private Sub Command1_Click()

Dim a%(3, 3) For i = 1 To 3 For j = 1 To 3 If j > 1 And i > 1 Then

a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1 Else a(i, j) = i * j End If Print a(i, j); \Next j Print Next i

End Sub ( )

A、1 2 3 2 3 1 3 2 3 B、1 2 3 1 2 3 1 2 3 C、1 2 3 2 4 6 3 6 9 D、1 1 1 2 2 2 3 3 3

49、要分配存放如下方阵的数据,____________数组声明语句能实现(不能浪费空间)。每行三个元素,第一行为:1.1 2.2 3.3第二行为:4.4 5.5 6.6第三行为:7.7 8.8 9.9 ( )

A、Dim a(9) As Single B、Dim a(3,3) As Single

C、Dim a(-1 To l,-5 To -3) As Single D、Dim a(-3 To -1,5 To 7) As Integer

50、在窗体Form1上,有一个列表框控件List1,在窗体的Click事件中有如下代码: Private Sub Form_Click() Dim k As Integer

Dim entry As String, item As String entry = \

For k = Len(entry) To 1 Step -1 item = LCase(Mid(entry, k, 1)) & k List1.AddItem item Next k End Sub

运行此程序,单击窗体后在窗体的列表框中显示的第四个列表项内容是_________。 ( )

A、b4 B、b2

C、d3 D、d2

2、填空题(本题共计50分)

1、执行下面的程序,击窗体后在窗体上显示的第一行结果是Bb___(1)______,第三行结果是____(2)__Ee_____。 Private Sub Form_click()

Dim mystr, mystr1, mysrr2 As String mystr1 = \For i = 1 To 3

mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mysre & mystr1 Print mystr

mystr1 = Chr(Asc(mystr1) + i) Next i End Sub

2、可通过列表框的_text__(1)___属性或List(_list(列表框名.ListIndex)__(2)_____)来取得列

表框中被选中的选项。

3、已知K=2,J=3,A=True,则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为 true_____。 4、表示\和B之一为零但不同时为零\的VB表达式为_A=0 Xor B=0_____ 。 5、在VB中一个汉字的长度等于_1___ 个英文字母的长度。 6、有下列程序:

Private Sub Command1_Click( ) a$=\b$=\

c$=Left$(a$,4)+LCase$(b$)+Right$(a$,3) Print c$ End Sub

运行后窗体上显示的是goodevening ______ 。

7、能正确产生[1,30]之间的随机整数的表达式是 Int(Rnd*30)_+1_______ 。 8、有下列程序:

Private Sub Command1_Click( ) x$ = \y$ = \z$ = \

z$ = Left$(x$,4)+Mid(y,4,1)+LCase$(z)+\Print z$ End Sub

运行后窗体上显示的是applistudy Study _______ 。

9、表达式7^2Mod 5^2\\3的值为___1_______

10、下列程序的功能是输出如下数列的前20项,按每行5个数的形式输出。 1,1,2,3,5,8,13,...... Dim a As Integer,b As Integer

Dim i As Integer a=1:b=1:i=3 Print a,b, Do While(i<=20) c=a+b t=b b=a+b a=t____(1)____ Print c,

If_i mod 5 =0___(2)____ Then Print End If

i=i+1_____(3)_____ Loop

11、在窗体中添加一个命令按钮Command1,并编写如下程序代码。执行程序单击命令按钮

后,文本框中的结果是__12_______。

Option Explicit

Private Sub Command1_Click( ) Dim x(3),i as integer For i=1 To 3 x(i)=i+i^2 Next i Print x(i-1) End Sub

12、已知数组A(4,4),各个元素在运行程序时,被赋值并打印,形成四阶方阵。程序执行

后,产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。请完善下列程序。例如:

1 2 3 4 ------->1 1 1 1 1 2 3 4 ------->2 2 2 2 1 2 3 4 ------->3 3 3 3 1 2 3 4 ------->4 4 4 4

Private Sub Command1_Click( ) Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j); Next j Print Next k Print For k=2 To 4 For j=1 To k_______

t=a(j,k)

a(j,k)=a(k,j)_______ a(k,j)=t Next j Next k End Sub

13、下列函数调用时弹出的对话框中按钮的个数为________ 。 MsgBox (\程序非法!\消息提示\

14、下面的程序用\冒泡\法将数组a中的10个整数按升序排列,请将程序补充完整。 Option Base 1

Private Sub Command1_Click( ) Dim a,i,j,k As Integer

a=Array(678,45,324,528,439,387,87,875,273,823) For i=1 to 9_________ For j=1 to 10-i_________ If a(i)_>a(i+1)_______a(j) Then a1=a(j):a(j)=a(i):a(i)=a1 End If Next j Next i for k=1 To 10 Print a(k); Next k End Sub

15、执行下面程序后,A(1,3)的值是6________ ,A(2,2)的值是_8_______ ,A(3,1)

的值是__14______ 。

Option Explicit Option Base 0

Private Sub Form_Click( ) Dim A(3,3)As Integer,I As Integer Dim k As Integer,m As Integer m=16

For k=6 To 0 Step -1 If k>=2 Then For I=0 To 5-k A(k-2+I,I)=m m=m-1 Next I Else For I=0 To k A(k-I,3-I)=m m=m-1 Next I

End If Next k For k=0 To 3 For I=0 To 3 Print A(k,I); Next I Print Next k End Sub

16、下面和程序功能是将一个由字母与数字相混的字符串中选出字符串,并把该字符串在窗体上打印出来,请完善下面程序。

Option Explicit

Private Sub Command1_Click( ) Dim s As String,k As Integer

Dim r As String,i As Integer,t As String s=“aa11bb22Cc33” For i=1 To Len(s) t=_____(1)_____

If t>=“a”And t<=“z”Or t>=“A”And t<=“Z”Then r=r & t End If Next i Print r End Sub

17、执行下面的程序,在窗体上显示的输出结果的第一行是 ______ ,第三行是 ______ ,Form_Click( )事件过程中的第二个For-Next循环共执行了 ______ 次。

Option Explicit Option Base 1

Private Sub Form_Click( )

Dim x(6) As Integer,I As Integer,j As Integer For i=1 To 6 x(i)=i^2 Print x(i); Next i Print For j=1 To i-2 Call sub1(x(j),j) Print j Next j End Sub

Public Sub sub1(x As Integer,m As Integer) If x-m<=2 Then m=m+2 Else

m=m+3 End If End Sub

18、以下程序可计算自然数e的值,要求精确到10^(-15)请将程序补充完整。已知e的计算公式为e=1+1/1!+1/2!+...+1/n!。

Private Sub Command1_Click() _____ n=0:term=1:t=1 Do n=n+1 t=t/n ____

Loop While t>1.0E-15 Text1.Text=term End Sub

19、已知下列程序运行结果是ABCD,请将程序补充完整。 Private Sub Command1_Click( ) a=\

For n=65 To 68 a=a+______ Next n Print a End Sub

20、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉,其麦子颗粒数的计算公式为:

sum = 1+2+2^2+2^3+2^4+2^5+...+2^63,相应的计算程序如下,请将程序补充完整。 Private Sub Command1_Click( ) Dim x As Single, y As Single Sum = 0 For n = 0 To 63 x =__________ Sum = sum + x Next n

Print \麦子的总颗粒数为:\;Sum End Sub

21、运行下面程序,单击窗体后在窗体上显示的第一行结果是___(1)____;第二行结果是____(2)_____;第三行结果是____(3)______。

Private Sub Form_Click() Dim i As Integer, s As Integer For i = 1 To 10 s = s + i If s >10 Then Print s s = 0

End If Next i End Sub

22、输入一个三位的正整数,将之反向输出。如输入123,则输出321,完善下列程序。 Private Sub Command1_Click( )

Dim a As Integer, b As Integer, c As Integer, m As Integer m = InputBox(\输入一个正整数\a = m\\100 b = (m-a * 100)\\10 c = ___(1)___

MsgBox \结果=\End Sub

23、打印如下图所示的杨辉三角形。 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 完善下列程序。

Private Sub Command1_Click( ) Dim P(5, 5) As Integer, i As Integer Dim j As Integer, n As Integer For i = 1 To 5 P(i, 1) = 1 P(i, i) = 1 Next i

For i = ____(1)____ For j = 2 To i - 1

P(i, j) = ______(2)________ Next j Next i For i = 1 To 5 For j = 1 To i s = Str(P(i, j))

Print Space(4 - n); P(i, j); Next j Print Next i End Sub

24、本程序用于验证一个自然数N的立方等于N个连续奇数之和,其中最大的奇数P=N*(N+1)-1

例如,43=19+17+13,最大奇数为19。

当程序执行后,分别给对话框输入4和6时,问计算结果分别为__(1)_____和___(2)___ 。 Private Sub Command1_Click( )

Dim s As String

n = InputBox(\输入一个自然数\num = n * n * n p = n * (n + 1)-1 x = p k = 1

Do Until x = num p = p-2 x = x + p k = k + 1 Loop Print Print k; p End Sub

25、用100元买100鸡,条件是公鸡x每只5元,母鸡y每只3元,小鸡z只1元3只。程序中的选项是_______。

Private Sub Command1_Click( ) For x = 0 To 100 For y = 0 To 100 z=100-x-y

If ____(1)____Then Print x, y, z Next y Next x End Sub

26、执行下面的程序后,b的值为_______ a=300:b=20:a=a+b:b=a-b:a=a-b

27、下面是一个求两位数的程序,要求每两位数的两个数码各不相同,并统计有多少个这样的两位数,显示所有满足条件的两位数。阅读程序,并填空。

Private Sub Command1_Click( ) n=0

For a=____(1)_______ For b=0 To 9 If a<>b Then k=10*a+b n=___(2)_____ Print k; End If

Next __(3)__ ,__(4)___ Print number=\End Sub

28、两质数的差为2,称此对质数为质数对,下列程序是找出100以内的质数对,并成对显示结果。其中,函数IsP判断参数m是否为质数。

Public Function IsP(m) As Boolean

Dim i% ___________ For i=2 To Int(Sqr(m)) If __________ Then IsP=False Next i End Function

Private Sub Commandl_Click() Dim i% Pl=IsP(3)

For i=5 To 100 Step 2 p2=IsP(i)

If __________Then Print i-2,i p1 __________ Next i End Sub

参考答案

1.c,2.d,3.a,4.b,5.c,6.c,7.d,8.d,9.a,10.a,11.b,12.b,13.a,14.a,15.a,16.d,17.a,18.c,19.a,20.b,21.c,22.c,23.d,24.b,25.b,26.b,27.a,28.c,29.b,30.c,31.b,32.b,33.a,34.a,35.d,36.d,37.c,38.a,39.d,40.b,41.b,42.c,43.a,44.b,45.b,46.c,47.c,48.a,49.c,50.d

1.Bb,Ee,2.Text,List(列表框名.ListIndex),3.True,4.A=0 xor

b=0,5.1,6.Goodevening,7.Int(Rnd()*30)+1,8.ApplistudyStudy,9.1,10.a=t,i Mod

5=0,i=i+1,11.12,12.k,a(k,j),13.3,14.1 to 9,i+1 to 10,>=,15.6,8,14,16.mid(s,i,1),17.1 4 9 16 25 36,7,2,18.Dim t as Double,term=term+t,19.Chr$(n),20.2^n,21.15,13,17,22.m mod 10,23.3 To 5,P(i - 1, j - 1) + P(i - 1, j),24.4 13,6

31,25.5*x+3*y+z/3=100,26.300,27.1 to 9,n+1,b,a,28.IsP=True,m Mod i=0,p1 And p2,=p2

本文来源:https://www.bwwdw.com/article/b9ep.html

微信扫码分享

《vb(1到5章)练习2浦.doc》
将本文的Word文档下载到电脑,方便收藏和打印
推荐度:
点击下载文档
下载全文
范文搜索
下载文档
Top