第一题。
1. 制作如图所示窗体界面。（用真实的姓名、班级及学号）
2. 使时间每隔1秒刷新一次。
3. 单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大值。
4. 在列表框中输入
private sub command1_click()
dim a(1 to 5) as integer
for i = 1 to 5
a(i) =inputbox("please input a number")
next i
mmax = a(1)
for i = 1 to 5
if a(i) >mmax then
mmax = a(i)
end if
next i
msgbox mmax
end sub
private sub timer1_timer()
= time
end sub
第二题。1. 两个文本框里输入两个数字从而确定一个范围。
2. 单击“计算”按钮求出这个范围中能被3或5整除的数的平方和，结果显示在label3中。
3. label3的背景色每隔1.5秒蓝红交替。
private sub command1_click()
dim a as integer
dim b as integer
a = b =
s = 0for i = a to b
if a mod 3 = 0 or b mod 5 = 0 then
= &i &
s = s + i * i
end if
next i
= send sub
private sub timer1_timer()
if = vbred then
= vbblue
else= vbred
end if
end sub
第三题。1、 单击按钮，在文本框中显示1到终值的所有整数的平方和。
2、 单击生成列表按钮，在列表框中显示1到终值之间的所有整数。
private sub command1_click()
dim a as integer
a = s = o
for i = 1 to a
s = s + i * i
next i
= send sub
private sub command2_click()
dim a as integer
a = for i = 1 to a
inext i
end sub
第四题。1、 “大家好”的背景颜色红蓝黄交替，单击“停止”按钮时停止颜色变化。
2、 在文本框中写入任意数字，单击“生成列表”按钮，将1到文本框中输入数字之间所有能被3整除得数在列表框中显示。
private sub command1_click()
= true
end sub
private sub command2_click()
= false
end sub
private sub command3_click()
dim a as integer
a = for i = 1 to a
if i mod 3 = 0 then
iend if
next i
end sub
private sub timer1_timer()
if = vbred then
= vbblue
elseif = vbblue then
= vbyellow
else: =vbred
end if
end sub
第五题。1、 “大家好”电子滚动平当单击按钮“开始”时从左向右滚动，当滚动到屏幕最右端的时候，从新回到最左端开始滚动；单击“停止”按钮时停止滚动。
2、 在文本框中写入任意内容，单击“添加”按钮可以将文本框中的内容加入到列表框中。
private sub command1_click()
= true
end sub
private sub command2_click()
= false
end sub
private sub command3_click()
end sub
private sub timer1_timer()
if > then
end if
end sub
第六题。1、 标签中写入“大家好”，每秒钟“大家好”和“哈哈”交替出现（即，第一秒出现“大家好”。第二秒出现“哈哈”依次交替）
2、 提示：使用计时器控件完成交替出现。
3、 两个文本框中任意输入数字，当单击“显示”按钮，在标签2中显示数值大的数，如果输入的数值相同，在标签2中显示“数值相等”。
private sub command1_click()
if > then
elseif = then
= "数值相等"else
end if
end if
end sub
private sub timer1_timer()
if = 大家好" then
= "哈哈"
else= "大家好"
2019秋VB01上机答案
2010年 秋 上机 visual basic vb01 答案。一 改错。题目 本程序的功能是，找出10 100之间所有只有奇数真因子的整数。所谓数据n的真因子是指除过1和n之外的可以整除n的因子。option explicit option base 1 private sub cmd1 clic...
2019秋VB02上机答案
2008年 秋 上机 visual basic vb02 答案。一 改错。题目 本程序的功能是查找80 150范围内的特殊十进制数据，其特点是该十进制数对应的8进制数为回文数 指从左向右读与从右向左读一样的数 例如十进制数据105，其对应八进制数为151,属于回文数。所以105就是符合要求的数。op...
《VB》上机作业
上机作业。第3章结构化程序设计与数组。一 分支结构 1 旧教材 p82 新教材 p87 程序设计题 1。2 旧教材 p83 新教材 p87 程序设计题 2。3 输入一个字符，判断该字符是否为字母 数字 空格还是其它符号。请分别用块if结构和情况选择语句来实现。二 循环结构 一 1 旧教材 p83 新...