12、* 编写一个显示随机数的程序，如图{}所示。
运行过程：
点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。
private sub command1_click()
= true
end sub
private sub 【form】_load()
= vbwhite
= vbgreen
end sub
private sub timer1_【timer】()
label1 = val(int(rnd * 90000 + 10000))
end sub
13、* 产生50个60~100的随机数，统计其中被6整除余2的个数，并将这些数输出。
private sub command1_click()
dim x, n as integer
dim counter as integer
for 【n】= 1 to 50
x = int(rnd * 41 + 60)
if 【n】mod 6 = 2 then
counter = counter + 1
end if
next n
print counter
end sub
14、* 杨辉三角形如图所示{}：
完成下面程序。
private sub form_click()
dim a(1 to 10, 1 to 10) as integer, i%, j%
for i = 1 to 10
a(i, 1) =1
a(i, 【1】) 1
next i
for i = 3 to 10
for j = 2 to i - 1
a(i, j) =a(i - 1, j - 1) +a(i - 1, j)
next j
next i
for i = 1 to 10
for j = 1 to 【10】
print tab(5 * j - 1) +1); a(i, j);
next j
printnext i
end sub
15、* 输出fibonacci数列1，1，2，3，5，8，…的前20项，按每行5个数显示。
程序**如下：
private sub command1_click（）
dim【fib】（20）,n%,i%
fib（1）= 1
fib（2）= 1
for i = 3 to 20
fib（i）= fib（i - 1）+ fib（i - 2）
next i
for i = 1 to 20
print fib（i）,if 【i】mod 5=0 then print
next i
end sub
16、* 输出九九乘法表的左下角。
程序**如下：
private sub command1_click()
dim se as string
print tab(35); 九九乘法表"
for 【i】=1 to 9
for j = 1 to i
se = i & j & i*j
print tab((j - 1) *9 + 1);【se】;
next j
printnext i
end sub
17、*设计一转换字体程序，如图。
单击命令按钮“换字体”，互换标签1和标签2字体。
private sub form_ load()
label1 = 年年岁岁花相似"
label2 = 岁岁年年人不同"
end sub
private sub command1_click()
dim t as variant
dim i as integer
i】= msgbox("确定换吗？",vbokcancel)
if i = 1 then
t = label1.【fontbame】
label2.【fontname】 =t
end if
end sub
18、* 设计判断一个数n是否为素数的函数过程，若n为素数则函数值为1，否则为0。
程序**如下：
public function prm(byval n%) as integer
dim f%, i%
f = 1for i = 2 to sqr(n)
if n mod i = 0 then f = 0【：】exit for
next i
prm】= f
end function
19、* 使用inputbox函数接收一批字符，将其中的数字字符打印输出。
private sub form_click()
dim s as string, st as string, i as integer
s = inputbox("请输入一个带数字的字符串")
for i = 1 to len(s)
st = mid(【s】, i,【1】)
if st >=0" and st <=9" then
print st;
end if
next i
end sub
20/使用双循环实现正三角形输出。
程序**如下：
private sub command1_click()
for 【i】= 1 to 5
print tab(25 - i )【
for j = 1 to 2 * i - 1
if i mod 2 = 0 then print "$else print "*
next j
printnext i
end sub
vb题库1总结
填空题。1.图像框的strtch属性设置为 true 时，图形将适应图像框的大小。属性设置为 false 图形框将适应图像的大小。2.文本框的locked属性用来决定文本内容能否被编辑，当其值为 false 时，可以编辑，当其值为 true 不可被编辑。3.所有控件都具有的共同属性 name 4.一...
VB题库精简
第1章 vb概述。知识点1 对象 事件基本概念。1 以下叙述中错误的是 a 事件过程是响应特定事件的一段程序 b 不同的对象可以具有相同名称的方法 c 对象的方法是执行指定操作的过程 d 对象事件的名称可以由编程者指定。2 以下关于visual basic特点的叙述中，错误的是 a visual b...
中医题库 新 1
中医题库。一 名词解释。1.同病异治 2.异病同治 3.奇恒之腑 4.气机失调 5.七情内伤 6.风痹 7.正气 8.邪气 9.盗汗 10.气虚发热 11.胃实寒证 12.失神 13.呃逆 14.齿痕舌 15寒热往来 16.八纲 17.气滞证 18.血虚证 19.心悸 20.胸痹 21.七经八脉22...