VB课后部分习题答案

二、选择题1. Visual Basic中的窗体文件的扩展名是A、.regB、.frmC、.basD、.vbp2. Visual Basic中的模块文件的扩展名是A、.regB、.frmC、.basD、.vbp3. Visual Basic中的工程文件的扩展名是A、.regB、.frmC、.basD、.vbp4. 以下关于Visual Basic语言的说法中，正确的是A、Visual Basic是一种面向过程的语言 B、Visual Basic是一种面向对象语言C、Visual Basic是一种低级语言 D、Visual Basic是一种机器语言7. 下列不属于对象的基本特征的是A、属性 B、方法 C、事件 D、过程一、填空题2. 13/3 MOD 57的值 除数为零提示 。3. 在程序中用到某一整型变量的数据范围为-5000050000，则该变量类型应该是 Long 。 5. 声明单精度常量PI代表3.14159 的语句为Const pi As Single = 3.14159 。11. 把条件为1 x 5 写成VB表达式为： x=1 and x=0（1） If i iMax Then iMax = i ElseIf i0且n30）) Do while n=30（1） n = Val(InputBox(n=, 请重输) Loop sum = 0 k=0 （2） Do k = k + 1 sum = sum+1/(k*(k+1) （3） Loop Until k = n Label1.Caption = sum= + Str(sum)End Sub4.5. 【程序说明】计算的值并打印出来。【程序】Private Sub Form_Click() Dim i As Integer Dim k As Single Dim p As Integer Dim s As Single p=1 （1） s = 0 For i = 1 to 100 （2） k = p / i p=p*(-1) （3） s = s + k Next i Form1.Print s=; sEnd Sub三、程序设计7. 搬砖问题：三十六块砖三十六人搬，男搬四，女搬三，两个小儿抬一砖，要求一次全搬完，问需男、女、小儿各若干？dim x as integer ,y as integer, z as integer for x=0 to 9 for y=0 to 12 z=36-x-y if 4*x+3*y+z/2=36 then print x,y,z endif next y next x11. 一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23。Dim xi As Integer, yi As IntegerFor x = 10 To 99 xi = (x Mod 10) * 10 + x 10 For y = 10 To 99 yi = (y Mod 10) * 10 + y 10 If x + y = xi + yi Then Print x, y End If Next yNext x习题四一、阅读下列程序，写出运行结果。程序2Private Sub Command1_Click() Dim m As Integer, n As Integer Dim a(3, 3) As Integer For m = 1 To 3 For n = 1 To 3 a(m, n) = (m - 1) * 3 + n Next n Next m For m = 2 To 3 For n = 1 To 2 Print a(n, m); Next n Next mEnd Sub写出程序运行后，单击命令按钮，窗体上显示的结果。2 5 3 6程序4x(1）=8X(2)=6X(3)=4X(4)=3X(5)=1二、程序填空1. Private Sub cmdend_Click() EndEnd SubPrivate Sub cmdstart_Click()Dim n As Integer, i As Integer, j As Integer, p As IntegerDim a(200) As String * 1, str1 As String, t As Stringstr1 = Text1.Textn = Len(str1)For i = 1 To n a(i) = Mid(Text1.Text, i, 1)Next iFor i = 1 To n - 1 p = i For j = i + 1 To n If a(p) a(j) Then p = j Next j If p i Then t = a(i): a(i) = a(p): a(p) = tNext iFor i = 1 To n Print a(i);Next icmdend.Enabled = Truecmdstart.Enabled = TrueEnd SubPrivate Sub Form_Load()cmdend.Enabled = FalseEnd Sub3. Private Sub Form_Click() Dim i As Integer, n As Integer, k As Integer Dim q() As Integer n = InputBox(PLEASE INPUT N) ReDim q(n, n) For i = 1 To n For j = 1 To n q(i, j) = 0 Next j Next i For k = 0 To n - 1 q(k + 1, 1) = 1 Print 1; For i = 1 To k q(k + 1, i + 1) = q(k, i + 1) + q(k, i) Print q(k + 1, i + 1); Next i Print Next kEnd Sub三、程序设计2. 编写事件过程Command1_Click，完成下列运算：1）输入10个数到整型数组a；2）将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、.、a(10)各位数字和赋值到b(10)；3）在窗体上以一行输出a数组各元素值（保持原输入值不变）；4）在窗体上以一行输出b数组各元素值。Dim a(1 to 10) as integer,I as integerDim b(1 to 10) as integer ,k as integerFor i=1 to 10 A(i)=inputbox(“input a(i)”) Print a(i);Next iprintFor i=1 to 10 K=len(trim(str(a(i) For j=1 to k b(i)=b(i)+mid(trim(str(a(i),j,1) next j Print b(i);Next i习题五一、阅读下列程序，写出运行结果。程序.Public Sub f1(n%,byval m%) n=n mod 10 m=m10End SubPrivate Sub Form _Click( ) Dim x%,y% x=12 y=34 Call f1(x,y) Print x,yEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。2 34程序6.Public Function f(m%,n%) Do while mn Do while mn : m=m-n : loop Do while nm : n=n-m : loop Loop f=mEnd functionPrivate Sub Command1_Click( ) Print f(24,18)End Sub写出程序运行时单击Command1后，Form1上的输出结果。6二、程序填空2. 【程序说明】如果一个整数的所有因子之和与自身相等，则称该数为完数。例如：6=1+2+3，所以6是一个完数。以下程序输出1000之内的完数。 【程序】Function IsWs(m%) As Boolean Dim i%, t% For i = 1 To m-1（2） If m Mod i = 0 Then t = t + i Next i If t=m （3） Then IsWs = True Else IsWs = False End IfEnd FunctionPrivate Sub Form_Click() Dim i% For i = 1 To 1000 If isws(i)（1） Then Print i Next iEnd Sub3. 【程序说明】如下过程找出11000之间所有的同构数，所谓同构数是指一个数出现在它的平方数的右端。如25在25平方625的右端，则25为同构数。【程序】Private Function same(n%) As Boolean Dim i%, x1$, x2$ x1 = Trim(str(n) x2 = trim(str(n2) （1） If x1=right(x2,len(x1) （2） Then same = TrueEnd Function主调过程Private Sub Form_Click() Dim i%, n% For i = 1 To 1000 If same(i)（3） Then Print i; 是同构数 Next iEnd Sub5. 【程序说明】两质数的差为2,称此对质数为质数对,下面程序找100之内的质数对,并成对显示结果.其中isp函数判断参数m是否是质数。【程序】Public Function isp(m) as BooleanDim i% Isp=true（1） For i=2 to Int(Sqr(m) If m mod i=0 （2） Then isp=falseNext IEnd Function Private Sub Command1_Click ( ) Dim I p1=isp(3) For i=5 to 100 step 2p2=isp(i)If p1 and p2 Then Print I-2 ,Ip1 =p2 （4） Next iEnd Sub三、程序设计2.编一求素数的函数过程Prime(x)，若x是素数返回True，否则返回False。主调程序调用Prime(x)函数输出100之内的所有素数。Function prime(x as integer) as Boolean Dim I as integer For i=2 to sqr(x) If x mod I =0 then exit for Next i If i.sqr(x) thenPrime=trueElsePrime=falseEndifEnd functionSub command1_click() Dim I as integer For i=2 to 100 If Prime(i) then Print i EndifNext iEnd sub习题六一、阅读下列程序，写出运行结果。程序3.请写出在文本框中输入“321”（3个字符）并按回车键后标签控件上的显示结果。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim a As String * 1, b As String, n As Byte, i As Integer If KeyAscii = 13 Then b = Text1.Text: n = Len(b) For i = 1 To n 2a = Left(b, 1) b = Right(b, n - 1) + a Label1.Caption = Label1.Caption + b +vbCrLf Next i End IfEnd Sub213程序4.请写出在文本框中输入“ABCD”（4个字符）并按下回车键后，窗体上显示的结果。Private Sub Text1_Change()Print Text1.Text End SubAABABCABCD二、程序填空1. 【程序说明】下面程序是在用户按了Enter后将一个组合框(Cbo)中没有的项目添加到组合框中。【程序】Sub Cbo_Keypress(Keyascii As Integer)Dim flag as BooleanIf Keyascii=13 then Flag=False For i=0 to Cbo.ListCount-1 If Cbo.list(i)=cbo.text （1） Then Flag=True Exit For End If Next If not flag（2） Then Cbo.additem cbo.text （3） Else Msgbox (“ 组合框中已有该项目”)End ifEnd ifEnd sub2. 【程序说明】在一维数组中利用移位的方法显示如图结果。 【程序】Private Sub Form_click() Dim a(1 To 7) For i = 1 To 7 a(i) = i Print a(i); Next i Print For i = 1 To 7 T= a(7) （1） For j=6 to 1 step -1 （2） a(j+1)=a(j) （3） Next j a(1) = T For j = 1 To 7 Print a(j); Next j Print Next iEnd Sub三、程序设计2. 设计一个点菜的程序，界面如图所示。要求：框架中的复选框是控件数组，提供可选择的三种套餐，右边的文本框数组中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来；程序设计题2的界面Dim a(0 To 2) As IntegerPrivate Sub Check1_Click(Index As Integer)Text1(Index).Enabled = Not Text1(Index).EnabledText1(Index).Text = End SubPrivate Sub Command1_Click()Dim sum As Integersum = a(0) * 10 + a(1) * 18 + a(2) * 25MsgBox 总价格为 & sumEnd SubPrivate Sub Text1_Change(Index As Integer)a(Index) = Val(Text1(Index).Text)End Sub习题八一、判断题2在“打开”对话框内过滤文件类型的属性是Filter属性。yes3在使用“字体”对话框之前必须设置Flag属性。yes5显示弹出菜单的方法是PopupMenu。yes7每一个创建的菜单至多有4级子菜单。no14通用对话框的filename属性值为字符串类型，只用于存放所选文件的文件名，不含路径。no15弹出式菜单只能设置成右键菜单。no二、选择题1要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，要对下列 属性进行设置。AMaxButtonBWidthCMinButtonDBorderStyle2在用菜单编辑器设计菜单时，必需输入的项有。A快捷键B索引C标题D名称 8某顶级菜单项的热键字母为F，以下 操作等同于单击该菜单项。 A同时按下ctrl和F键B按下F键 C同时按下alt和F键D同时按下shift和F键三、 填空题1如果要将某个菜单项设计为分隔线，则该菜单的标题应设置为 -(减号) 。3建立弹出式菜单所使用的方法是 popupmenu 菜单名 。6如果工具箱中还没有common