Vb专题习题(25页).doc

《Vb专题习题(25页).doc》由会员分享，可在线阅读，更多相关《Vb专题习题(25页).doc（24页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、-Vb专题习题-第 24 页Vb专题习题一、选择题1. 将数学表达式写成Visual Basic表达式，正确的是（ ）（A）Sqr(abs(b*b-4ac) （B）Sqr(absb*2-4*a*c)（C）Sqr(abs(b*b-4*a*c) （D）Sqrabs(b*b-4*a*c)2. 在Visual Basic中，若要将窗体中某个命令按钮设置成无效状态，应对该按钮的（）属性值进行修改。（A）Value （B）Visible （C）Enabled （D）Caption3. 执行如下Visual Basic程序段时，出现了如下图所示的错误：Private Sub Command1_Click()

2、Dim a As Integer, b As Integera = 5: b = 8b = a + blabel1.Caption = Str(b)End Sub引发此错误的语句可能为（）（A）Dim a As Integer, b As Integer（B）a = 5: b = 8（C）b = a + b（D）label1.Caption = Str(b)4. 已知a=5，b=9，c=11，则下列Visual Basic表达式的值为False的是（ ）（A）a b And a c （B）a c（C）a c b5. 有下列Visual Basic程序段：某同学正编写一个判断两数大小的程序，其窗

3、体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（ ）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print若程序要实现“求100内能被3整数的自然数个数”的功能，则方框中正确的语句是（ ）（A）i / 3 = 0 （B）i mod 3 = 0（C）i 3 = 0（D）int(i/3) = 06. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim a As Integera = Int(5 * Rnd + 1) * Int(5 * Rnd - 1)Pri

4、nt aEnd Sub执行程序后，a的值范围是（ ）（A）0，15 （B）1，15 （C）4，15 （D）5，157. 在Visual Basic中，表达式3 2 Mod 14 2 3的值是（ ）（A）1 （B）0 （C）2 （D）38. 某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（ ）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print9. 下列Visual Basic程序段中，能实现输出变量a、b、c三个数中最大数的是（ ）10、有如下Visual Ba

5、sic程序段：x = 3y =5Text1.Text = x+y该程序运行后，要文本框Text1中显示的是（ ）（A）3+5（B）x+y（C）8（D）3+5=811. 在Visual Basic中，下列表达式的值为5的是（ ）（A）Int(Sqr(9) + 1.28)（B）(19 2) Mod 5（C）Abs(-7) + Sqr(4)（D）Len(x+y+2)12. 在Visual Basic中，下列语句定义的数组元素为10个的是（ ）（A）Dim a(0 To 10) As Integer（B）Dim b(1 To 9) As String（C）Dim c(2 To 10) As Boole

6、an（D）Dim d(0 To 9) As Date13. 某Visual Basic工程的代码窗口如图所示：从图中可以看出，当前正在编辑的是（）A. Command1的Click事件过程代码 B. Timer1的Timer事件过程代码C. Label1的Click事件过程代码 D. Image1的Click事件过程代码14. 在Visual Basic中，下列能作为变量名的是（）A. My B. If C. a+y D. 2nd15. 已知字符AZ的ASCII码值分别对应6590。小明编写了一个在标签Label1上显示26个英文大写字母“ABCDEXYZ”的VB程序。部分程序如下：a = F

7、or i = 65 To 90Next iLabel1.Caption = a方框中正确的语句是（）A. a = a + Str(i) B. a = a + Chr(i) C. a = a + Int(i) D. a = a + ASC(i)16. a = a + bb = a - ba = a - b功能相同的程序段是（）A.a = bb = aB.a = a + ba = a - bb = a - bC.t = aa = bb = tD.IF a b THEN a = bELSEb = aEND IF17. 在Visual Basic中，表达式Abs(3.6) * Sqr(100)的值是（

8、）A. 36 B. 360 C. 36 D. 36018. 某同学正编写一个判断酒驾行为的Visual Basic程序，其窗体和代码窗口如下图所示。根据代码窗口中的程序，要在程序运行时获取输入的x值，窗体上必须增加的对象是（）A. 标签Text1 B. 标签Label2 C. 文本框Text1 D. 文本框Label219. 某Visual Basic程序如下：Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 10 To 2 Step -2 sum = sum + iNext i text1.T

9、ext = Str(sum)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（）（A） sum=0（B） For i=10 to 2 step -2（C） Sum=sum+i（D） Text1.text=str(sum)20. 有如下Visual Basic程序段： s=0 For i=1 To 5 s=s+i Next i该程序运行后，i的值为（）（A）1（B）5（C）6（D）1521. 在Visual Basic中，某对象的属性窗口如图所示：该对象名是（）（A） CommandButton （B） Command1（C） Comman

10、d_1（D） Appearance22. 有如下Visual Basic程序段：j = 10For i = 1 To 9 If a(i) a(j) Then j = iNext i该程序运行后，变量a(j）中存储的是（A）a(1)至a(10)中的最大值（B）a(1)至a(10)中的最小值（C）a(1)至a(10)的累加值（D）从1计数至923.某Visual Basic程序的一个事件过程如下： Private Sub Command1_Click()Dim r As SingleDim pi As Doubler = 100pi = 3.14Label1.Caption = 圆面积为: + V

11、al(pi * r * r)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句因是（）A.Dim r As Integer B.Dim pi As DoubleC.Pi=3.14D.Label1.Caption = 圆面积为: + Val(pi * r * r)24. 有如下Visual Basic程序段：s = 0For i = 1 To 10 Step 4 s = s + iNext i该程序运行后，变量s的值是()（A）0（B）1（C）5（D）1525.下列Visual Basic表达式的值等于56的是()（A）Mid(123456,5,3

12、)（B）Len(55+1)（C）Sqr(56)（D）Abs(-55)+126. 27. 28. 小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：n = 0m = 0For i = 1 To 100If Rnd 05 Then n = n + 1 Else m = m + 1Next i小金仔细分析该程序段后，发现其中缺少了( )A. For B. NextC. End If D. If29. 有如下VB程序：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Int

13、egera = Val(text1.Text)b = Val(text2.Text)c = (a + b + Abs(a - b) 3Text3.Text = Str(c)End Sub运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（）A.6B.5C.4D.730.如右图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是： （ ）Private Sub Command1_Click()Dim a(1 To 4) As IntegerDim i As Integer a(1) =

14、1 For i = 2 To 4 a(i) = 2 * a(i - 1) + 1 Next iList1.AddItem Str(a(i)End SubABCD31. 若x表示能被3整除的正整数，则下面逻辑表达式的值一定为真的是： （ ）A. Int(x / 3) = 0B. 3 Mod x = 0C. x Mod 3 = 0 D. x3 = 032. 、为使下面左右框内的VB程序段实现相同的功能，则左框内划线处填写的代码应该是（ ）。 0Do While t=6 s=s+t Loops=0:t=s=0For t=1 To 6 Step 2 s=s+tNext tA A.t=2BB.t=6 C

15、.t=t+1DD.t=t+233. VB表达式S=Int（Rnd()*1000+9000），则S的取值范围是（ ） A. B. C. D. 34. 下表记录了6个数据的排序过程。分析表中数据可知，该排序采用的算法与排序方式分别为（ ）原始数据655759444569第1遍446557594569第2遍444565575969第3遍444557655969 A冒泡排序，升序 B选择排序，升序 C冒泡排序，降序 D选择排序，降序35.阶乘是基斯顿卡曼于1808年发明的运算符号。正整数n的阶乘为n！=123n。小王编写了如下VB程序用来求S=1！+2！+3！+10！。 Function fac(n

16、As Integer) As Long fac = 1 For i = 1 To nfac = fac * i Next iEnd FunctionPrivate Sub Command1_Click()Dim s As Long, j As IntegerFor j = 1 To 10Next jText1.Text = Str(s)End Sub 方框中的正确语句是：As = s + fac(j)Bs = fac(j)Cs = s + i * fac(i)Ds = s + fac(i)36. 下列逻辑表达式中，值为False的是（ ）AAsc(A) Asc(a) BInt( Rnd * 4

17、9 ) 49C3+4 9 Dthirty two37. 有100个大小形状一样的透明玻璃球，其中有1个玻璃球的重量轻于其他99个玻璃球，小明想利用一台无砝码的天平，运用合理的算法保证一定能找出这颗轻玻璃球的最少的次数为：A100B10C8D638. 下列VB程序中，f是一个递归函数：Private Sub Command1_Click() Dim y As Integer y = Val(Text1.Text) Label1.Caption = Str(f(y)End SubFunction f(n As Integer) As Integer If (n = 1) Or (n = 2) Th

18、en f = 1 Else f = f(n - 1) + f(n - 2) End IfEnd Function程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：A5B8C13D2139. 用选择排序将七个数“2022，2017，2018，2014，2021，2012，2015”从小到大进行排序，则第二轮交换数据后的顺序是（ ）A2022，2021，2018，2017，2014，2012，2015 B2012，2014，2018，2017，2021，2022，2015 C2012，2017，2018，2014，2021，2022，2015 D2022，2

19、021，2018，2014，2017，2012，201540. 某高校学籍管理系统软件有2万个学生的电子档案（已按学籍号排序），假设从中取出一条记录并与待查项进行比较所花时间为8毫秒，则用对分法在该系统中查找任意一位学生档案最多花费的时间约为 （）A16万毫秒 B8万毫秒 C10毫秒 D120毫秒41. 已知temp1=“12”，temp2=3，则Visual Basic表达式temp1+temp2的值为（ B ）A.“15” B.15 C.“123” D.123B二、程序填空题（学考部分）1.编写一个具有下列功能的VB程序：单击“分类”按钮Command1，随机产生10个10，99区间中的整

20、数，并将其中3的倍数显示在List1中，余下的数显示在List2中。运行界面如图所示。（1）要使命令按钮Command1上显示的文本为“分类”，可在其属性窗口中将 属性的属性值改为“分类”。（2）为实现上述功能，请在划线处填写合适的代码。Private Sub Command1_Click()List1.ClearList2.ClearDim a(1 To 10) As IntegerFor i = 1 To 10 a(i) = If Then List1.AddItem Str(a(i) Else End IfNext iEnd Sub2.小丁想买几张6+1彩票，选号时，他希望前4位用自己的

21、生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如第12题图-1所示。阅读程序并完成后面的问题。（1）设计应用程序界面时，为添加a所指向的对象，应使用图所示的“控件工具箱”中的 （填写相应编号）；在第14题-3图所示的“属性窗口”中，将 属性值设置为“开始”，可使2中b所指向的对象显示“开始”。（2）请根据题意将下列程序补充完整。Private Sub Command1_Click()Dim i as integer, j as in

22、teger, c As IntegerDim n As Longc = 0For i = 0 To 99 n = 110800 + i If Then List1.AddItem Str(n) + + 5 End IfNext iLabel2.Caption = 满足条件的数有： + Str(c) + 组End Sub3. 小李想用vb制作一个分钟倒计时器，界面如图所示。先在文本框text1中输入分钟数，然后在文本框text2中输入秒钟数，再点击“开始倒计时”按钮开始倒计时。Vb程序如下： Private Sub Command1_Click() Timer1.Enabled = End Su

23、b Private Sub Timer1_Timer() sec = Val(Text2.Text) min = Val(Text1.Text) If sec 0 Then sec = sec - 1 Else sec = 59 If min 0 Then min = min - 1 Else Text1 = 0 Text2 = 0 MsgBox 倒计时时间到 End If End If Text1 = min Text2 = sec End Sub (1)程序中处应该填 。（选填：True/False) (2)计时器timer1的inteval属性应该设置为 。4. 小沈很久没登录自己的电子

24、邮箱了，这次他想给远方的朋友发封电子邮件，但是密码忘记了，请你帮她尽可能找回密码。她零星记得自己的密码信息如下：共八位字符，前两位为字母“zj”，后六位是数字，并以66开头（即密码格式为zj66*）；最后两位数字相同；后六位数能被16和46同时整除。单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。第14题图Private Sub Command1_Click()Dim s As Long , a As Integer, b As Integer, c As Integer, i As IntegerFor i = 0 To 9999 s = 660000 + i

25、 If And s Mod 46 = 0 Then （选填字母，从下列A、B 、C、D四个选项中选取一项） a = s Mod 10 b = (s Mod 100) 10 If Then （选填字母，从下列A、B 、C、D四个选项中选取一项） List1.AddItem (zj + Str(s) c = （填程序代码） End If End IfNext iLabel1.Caption = 共有 + Str(c) + 个End Sub（1）解决此问题的算法是_。（选填：枚举算法/解析算法/查找算法）（2）程序中划线处应填入_；程序中划线处应填入_。划线、处的选项：() As Mod 16 =

26、0 Bs 16 = 0 Ca b Da = b（3）程序中划线处应填入的代码_。5.小兰设计了一个“猜价格”小游戏，用户在Text1中输入所猜的价格，单击“猜一猜”按钮，如果偏高了，Label4标签中将提示“对不起，偏高了！”；若所猜的价格偏低，则Label4标签中将提示“对不起，偏低了！”；若猜中，则Label4标签中将显示“恭喜你，猜对啦！”。界面如图所示。图Form1Label1Label2Label4Text1Command1Label3（1）应用程序界面设计时，为添加“请输入您猜的价格：”对象，应使用图所示的“控件工具箱”中的 （填写相应字母），并在图所示的“属性窗口”中，将 属性值

27、设置为“请输入您猜的价格：”。图图（2）解决此问题的相应程序如下，请根据题意将程序补充完整。Private Sub Command1_Click()Dim g As IntegerDim p As Integerp = 99 预设价格的值存储到p变量中g = If g p Then = 对不起，偏高了！ElseIf g p Then Label4.Caption = 对不起，偏低了！Else Label4.Caption = 恭喜你，猜对啦！End Sub6. 十进制数转二进制数程序界面如第14题-1图所示，相关VB程序运行时，单击命令按钮Command1后，执行十进制数转二进制数并输出显示的

28、程序。（1）应用程序界面设计。转换得到的二进制数将显示在Label3中，请根据第14题-3图提供信息，确定使用第14题-2图控件工具箱中的 （填写相应编号），修改属性 的值为1010。 第14题-1图 第14题-2图 第14题-3图（2）解决此问题的相应程序如下，请根据相应注释及题意将程序补充完整。Private Sub Command1_Click()不停除2到商为0为止，所得余数倒推 Dim sjzs As Integersjzs：十进制数 Dim rjzs As Stringrjzs：二进制数 sjzs = Val(Text1.Text) rjzs = Do While rjzs = S

29、tr(sjzs Mod 2) + rjzs Label3.Caption = rjzsEnd Sub7. 以下VB程序段的功能是用DO语句求11000之间满足“用3除余2,用5除余3，用7除余2”的数。并将结果在list1中列出，并在label1处显示符合条件的数的个数。 （1）程序中处应填入的代码是_ （2）程序运行结束后，变量i的值为_Private Sub Command1_Click()Dim i As IntegerDim j As Integeri = 1: j = 0list1.clearDo While i 100 then Y=12 _(1)_ x60 then Y=8 El

30、se y=5 _(2)_该程序段中，(1)处填写的内容为_(2)处填写的内容为_。9. 用VB软件编写判断闰年的年份。界面如第11题-图1所示，文本框Text1输入年份，单击“判断”按钮Command1，在文本框Text2中输出判断结果（闰年的判断条件是：能被 4 整除但是不能被100整除；或者能被四百整除）。Command1Label2Label1Text1Text2第11题-图1（1）应用程序界面设计时，Text1文本框内没有内容显示，这是由于将其属性名为_ 的值设置为空，窗口显示“闰年判断”是将窗体属性名为_ 的值设置成了“闰年判断”。（1分,1分）（2）请根据题意将下列程序补充完整。（

31、2分）Private Sub Command1_Click() Dim Year As Integer _ If (Year Mod 4 = 0) And (Year Mod 100 0) Or (Year Mod 400 = 0) Then Text2.Text = 是闰年 Else Text2.Text = 不是闰年 End IfEnd Sub为实现上述功能， 程序加框处应填写为_ 10. 编写VB程序，实现如下功能：在文本框Text1中输入骑士奔跑的速度值（为1到10之间的整数），单击“奔跑”按钮Command1，骑士以相应的速度从左往右循环奔跑，单击“停止”按钮Command2，骑士停

32、止奔跑。界面如第14题-1图所示。 第14题-1图 第14题-2图（1）在设计应用程序界面时，应使用第14题-2图所示“控件工具箱”中的 （填写相应编号）添加用于输入文字“加减速（1到10）”的控件。（2）为实现上述功能，请在划线处填入合适代码。 Private Sub Command1_Click() Dim x As Integer x = If (x 0) And (x = 10) Then Timer1.Enabled = Timer1.Interval = 1000 x Else Text1.Text = 错误 End Sub三、程序填空题（选考部分）1. 【加试题】编写VB程序，在

33、如第16题-1图所示11的正方形区域内产生一定数量、位置随机的点坐标，统计位于0.50.5的黑色区域内（包括边界）点的数量。程序运行时界面如第16题-2图所示。第16题-1图 第16题-2图自上而下两个文本框的名称分别是Text1和Text2，“开始”按钮的名称是Command1。在Text1中输入数据，单击“开始”按钮，在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如右图所示。请根据流程图将下列程序补充完整。 Private Sub Command1_Click( ) Dim n As Integer, m As Integer, i As Integer Dim x As

34、 Single, y As Single n = m=0 Randomize初始化Rnd函数 For i = 1 To n x = Rnd随机产生x坐标，0x1 y = Rnd随机产生y坐标，0y1 Next i第16题-3图 Text2.Text = Str(m) End Sub2.【加试题】求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数，其中函数f用于判断一个数是否是素数，程序运行界面如图(第17题-1图)所示，Command1鼠标单击事件过程的流程图如图(第17题-2图)所示。第17

35、题-1图 程序代码如下：Private Sub Command1_Click() Dim i As Integer第17题-2图 List1.Clear 清除列表框内容 For i = 3 To 97 _ If f(i) And Then List1.AddItem Str(i) + 和 + Str(i + 2) End If Next iEnd SubPrivate Function f(x As Integer) As Boolean自定义函数f,返回值为逻辑型 Dim j As Integer f = True For j = 2 To Int(Sqr(x) If x Mod j = 0

36、 Then f = 函数返回值 Exit For 跳出For循环 End If Next jEnd Function(1)程序中加框部分的算法是 （选填：解析算法/枚举算法）(2分)(2)在程序、划线处，填入适当的语句或表达式，把程序补充完整：程序中划线处应填入 (1分)程序中划线处应填入 (1分)程序中划线处应填入 (1分)3. 小王设计了一个程序来列举仁川亚运会奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。请根据算法将下列程序补充完整。Dim a(1 To 45) As StringDim b(1 To 4

37、5) As IntegerPrivate Sub Form_Load() a(1) = 中国 b(1) = 308 45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中End SubPrivate Sub Command1_Click()Dim i As Integer,j As IntegerDim t As Integer,f As IntegerList1.Clear For i = 1 To 3 For j = To i+1 Step -1 If Then f = a(j): a(j) = a(j - 1): a(j - 1) = f t = b(j): b(j

38、) = b(j - 1): b(j - 1) = t End If Next j Next iFor i = 1 To 3 List1.AddItem 第 + Str(i) + 名 + a(i) + 奖牌数 + Str(b(i)Next iEnd Sub4.加试题王五为学生们设计了学校食堂学生校园卡查询系统，在终端机上输入学生的校园卡卡号，可以查出该卡对应的学生姓名及相应的余额。校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如下图所示：第3题图数据库文件与应用程序在同一文件夹中，在文本框Text1中输入学生的学号，单击“查询”按钮，在标签Label4、Label5中分别显示学生姓名和余额。Private Sub Command1_Click() Dim adocn As new connection Dim adors As new recordeset Dim str1 As string,str2 as string Str1=”