VB实验指导书课后习题答案2016版

1、VB作业参考答案(2016年3月)第1次习题VB程序设计概述一、选择题123456789AADCACCBB二、1、在设计阶段利用属性窗口直接设置对象的属性值，程序运行时不能改变；2、在程序运行阶段通过赋值语句实现，即通过事件触发修改属性。 对象名.属性名=属性值第2次习题VB可视化编程基础一、选择题12345678910ADBCABCBAC二、填空1AutoSize2MultiLine3PasswordChar第3次习题VB语言基础一、选择题1234567891011BHBCBABBCBCC二、1Abs(x+y)+Z52（10*x+sqr(3*y)）/(x*y)3（Sin(30*3.14/18

2、0)+sqr(log(x)+y)）/(2*3.14+EXP(X+Y)三、1chr(int(rnd*4)+65)2int(rnd*90)+103xmod5=0orxmod7=0410*(xmod10)+x10 或 StrReverse(x)四、118823030364876554；88195VISUALC+Programming612345.00第4次习题VB控制结构一、选择12345678910BDABDBBCAB11121314151617181920DAABADBDBA212223ACC二、填空1702Result*x3m ; t ; m40三、程序设计题1. 求函数的值。Dim y As

3、 Long, x As Integer, i% x = InputBox(输入X的值：) 或者 x=val(text1.text) If x = 0 Then y = 2 - x ElseIf x = 2 Then y = x + 2 ElseIf x = 5 Then y = x * x or y=x2 Else y = 25 - x End If Print y=; y2. 计算机：1+3+5+99的值。Dim sum As Long, i% sum = 0 For i = 1 To 99 Step 2 sum = sum + i Next i Print sum3. 从键盘输入一个字符串

4、，统计其中出现”a”和”c”的个数，如输入“abcaabbc”，则”a”的个数为3，”c”的个数为2。Dim st As String, suma%, sumb%, i% st = Text1.Text For i = 1 To Len(st) If Mid(st, i, 1) = a Then suma = suma + 1 ElseIf Mid(st, i, 1) = c Then sumb = sumb + 1 End If Next i Print a的个数是：; suma Print b的个数是：; sumb4. 从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。如8

5、的所有因子为1、2、4，因子个数为3个。Dim x%, sum%, i% x = Val(Text1.Text) 或者 x=inputbox(输入一个整数：) For i = 1 To x - 1 或者for i=1 to sqr(x) If x Mod i = 0 Then sum = sum + 1 Next i Print Print x & 的因子的个数是： & sum5.编写程序，求一字符串的反序串（如abcd的反序串为dcba）。求字符串反序串的方法1：每次从后面取一个字符并把它们串起来 Dim st As String, s$ Dim i% st = Text1.Text For

6、 i = Len(st) To 1 Step -1 s = s & Mid(st, i, 1) Next i Print st & 的反序串为： & s 求字符串反序串的方法2： 函数 s = StrReverse(Text1.Text) Print Text1.Text & 的反序串为： & s 求字符串反序串的方法3：第1个与最后一个字符交换位置，。 Dim n% n = Len(st) For i = 1 To n / 2 c = Mid(st, i, 1) Mid(st, i, 1) = Mid(st, n - i + 1, 1) Mid(st, n - i + 1, 1) = c N

7、ext i Print Text1.Text & 的反序串为： & st6.输入一个正整数，判断其是否为素数（只能被1和自身整除的正整数）。 参见教材83页，例4.157.实现对分数约分的功能。输入m,n，求m/n约分后的分子和分母分别是多少。Dim m%, n%, r%, m1%, n1% m = Val(Text1.Text) n = Val(Text2.Text) 先求m,n 的最大公约数 r = m Mod n Do While r 0 m = n : n = r : r = m Mod n Loop Print Text1 & 和 & Text2; 的最大公约数为:; n 分子分母进

8、行约分 m1 = Val(Text1.Text) / n n1 = Val(Text2.Text) / n Print 约分后的分子为：; m1; 约分后的分母为：; n18.输入一个（0-255）之间的十进制正整数，将其转化为8位二进制数，如7转换为00000111。方法1：Dim st As String, x%, i%, r% x = Val(Text1.Text) For i = 1 To 8 r = x Mod 2 : x = x 2 : st = r & st Next i 方法2：Do While x 0 r = x Mod 2 st = r & st x = x 2 Loop

9、Do While Len(st) b3Tempch4Max=a(1); a(k)max;max=a(k)四、编程题1、Dim i%Private Sub Command1_Click() Dim a As Long Text1 = CStr(fun(a) End SubPrivate Function fun(sum As Long) sum = 0 For i = 1 To 100 If i Mod 7 0 Then sum = sum + i Next i fun = sumEnd Function2、Option Explicit Dim b(4) As Integer, i%Priva

10、te Sub Command1_Click() Dim min% For i = 0 To 4 b(i) = Val(Text1(i) Next i min = findmin(b) Print minEnd SubPrivate Function findmin(a() As Integer) Dim min% min = a(1) For i = 0 To UBound(a) If a(i) min Then min = a(i) Next i findmin = minEnd Function第7次习题 用户界面设计一、选择12345678910BACADDACCA11121314151

11、61718ABAACCDC二、填空题1Opt1(i).caption2Button ; down ; label1.catption3100 ; line1.x1 或 line1.x2；Image1.left4500; Not Label1.visible或者： IIf(Label1.Visible = True, False, True)或者：IIf(Label1.Visible = false, True, False)或者： IIf(Label1.Visible = -1, 0, -1); Timer1.Enabled = True第8次习题 数据文件一、选择12345678910CBDADCADCB二、填空题1Output ; #12EOF