visual basic程序设计》（a卷）
一、填空题(每空1分，共10分)
1. not(5>6)的值是 。
2. 根据存取方式，文件可分为文件和文件
3. dim a as integer ,也可以写成。
4. print format (63.57,”000.000”) 的输出结果是。
5. k=a=b 第一个是__⑥号， 第二个 ⑦_号。
6. dim a(2,3) as string ,则数组a 最多能放 _⑧个元素，各元素是 __类型。
7. 设 a,b,c是三角形的三条边长，写出能构成三角形的逻辑表达式
二、选择题(每空1分，共10分)
1. 窗体文件的扩展名是_①_工程文件的扩展名是 _②
a. .vbp b. .log c. .frm d. .bas
2.可以作为vb合法变量名的是 _③
a.*st d.5st
3. 在面向对象的程序设计中，对象的性质和状态特征称为 _④
a.消息 b.类 c.属性 d.事件
4. fontbold=true表示将字体设为 __
a.斜体 b.粗体 c.加中划线 d.加下划线。
5. 属于外颜色属性的是 _⑥
b. top
6. 文本框的text 属性返回值是 _⑦类型， autosize 属性是 _⑧类型。
a.逻辑 b.数值 c.字符 d.日期
7. 将按钮的鼠标事件屏蔽，可将 __属性设为false
8. 不能使用print 方法的对象 _⑩
三、程序填空(每空2分，共20分)
1、计算 s=1+2+3+…+100
s=0:n=0
while__(1)__n=n+1
wendprint s
2、计算 s=1+2+3+…+100
s = 0for i3)
next i
print s
3、建立并打印一个主对角线元素为1，其余元素为零的10行10列的二维数组。
dim a(10,10) as integer
for i=1 to 10
for j=1 to 10
if __6)__then a(i,j)=1
print a(i,j) ;
next j
next i
4、 判断数n的奇偶性。
dim n as integer
n8）if9）then
print "n是偶数"
elseprint "n是奇数"
四、写下列程序的运行结果(每题5分，共20分)
1、private sub command1_click()
a=5b=10
a=a+3b=b-3
print a;b
end sub
2、private sub command1_click()
dim x as integer, y as integer
x = 1do while y <=0
x= x+ 1
y = y+1
loop print x; y
end sub
3、private sub command1_click (
static n as integer
n = n +1
print n
end sub
问：连击3次 command1的显示结果。
4、for i = 1 to 10
s = s + i
next i
print s;i
程序运行结束输出结果是：
五、编写程序(每题10分，共30分)
1. 求出方程x+y+z=18的正整数解。
2. 输出如下图形：
3. 计算s=2+4+6+……100,并在窗体上输出结果。
六、设计题(本题10分)
在名称为form1的窗体上建立一个名称为text1，内容为“程序设计”的文本框和两个名称为command1和command2的命令按钮，标题分别为“粗体”和“斜体”，程序运行后，单击标题为粗体的命令按钮将文本框中的内容设置为粗体字，单击标题为斜体的命令按钮将文本框中的内容设置为斜体字。
提示：分别使用两个命令按钮的click事件，设置粗体的属性为fontbold，设置斜体的属性为fontitalic。
1) 画出界面。
2) 给出属性表。
3) 编写程序。
visual basic程序设计》（b卷）
一、填空题(每空1分，共10分)
1. rnd<1 or x 2. 图形可分为_②_和_③_两大类。
3. rgb函数的功能是__④
4. 隐藏窗体的方法是_⑤_
5. 装载**的函数是__⑥
6. 计算机程序流程的3种控制结构是__⑦和__⑨
7. 按下一个有ascii码的键时，引发___事件。
二、选择题(每空1分，共10分)
1. 运行vb程序的功能键是_①_
a. f1 b. f3 c. f5 d. f8
2. 可以作父控件的控件是_②_
a. 文本框 b. 标签 c. 框架 d. 组合框。
3. 没有caption属性的控件是_③_
a. 文本框 b. 标签 c. 框架 d. 滚动条。
4. inputbox函数的返回值类型是__④msgbox函数的返回值类型是_⑤_
a. 数值 b. 字符 c. 逻辑 d. 日期。
5. 不能用于打印机的坐标刻度是__⑥
a. 磅 b. 英寸 c. 字符 d. 像素。
6. 以下能触发文本框change事件的操作是__⑦
a. 启动程序 b. 文本框中内容改变 c. 双击窗体 d. 文本框失去焦点。
7. 设a=5.6，下面使b=5的语句是_⑧_
a. b=mid(a,8,12) b. b= len (a) c. b= int (a) d. b=sin(a)
8. 变量的作用域分__⑨级，过程的作用域分___级。
a. 1 b. 2 c. 3 d. 4
三、程序填空(每空2分，共20分)
1. 求满足条件：1+2+3+……n >1000的最小的n。s=0
while
s=s+nwend
print “n=”;3)__
2. 用选择法将10个两位随机整数按升序排列．
private sub command1_click()
const n＝10
dim a(1 to n ) as integer
dim i as integer, j as integer, k as integer, t as integer
for i＝1 to n
a(i)=_4)__
print a(i);
next i
printfor i＝1 to n-1
k＝ifor j＝＿(5)＿
if a(k) >a(j) then ＿＿6)＿＿
next j
if ＿＿7)＿＿then
t=a(i)
a(i)=a(k)
a(k)=t
endifnext i
print"dara after sorting:"
for i＝1 to n
print a(i);
next i
end sub
3. 建立并打印一个次对角线元素为1，其余元素为零的10行10列的二维数组。
dim a(10,10) as integer
for i=1 to 10
for j=1 to 10
if __9)__then a(i,j)=1
print a(i,j) ;
next j
next i
四、写下列程序的运行结果(每题5分，共20分)
1. a=10 : b=9
for i=1 to 4
a=a-bb=b-a
print a,b
next i
2. private sub command1_click()
dim x as integer, y as integer
x = 1do until y < 0
x= x+1
y = y-1
loop print x; y
end sub
3、private sub command1_click (
static n as integer
n = n +2
2019VB练习卷
满分 252分。姓名 1 单项选择题 本题共计100分 1 单击command1按钮，输出的第二行是。private sub command1 click dim a as integer,k as integer a 2k fun a a fun a,a print k k end sub pri...
《Vb程序设计基础》B试卷
无锡技师学院。班级学号 姓名得分。一 选择题 请将正确答案写在相应的题号下面，每小题2分，本题50分 1 visual basic是一种 b 的可视化程序设计语言。a 面向机器 b 面向对象 c 面向问题 d 面向过程。2 visual basic主窗口中不包括 c a 标题栏 b 工具栏 c 状态...
2024年VB最全程序设计题
1.求 10，1000 之间的所有完数之和，各真因子之和等于其本身的正整数称为完数 524 2.设有十进制数字a，b,c,d和e,他们满足下列式子 abcd e bcde a不等于0，e不等于0或1 求满足上述条件的四位数的个数2 3.已知一个数列的前3个数为 以后每个数为前3个数的和，编程求此数列...