VB作业参考答案(2016年3月)
第1次习题 VB程序设计概述 一、选择题 1 A 2 A 3 D 4 C 5 A 6 C 7 C 8 B 9 B 二、1、在设计阶段利用属性窗口直接设置对象的属性值，程序运行时不能改变；
2、在程序运行阶段通过赋值语句实现，即通过事件触发修改属性。 对象名.属性名=属性值
第2次习题 VB可视化编程基础 一、选择题 1 A 2 D 3 B 4 C 5 A 6 B 7 C 8 B 9 A 10 C 二、填空
1 2 3
第3次习题 VB语言基础 一、选择题 1 BH 二、 1 2 3
1
AutoSize MultiLine PasswordChar 2 B 3 C 4 B 5 A 6 B 7 B 8 C 9 B 10 C 11 C Abs(x+y)+Z^5 （10*x+sqr(3*y)）/(x*y) （Sin(30*3.14/180)+sqr(log(x)+y)）/(2*3.14+EXP(X+Y))
三、
1 2 3 4 四、
1 2 3 4 5 6
第4次习题 VB控制结构 一、选择
chr(int(rnd*4)+65) int(rnd*90)+10 x mod 5=0 or x mod 7=0 10*(x mod 10)+x\\10 或 StrReverse(x) 188 3030 6 876554 ；8819 VISUAL C++ Programming 12345.00 1 B 11 D 21 A 2 D 12 A 22 C 3 A 13 A 23 C 4 B 14 B 5 D 15 A 6 B 16 D 7 B 17 B 8 C 18 D 9 A 19 B 10 B 20 A 二、填空
1 2 3
2
70 Result * x m ; t ; m<40
三、程序设计题
1. 求函数的值。
Dim y As 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=x^2 Else
y = 25 - x End If
Print \
2. 计算机：1+3+5+……+99的值。 Dim sum As Long, i% sum = 0
For i = 1 To 99 Step 2 sum = sum + i Next i Print sum
3. 从键盘输入一个字符串，统计其中出现”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) = \ Then suma = suma + 1
ElseIf Mid(st, i, 1) = \ Then sumb = sumb + 1 End If Next i
Print \的个数是：\ Print \的个数是：\
4. 从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。如8的所有因子为1、2、4，因子个数为3个。
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 & \的因子的个数是：\
5.编写程序，求一字符串的反序串（如abcd的反序串为dcba）。 '求字符串反序串的方法1：
'每次从后面取一个字符并把它们串起来 Dim st As String, s$ Dim i%
st = Text1.Text
For i = Len(st) To 1 Step -1 s = s & Mid(st, i, 1) Next i
Print st & \的反序串为：\
'求字符串反序串的方法2： 函数 s = StrReverse(Text1.Text)
Print Text1.Text & \的反序串为：\
'求字符串反序串的方法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 Next i
Print Text1.Text & \的反序串为：\
6.输入一个正整数，判断其是否为素数（只能被1和自身整除的正整数）。
参见教材83页，例4.15
7.实现对分数约分的功能。输入m,n，求m/n约分后的分子和分母分别是多少。
Dim m%, n%, r%, m1%, n1% m = Val(Text1.Text)
4