vb程序设计基础课后答案
【篇一：《vb程序设计基础与vba应用》1-8章参考答案】
s=txt>p28 习题一
二，单选题1，b 2，b 3，d 4，a 5，d 6，b 7，b 8,c 9,d
三, 程序设计题
5, private sub command1_click()
form1.fontname = 宋体
form1.print 中文字体宋体
end sub
private sub command2_click()
form1.fontname = 楷体_gb2312
form1.print 中文字体楷体
end sub
private sub command3_click()
form1.fontname = 仿宋_gb2312
form1.print 中文字体仿宋
end sub
p57 习题二
一，判断题
对:1, 3， 7，10，14
错:2，4，5，6，8，9，11，12，13
二，单选题
1， a 2， c 3， c4， b
6， a 7， b 8， c9， b
11， c12， d13， b 14， a
16， b17， b18， c19， b
21， b 22， d 23， a24， c
26， a 27， d28， b
三，简答题
1. (1) 2 * cos(alfa) * sin(alfa/ ( 2 * a )
(2) sqr( s*(s–a)*(s–b )*(s - c))
(3) ( a*a + b*c*(x +y)) / (a+b)
(4) ( 2* 3.14159*r +exp(-5))* log(x) 5， b 10，(5) 1/( x + 1/(y+1) )
(6) k / ( 1 + a * exp(-b*x) )
(7) cos(alfa) ^ 2 + atn(alfa)
(8) sqr( y^3 + 3 * (a*a+b*b) / (x*x+y*y) )
2. (1) (a+b) mod c (2) sqr(abs(x))
(3) int(x) + 1(4) int(rnd *101)+200
，，， c 15 d 20 b 25 b
3。 （1） f （2） t (3) f (4) t
4． （1） 1=x and x12 （2）t+3v-2 and (t+v)100
（3） (a+b) = c or (a-c) = c
（4） a0 and int(a)=a and b0 and int(b)=b or a0 and b0
（5） x=y or x=z
（6） a=0 and b0 or a0 and b=0
四, 编程题
1. private sub form_click()
dim a as integer, b as integer, c as integer
dim y as single
a = inputbox(请输入正整数a的值)
b = inputbox(请输入正整数b的值)
c = inputbox(请输入正整数c的值)
y = (a + b + c) / 3
print 平均值: ; y
end sub
2．
private sub command1_click()
dim a as integer, b as integer, c as integer
dimy as single
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
y = (a + b + c) / 3
label1.caption = str(y)
end sub
3. private sub form_click()
dim r as integer, s as single
const pi = 3.14159
r = inputbox(输入圆半径)
s = pi * r * r
msgbox 圆面积 area = + str(s)
end sub
p114 习题三
一， 1，a 2，b 3，b 4，a5，c
二，1， 37，55，64，28，19
2， y=kigeca
3， 1
121
12321
1234321
123454321
12345654321
4，china！
三， 1， t as double
s=1
abs(t)=0.00001
s=s+t
2,s+c
-1
s
3,m=n
m to n
sum=sum+j
sum=i
四， 1，
private sub form_click()
dim x as single, f as single
x = inputbox(输入x: )
if x -5 then
f = 3 * x * x + 2 * x - 1
elseif x = 5 then
f = x * sin(x) + 2 ^ x
else
f = sqr(x - 5) + log(x) / log(10)
end if
label1.caption = f
end sub
2.
private sub form_click()
dim n as integer, i as integer, flag as integer, inputbox(请输入n的值：)
sum = 0
t = 1
flag = -1
for i = 1 to n
flag = -flag
t = t * i
s = s + flag * i / t
s as single, t as integern =
next i
print s=; s
end sub
3.
private sub command1_click()
for i = 1 to 9
for j = 1 to i
print i; *; j; =; i * j;
next j
next i
end sub
4.
private sub form_click()
for i = 1 to 5
print tab(6 - i);
for j = 1 to 2 * i - 1
print *;
next j
next i
for i = 4 to 1 step -1
print tab(6 - i);
for j = 1 to 2 * i - 1
print *;
next j
next i
end sub
p152
一、单选题
1，b2, d3, c4,c 5, d
二、程序阅读题
1， 2 4 7 11 16
2,1 4 9 16 25
3，2 3 4 5
3 4 5 6
4 5 6 7
4，1210 9
5，div = 3
三、程序填空题
1、
len(str1)
mid(str1, i, 1)
p = j
i p
2、
l = len(str)
a(i) = mid(str, i, 1)
p = s - 96
x(p) = x(p) + 1
3、
a(1 to 4, 1 to 5)
s = 0
a(i, 5) = s / 4
四，程序设计题
1，
private sub form_click() 练习四
【篇二：《vb程序设计基础》课后选择题答案】
txt>cdadb babda dbadacccdcbcacb c
第2章
ababdcbccdbabdcccabcd ffftftfttf
第3章
cacba acccbccacacbbadcdbda tttttft
第4章
bddbbccdbcbc
第6章
bbabb acdacbabcd
第7章
cbadc caaacccabc dcbdd cbb cabbd
【篇三：《计算机程序设计基础》课后练习题参考答案】
ss=txt>一．判断题
(1) （错）事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。
(2) （错）若x＝2, y＝5，则表达式 y－2x and x＋2＞y 的结果为：true。
(3) （错）常量是指在程序运行过程中其值可以改变的那些量。
(4) （错，timer没有）vb工具箱中的所有控件都具有宽度（width）和高度（height）属
性。
(5) （错）定义变量：dim max,min as single , 则max 和 min 的数据类型均为single。
(6) （对）如果创建的菜单项的标题是一个减号“-”，则该菜单项显示为一条分隔线。
(7) （错）标准模块文件的扩展名是“*.vbp”。
(8) （错，都不能）定时器控件可以响应click事件，但不能响应dbclick事件。
(9) （错）在默认情况下，数组下标下界的缺省值为1。
(10) （对）在使用字体对话框时，需要对其flags属性先进行相应设置。
二．单选题
(11) 在visual basic中，表示鼠标单击事件的是c。
a）activate b）doubleclickc）clickd）mousedown
(12) 用于设置计时器时间间隔的属性是。
a）interval b）name c）left d）top
(13) 函数int(10*rnd)是在范围内的整数。
a）[1，10]b）[1，10] c) [0，9) d）[0，9]
(14) select case语句结构的结尾应使用
a）end b） end case c） end sub d） end select
(15) 改变了容器的坐标系后，该容器的 a 属性值不会改变。
a）leftb）scaleleft c）scaletop d）scalewidth
(16) 执行下列语句后，列表框中各表项顺序为 list1.clear
for i=1 to 4 : list1.additem i-1,0 ：next i
a） b） c） d）
(17) 输入对话框inputbox的返回值的类型是。
a）字符串b）整数 c）浮点数d）长整数
(18) 将焦点主动设置到指定的控件或窗体上，应采用 b 方法。
a）setdate b）setfocus c）settext d）getdata
(19) 有如下程序段：
dim i as integer , s as integer
s = 1
for i = 1 to 8 step 2
s = s * i
nexti
print “s = “ ; s
运行结果为b
a）s = 9 b）s = 105c）s = 1 d）s = 16
(20) 利用以下语句，可以输出日期和时间信息。
a）print date b）print month c）print timed）print now
(21) 一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是___d____。
a）对象，属性，事件 b）对象，属性，方法
c）属性，对象，方法 d）属性，对象，事件
(22) 将通用对话框以“打开文件对话框”方式打开，则选以下方法。
a) showopen b）showcolor c）showsave d）showfont
(23) 执行语句“line (100, 100)-(150, 200), vbblue, b”,在窗体上绘制出一个矩形，
那么该矩形的面积 = a 。
a）5000 b）10000 c） 15000 d）20000
(24) 如何使一个标签或按钮控件在运行时不可用___c____。
a）把它的visible属性设置成false b）把它的visible属性设置成true
c）把它的enabled属性设置成false d）把它的enabled属性设置成true
(25) 下列c 表达式的结果为1234556789。
a）trim(12345+ 56789) b）ltrim(12345 )+rtrim( 56789)
c）rtrim(12345 ) (56789) d）ltrim(12345 ) rtrim( 56789)
(26) 将图形框（picturebox）控件的autosize属性设置为true后，则对于图形框而言，
____b____。
a）图形框中的图片自动改变大小适应图形框
b）图形框自动改变大小适应其中的图形
c）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。
d）如果图片的大小比图形框小，则图形框大小不发生变化。
(27) 要获得当前驱动器应使用驱动器列表框的哪个属性。
a）path b）drivec）dir d）pattern
(28) 以下关于函数过程的叙述中，正确的是____a____。
a）函数过程形参的类型与函数返回值的类型没有关系
b）在函数过程中，过程的返回值可以有多个
c）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
d）如果不指明函数过程参数的类型，则该参数没有数据类型
(29) 单击滚动条的滚动箭头时，产生的事件是___c____。
a）clickb）scrollc） changed）move
(30) 以下能返回文件长度的函数是__b___。
a）bofb）lofc）lend）eof
三．程序填空题
【程序填空1】在c盘当前文件夹下已存在名为data.txt的文件，利用文本框（text1）输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“end”时，则表示结束输入（对于单词“end”不论大小写都视为结束），最后将文件关闭。
private sub form_load()
（31） a
text1.text =
end sub
private sub text1_keypress(keyascii as integer)
if keyascii = 13 then
if（32） d= end then
close #
end
else
（33） a（注意，text1的默认属性为text，可省略不写）
text1.text =
end if
end if
end sub
(31) a）open c:\\data.txt for output as #１
b）open c:\\data.txt for input #１
c）open c:\\data.txt input as #１
d）open c:\\data.txt output as #１
(32) a）lcase(text1.text)b）text1.text
c）str(text1) d）ucase(text1.text)
(33) a）write #1, text1 b）write #1, text
c）write #3, text1.text d）write #1, text.text
【程序填空2】程序运行后如下图所示，label1的caption显示为 字体定时变大，影响字体大小的属性每隔0.5秒增加1，数值在[8，72]之间变化。
option explicit
private sub form_load()
timer1.enabled = true
（34）b
label1.caption = 字体定时变大
end sub
private sub timer1_timer()
static i as integer
if i 7 or i = 72 then i = 7
i = i + 1
（35）a
end sub
(34) a）timer1.interval=5/10 b） timer1.interval = 500
c）timer1.interval=true d）timer1.interval=false (35) a）label1.fontsize = i b）label1.font = i
c）label1.size = id）label1.fontsize = i+1
【程序填空3】已知五个数存放在数组中，用冒泡法对该数组进行递减排序（冒泡法：一旦发现数组中两个数逆序马上交换这两个数）。
private sub command1_click()
dim a(1 to 5) as integer
dim n%, i%，j%, t%
a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) = 23
for i = 1 to 4（确保第i轮循环后，a(i)位置上存放第i大的数）
for j = 5 to i+1 step -1
if then
t = a(j)
a(j - 1) = t
end if
next j
next i
for i = 1 to 5
print a(i);
next i
end sub
(36) a）a(j) a(j - 1)b）a(j) a(j - 1)
c）a(i) a(j) d）a(j) a(i)
(37) a）a(i)=a(j) b) a(j-1)=a(j) c）a(j)=a(i) d) a(j) = a(j - 1)
【程序填空4】在窗体上画一个名称为combol的组合框，画两个名称分别label1和label2及caption属性分别为“城市名称”和空白的标签。程序运行后（如下图所示），当在组合框中输入一个新的项目按回车键时（回车键的ascii码为13），如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在label2中给出提示“已成功添加输入项；如
果存在，则在label2中给出提示“输入项已在组合框中”。
private sub combo1_ keypress (keyascii as integer)
for i=0 to combo1.listcount-1
then
label2.caption=输入项已在组合框中
exit sub
end if
next i
label2.caption=已成功添加输入项
combo1.text
end if
end sub
(38) a）keyascii=0 b）keyascii=13 c）keyascii=8 d）keyascii=9
(39) a）combo1.listindexb）combo1.list(i)c）combo1.additem(i)d）combo1.clear
(40) a)selected b)removeitemc)additemd) listindex
四．程序阅读题
【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为_____(41)_ c__，第二次单击后输出的a、b、c的值为_____(42)__d_，第三次单击后输出的a、b、c的值为_____(43) _a_。
因篇幅问题不能全部显示，请点此查看更多更全内容