《VB课后部分习题答案》由会员分享，可在线阅读，更多相关《VB课后部分习题答案（13页珍藏版）》请在金锄头文库上搜索。
1、二、选择题1. Visual Basic 中的窗体文件的扩展名是A、.reg B、.frm C、.bas D、.vbp2. Visual Basic 中的模块文件的扩展名是A、.reg B、.frm C、.bas D、.vbp3. Visual Basic 中的工程文件的扩展名是A、.reg B、.frm C、.bas D、.vbp4. 以下关于 Visual Basic 语言的说法中，正确的是A、Visual Basic 是一种面向过程的语言 B、Visual Basic 是一种面向对象语言C、Visual Basic 是一种低级语言 D、Visual Basic 是一种机器语言7. 下列不
2、属于对象的基本特征的是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 TheniMax = iElseIf i0 且 n=30（1） n = Val(InputBox(n=, 请重输)Loopsum = 0k=0 （2） D
3、ok = k + 1sum = sum+1/(k*(k+1) （3） Loop Until k = nLabel1.Caption = sum= + Str(sum)End Sub4.)1(.431215. 【程序说明】计算 的值并打印出来。112390【程序】Private Sub Form_Click()Dim i As IntegerDim k As SingleDim p As IntegerDim s As Singlep=1 （1） s = 0For i = 1 to 100 （2） k = p / ip=p*(-1) （3） s = s + kNext iForm1.Print
4、s=; sEnd Sub三、程序设计7. 搬砖问题：三十六块砖三十六人搬，男搬四，女搬三，两个小儿抬一砖，要求一次全搬完，问需男、女、小儿各若干？dim x as integer ,y as integer, z as integerfor x=0 to 9for y=0 to 12z=36-x-yif 4*x+3*y+z/2=36 thenprint x,y,zendifnext ynext x11. 一个两位数的正整数，如果将其个位数与十位数对调所生成的数称为对调数，如28 是 82 的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使这两个数之和等于它们各自的对调数之和，如 5
5、6+32=65+23。Dim xi As Integer, yi As IntegerFor x = 10 To 99xi = (x Mod 10) * 10 + x 10For y = 10 To 99yi = (y Mod 10) * 10 + y 10If x + y = xi + yi Then Print x, yEnd IfNext yNext x习题四一、阅读下列程序，写出运行结果。程序 2Private Sub Command1_Click()Dim m As Integer, n As IntegerDim a(3, 3) As IntegerFor m = 1 To 3Fo
6、r n = 1 To 3a(m, n) = (m - 1) * 3 + nNext nNext mFor m = 2 To 3For n = 1 To 2Print a(n, m);Next nNext 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 I
7、ntegerDim 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 - 1p = iFor j = i + 1 To nIf a(p) i Then t = a(i): a(i) = a(p): a(p) = tNext iFor i = 1 To nPrint a(i);Next icmdend.Enabled = Truecmdstart.Enabled
8、= TrueEnd SubPrivate Sub Form_Load()cmdend.Enabled = FalseEnd Sub3. Private Sub Form_Click()Dim i As Integer, n As Integer, k As IntegerDim q() As Integern = InputBox(PLEASE INPUT N)ReDim q(n, n)For i = 1 To nFor j = 1 To nq(i, j) = 0Next jNext iFor k = 0 To n - 1q(k + 1, 1) = 1Print 1;For i = 1 To
9、kq(k + 1, i + 1) = q(k, i + 1) + q(k, i)Print q(k + 1, i + 1);Next iPrintNext 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
10、(1 to 10) as integer ,k as integerFor i=1 to 10A(i)=inputbox(“input a(i)”)Print a(i);Next iprintFor i=1 to 10K=len(trim(str(a(i)For j=1 to kb(i)=b(i)+mid(trim(str(a(i),j,1)next jPrint b(i);Next i习题五一、阅读下列程序，写出运行结果。程序.Public Sub f1(n%,byval m%)n=n mod 10m=m10End SubPrivate Sub Form _Click( )Dim x%,y%
11、x=12y=34Call f1(x,y)Print x,yEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。2 34程序 6.Public Function f(m%,n%)Do while mn : m=m-n : loop Do while nm : n=n-m : loopLoopf=mEnd functionPrivate Sub Command1_Click( )Print f(24,18)End Sub写出程序运行时单击 Command1 后，Form1 上的输出结果。6二、程序填空2. 【程序说明】如果一个整数的所有因子之和与自身相等，则称该数为完数。例如：6=1
12、+2+3，所以6 是一个完数。以下程序输出 1000 之内的完数。【程序】Function IsWs(m%) As BooleanDim i%, t%For i = 1 To m-1（2 ） If m Mod i = 0 Then t = t + iNext iIf t=m （3） ThenIsWs = TrueElseIsWs = FalseEnd IfEnd FunctionPrivate Sub Form_Click()Dim i%For i = 1 To 1000If isws(i)（1） Then Print iNext iEnd Sub3. 【程序说明】如下过程找出 11000 之
13、间所有的同构数，所谓同构数是指一个数出现在它的平方数的右端。如 25 在 25 平方 625 的右端，则 25 为同构数。【程序】Private Function same(n%) As BooleanDim 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 1000If same(i)（3） Then Print i; 是同构数Nex
14、t 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 FunctionPrivate Sub Command1_Click ( )Dim Ip1=isp(3)For i=5 to 100 step 2p2=isp(i)If p1 and p2 The
15、n Print I-2 ,Ip1 =p2 （4） Next iEnd Sub三、程序设计2.编一求素数的函数过程 Prime(x)，若 x 是素数返回 True，否则返回 False。主调程序调用Prime(x)函数输出 100 之内的所有素数。Function prime(x as integer) as BooleanDim I as integerFor i=2 to sqr(x)If x mod I =0 then exit forNext iIf i.sqr(x) thenPrime=trueElsePrime=falseEndifEnd functionSub command1_click()Dim I as integerFor i=2 to 100If Prime(i) thenPrint iEndifNext iEnd sub习题六一、阅读下列程序，写出运行结果。程序 3.请写出在文本框中输入“321” （3 个字符）并按回车键后标签控件上的显示结果。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim a As String * 1
