vb试题！！急需！！公元6世纪，中国的《张丘建算经》有一道著名的百鸡问题：“今有鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一，凡百钱买百鸡，问鸡翁、鸡母、鸡雏各几何。”

Question

vb试题！！急需！！
公元6世纪，中国的《张丘建算经》有一道著名的百鸡问题：“今有鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一，凡百钱买百鸡，问鸡翁、鸡母、鸡雏各几何。”

Answer 1

1、设计一个应用程序，在运行中当用鼠标单击窗体form1上的命令按钮（显示）时，在窗体form2上显示出“欢迎您来到VB世界! ”
sub command1_click()
form2.show
form2.print "欢迎您来到VB世界! "
end sub
2、设计一个应用程序，由用户输入长方形的边长数据，计算并输出长方形的面积
text1 接收收入长 text2 接收输入宽 text3 输出面积 command1 执行计算
sub command1_click() '计算
dim s as single
s=csng(text1.text)* csng(text2.text)
text3.text=s
end sub
3、设计一个窗体，要求如下：
● 窗体没有最大化按钮；
● 窗体标题为“窗体示例1”；
● 设置窗体的前景色为紫色，背景色为蓝色；
● 单击窗体时，在窗体上输出文字为“当前字体：黑体，当前字号：20”，其中字体和大小为窗体的当前输出值；
● 双击窗体时，显示信息被清除。
form1
设置属性: caption="窗体示例1" backcolor="&H8000000D&" forecolor="&H00C000C0&"

代码:
sub form_click()
FontSize = 20
FontName = "黑体"
print "当前字体：黑体，当前字号：20"
end sub
Private Sub Form_DblClick()
Cls
End Sub
4、在窗体上画两个命令按钮和一个标签，把两个命令按钮的标题分别设置为“缩小”和“放大”；把标签的标题设置为“vb程序设计”。当程序运行后，如果单击第一个命令按钮，则可使标签中的字缩小2倍；如果单击第二个命令按钮，则可使标签中的字扩大1.5倍。
设置属性 command1 的caption="缩小"
command2 的caption="放大"
label1 的caption ="vb程序设计" 及 autosize=true
代码:
sub command1_click()
label1.fontsize=label1.fontsize/2
end sub
sub command2_click()
label1.fontsize=label1.fontsize*1.5
end sub
5、编程计算30+54的和，并在窗体上输出。
sub command1_click()
print "30+54=" & (30+54)
end sub
6、设a=5,b=2.5,c=7.8,编程计算 y=∏ab/(a+b*c)
sub command1_click()
const pi as single=3.1415927
dim a as single,b as single,c as single,y as single
a=5
b=2.5
c=7.8
y=pi*a*b/(a+b*c)
print y
end sub
7、编程计算半径为5的圆面积及周长
sub command1_click()
const pi as single=3.1415927
dim c as single,s as single,r as single
r=5
c=pi*r*2
s=Pi*r*r
print "r=" & r & "; C=" & c & "; S=" & s
end sub
8、利用vb实现本息计算器的作用，通过输入本金，期限和利率，计算并分别显示到期利息及本息和。
text1 本金输入 text2 期限输入 text3 利率输入(输入小数,如2.25%应输入0.00225) command1 执行计算 text4 到期利息及本金和
sub command1_click()
'到期所得=利息+本金=本金*时间*利率+本金
text4.text=csng(text1.text)*csng(text2.text)*csng(text3.text)+text1.text
end sub
9、计算1到100之间的偶数累加之和。
sub command1_click()
dim add as integer
for i=1 to 100
if i mod 2=0 then
add=add+i
end if
next
print add
end sub
10、点击确定改变文本框中的字体、字型和字号，设计界面和编写程序代码。
CommonDialog1
command1 的 caption ="确定"
text1
代码:
Sub command1_click()
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
End Sub
这样可以么？