【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:VB程序设计课后习题答案(科学出版社) - 编程语言绩等信息,祝愿广大网友取得需要的信息,参考学习。
同步练习 1二、选择题01——05 CADAB06——10 ACDAB11——15 CBDBB 同步练习 2二、选择题01——05 ABDCA06——10 CACBC11——15 DADAD16——20 BDBBB三、填空题1. 可视2. LEFT、TOP、WIDTH、HEIGHT3. 按字母顺序4. 查看
代码5. 工具、编辑器6. FORM 窗体、FONT7. MULTILINE8. 在运行时设计是无效的9. 工程、工程属性、通用、FORM1.SHOW10.TABINDEX、0 同步练习 3二、选择题01——05 BCADB06——10 ADBBC11——15 DBCBA16——20 BAABB三、填空题1. 整型、长整型、单精度型、双精度型2. SIN303.14/180SQRXEXP3/ABSX-Y-LOG3X3. 164、今天是:3-194. FALSE5. -4、3、-3、3、-4、46. CDEF7. X MOD 1010X108. 35202020 35 20 20 209. X MOD 30 OR X MOD 5010.27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习 4一、选择题01——05 DBCAD06——10 CBBAB11——15 D25BAC16——20 CBACB21——25 DAABC二、填空题1. 正确性、有穷性、可行性、有 0 个或多个输入、有 1 个或多个输出2. 1 2 33. X74. X k Then y y Strn End IfNext nMsgBox y “显示质数End Sub3. 编写程序,计算 12…100 的值。
Private Sub Form_ClickDim i ss0For i 1 To 100 ssiNext iPrint 123…100 sEnd Sub4. 百元买百鸡。
假定小鸡每只 5 角,公鸡每只 2 元,母鸡每只 3 元,编程求解购鸡
方案。
采用穷举法假设母鸡、公鸡、小鸡各为 x、y、z,列出方程为: xyz100 3x2y0.5z 100Private Sub Form_ClickDim x y zPrint 母鸡 公鸡 小鸡For x 0 To 33 For y 0 To 50 z 100 - x - y If 3 x 2 y 0.5 z 100 Then Print x y z End If Next yNext xEnd Sub5. 给定三角形的 3 条边的边长,计算三角形的面积。
编写程序,首选判断的 3条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入。
当输入-1 时结束程序。
Private Sub Form_ClickDim a b c s pDo Until a -1 Or b -1 Or c -1a ValInputBoxab ValInputBoxbc ValInputBoxcIf a b c And a c b And b c a Then p a b c / 2 s Sqrp p - a p - b p - c Print s sEnd IfLoopEnd Sub6. 编程打印如下图所示的数字金字塔。
Private Sub Form_ClickDim i jFor i 1 To 8 Print Tab9 - i For j 1 To 2 i - 1 Print TrimStri Next j PrintNext iEnd Sub7. 勾股定理中 3 个数的关系是:aabbcc。
编写程序,输出 30 以内满足上述关系的整数组合,例如 3、4、5 就是一个整数组合。
Private Sub Form_ClickDim i j kFor i 1 To 30 For j 1 To 30 For k 1 To 30 If i 2 j 2 k 2 Then Print i j k End If Next k Next jNext iEnd Sub8. 如果一个三位数 3 个数字的立方和等于该数本身,称为水仙花数。
例如 153就是一个水仙花数:135333153。
编写程序,显示所有三位的水仙花数。
Private Sub Form_ClickDim x a b cFor x 100 To 999 a x 100 b x Mod 100 10 c x Mod 10 If a 3 b 3 c 3 x Then Print x End IfNext xEnd Sub9. 税务部门征收所得税,规定如下:(1)收入 200 元以内,免征;(2)收入在 200400 元内,超过 200 元的部分纳税 3;(3)收入超过 400 元的部分,纳税 4;(4)当收入达 5000 元或超过时,将 4改为 5。
编程实现上述操作。
Private Sub Form_ClickDim x yx ValInputBox请输入收入额:Select Case xCase Is 200 y0Case 200 To 400 y x - 200 0.03Case 400 To 4999 y x - 400 0.04Case Is 5000 y x - 400 0.05End SelectPrint y yEnd Sub10.编写一
程序根据上网时间计算上网费用,计算方法如下: 50 元 (60 小时)同时为了鼓励多上网,每月收费最多不超过 200 元。
Private Sub Form_ClickDim t st ValInputBox请输入上网小时数Select Case t Case Is 10 s 50 Case 10 To 59 s6t If s 200 Then s 200 Case Is 60 s4t If s 200 Then s 200End SelectPrint 上网费用为 s 元。
End Sub11.编写一个程序,当输入月份时,输出季节的名称。
例如,当输入月份为 12、1 和 2 时,输出“冬季”;当输入月份为 3、4、5 时,输出“春季”;当输入月份为6、7、8 时,输出“夏季”;当输入月份为 9、10、11 时,输出“秋季”;当输入其他数字时,输出“输入错误,请重新输入!”。
Private Sub Form_ClickDim mm ValInputBox请输入月份:Select Case m Case 12 1 2 Print 冬季 Case 3 4 5 Print 春季 Case 6 7 8 Print 夏季 Case 9 10 11 Print 秋季 Case Else Print 输入错误,请重新输入!End SelectEnd Sub12.分别利用 If 语句、Select Case 语句,
设计计算下列分段函数的程序。
2x-1 (x0)Private Sub Form_ClickDim x fx ValInputBox请输入 x 的值:Select Case x Case Is 0 f2x-1 Case 0 f4x Case Is 0 f7x-5End SelectPrint fEnd Sub 同步练习 5一、选择题01——05 DCACD06——10 DBCDC11——15 BADAD二、填空题1. NAME、INDEX2. PRESERVE3. VARIANT4. N22 N335. 1 2 3 1 4 16. 1 2 3 2 4 67. MAX、MAXARR1I三、编程题1. 从键盘上输入 10 整数,并放入一个一维数组中,然后将其前 5 个元素与后5 个元素对换,即第 1 个元素与第 10 个元素互换,第 2 个元素与第 9 个元素互换,……,第 5 个元素与第 6 个元素互换。
输出数组为原来各元素的值和对换后各元素的值。
Private Sub Form_ClickDim a1 To 10For i 1 To 10 ai ValInputBox请输入第 i 个数Next iPrint 原来各元素的值:For i 1 To 10 Print ai If i Mod 5 0 Then PrintNext iFor i 1 To 5 temp ai ai a10 - i 1 a10 - i 1 tempNext iPrint 对换后各元素的值For i 1 To 10 Print ai If i Mod 5 0 Then PrintNext iEnd Sub2. 设有如下两组数据。
编写一个程序,把两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即 279,827,…,2580,并把相应的结果放入第三个数组中,最后输出第三个数组的值。
A 2 8 7 6 4 28 70 25 B 79 27 32 41 57 66 78 80Private Sub Form_ClickDim a b c7a Array2 8 7 6 4 28 70 25b Array79 27 32 41 57 66 78 80For i 0 To 7 ci ai biNext iFor i 0 To 7 Print ciNext iEnd Sub3. 有一个 n×m 的矩阵,其各元素的值由随机函数生成(范围为 50150)。
编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号。
Option Base 1Private Sub Form_ClickDim max row colDim a As Integern ValInputBox请输入矩阵的行:m ValInputBox请输入矩阵的列:ReDim an mFor i 1 To n For j 1 To m ai j Int101 Rnd 50 Print ai j If j m Then Print Next jNext imax a1 1: row 1: col 1For i 1 To n For j 1 To m If ai j max Then max ai j row i col j End If Next jNext iPrint 最大元素是: maxPrint 在第 row 行, 第 col 列End Sub4. 编写程序, 产生 50 个互不相同的 1099 的随机整数, 统计各数值段(1019,2029,….8089,9099)有多少个数并输出。
Private Sub Form_ClickDim a1 To 50 As Integer i As IntegerDim b1 To 9 As Integer k As IntegerFor i 1 To 50 ai IntRnd 90 10 Print ai If i Mod 10 0 Then Print k Intai / 10 bk bk 1Next iPrintFor i 1 To 9 Print i 10 i 10 9 的学生人数: biNext iEnd Sub5. 采用控件数组编写一个简单的计算器。
要求该计算器能够实现简单的加、减、乘、除运算。
Private Sub Command1_ClickIndex As IntegerSelect Case Index Case 0 Text3 ValText1 ValText2 Case 1 Text3 ValText1 - ValText2 Case 2 Text3 ValText1 ValText2 Case 3 Text3 ValText1 / ValText2End SelectEnd Sub7. 编程显示 Fibonacci 数列的前 40 项。
该数列有如下特点:其第 1、2 项均为1,从第 3 个数开始,该数是其前两个数之和,公式为:Fn Fn-1 Fn-2Private Sub Form_ClickDim f39f0 1: f1 1For i 2 To 39 fi fi - 1 fi - 2Next iFor i 0 To 39 Print fi If i 1 Mod 5 0 Then PrintNext iEnd Sub8. 从键盘上任意输入 10 个数,要求分别用冒泡法、选择法降序排列。
选择法降序:Private Sub Form_ClickDim a1 To 10 As IntegerFor i 1 To 10 ai ValInputBox输入 A i 的值Next iPrint 排序前数据:For i 1 To 10 Print ai If i Mod 5 0 Then Print 每行打印 5 个元素Next iFor i 1 To 9 pi For j i 1 To 10 If ap aj Then p j Next j t ai: ai ap: ap t 交换数据Next iPrint 排序后数据:For i 1 To 10 Print ai If i Mod 5 0 Then PrintNext iEnd Sub冒泡法降序Private Sub Form_ClickDim a1 To 10 As IntegerFor i 1 To 10 ai ValInputBox输入 A i 的值Next iPrint 排序前数据:For i 1 To 10 Print ai If i Mod 5 0 Then Print 每行打印 5 个元素Next iFor i 1 To 9 For j 1 To 10 - i If aj aj 1 Then t aj: aj aj 1: aj 1 t End If Next jNext iPrint 排序后数据:For i 1 To 10 Print ai If i Mod 5 0 Then PrintNext iEnd Sub 同步练习 6一、选择题01——05 BDBAB06——10 DBDCC11——15 ABCBA16——18 CDD二、填空题1. 子、函数2. 实际、形式3. 存储单元4. MYFAB AS BOOLEAN5. 按值传递、按地址传递6. LBOUND、UBOUND7. 局部8. 通用、所有过程9. 2 5 910.2411.212.30、7013.5 同步练习 7一、选择题01——03 BCA06——10 CDBBD11——15 CADADA16——20 CADBD21——25 DAAAB26——28 CAA二、填空题1. LOAD、UNLOAD2. SHOW、HIDE3. 属性、方法、事件4. 工程属性、工程、工程属性6. _KEYPRESS、COMBO1.LISTI、ADDITEM7. 0、LIST1.LISTINDEX、LIST1.TEXT8. 1000、TRUE、TIME9. AA10.下拉式组合框、简单组合框、下拉式列表框 同步练习 8一、选择题01——05 DCCDA06——10 CDBBA11——15 BDBBC16——19 CAAA二、填空题1. 不会、不会2. SCALEHEIGHT、SCALEWIDTH3. 300-1504. 右、上5. 默认6. 0157. B8. 0-29. 逆10.DRAWWIDTH11.右、上12.MOVE13.PICTURE1.PICTURELOADPICTURE“”14.坐标原点、坐标度量单位、坐标轴的长度与方向15.
VB 程序设计、VBPROGRAMMING 同步练习 9一、选择题01——05 BADCB06——10 BBDAB二、填空题1. 驱动器列表框、目录
列表框、文件列表框2. CHANGE3. FILE1.PATHDIR1.PATH4. NAME “D:OLD.DOC” AS “C:NEW.DOC”5. DIR1.PATHDRIVE1.DRIVE FILE1.PATHDIR1.PATH6. FILECOPY “D:TEXT.DOC””E:”7. EOF8. FOR INPUT NOT EOF19. FOR INPUT FOR OUTPUT AS 2 NOT EOF1 INPUT 1STR1 KILL “C:OLD.DAT”10.PATTERN11.空12.字节