第1-2章 visual basic导论与算法
第1-2章 visual basic导论与算法。
一、单项选择题。
第3章常见控件与界面设计
一、单项选择题。
二、填空题。
第4章数据、表达式与简单程序设计。
一、单项选择题。
二、填空题。
第5章选择分支与循环。
一、填空题。
二、编程题。
说明：界面自行设计，并上机调试，作业册上只需写出相应的主要程序**和正确的运行结果。）
1、编写程序**，随机生成100个两位整数，并统计出其中小于等于40，大于40小于等于70以及大于70的数据个数。
方法1：private sub command1_click()
dim sum, a%, b%, c%
dim i%
a = 0: b = 0: c = 0
for i = 1 to 100
sum = int((99 - 10 + 1) *rnd) +10
select case sum
case is <=40
a = a + 1
case 40 to 70
b = b + 1
case else
c = c + 1
end select
next i
text1 = a: text2 = b: text3 = c
end sub
方法2：option explicit
private sub command1_click()
dim a as integer, i as integer
dim c1 as integer, c2 as integer, c3 as integer
randomize
for i = 1 to 100
a = int(90 * rnd) +10
if a <=40 then
c1 = c1 + 1
elseif a <=70 then
c2 = c2 + 1
elsec3 = c3 + 1
end if
next i
print "其中，小于等于40的数有"; c1; "个；"
print " 大于40、小于等于70的数有"; c2; "个；"
print " 大于70的数有"; c3; "个。"
end sub
2、编写程序，求下面函数的值。
3、编写程序，求用inputbox函数输入的10个数的和数以及连乘积。
第6章数组。
一、单项选择题。
二、填空题。
第7章过程。
一、单项选择题。
二、填空题。
VB程序设计作业 二 答案
精品文档。客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0a 0 b 1c 2 d 32.当vb执行下面语句后，输出的结果是 b private sub form click score int...
VB程序设计作业 二 答案
客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0 a 0 b 1 c 2 d 3 2.当vb执行下面语句后，输出的结果是 b private sub form click score int r...
VB程序设计作业二答案
客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0 a 0 b 1 c 2 d 3 2.当vb执行下面语句后，输出的结果是 b private sub form click score int r...