VB编程共12题,高手请进,做完后有赏分

来源：百度知道 编辑：UC知道 时间：2024/05/21 23:37:12
1）在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为"复制"。要求程序运行后，在列表框中自动建立四个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本框中（如图所示）。
2.在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1，标题为"计算" 的命令按钮（如图所示）。程序运行后，单击"计算"命令按钮， 通过在 对话框输入整数12，放入整型变量a中，然后计算a!，（提示：运算结果应放入Long型变量中），在文本框中显示结果。
3.程序的功能是，程序运行后，单击命令按钮，显示输入对话框，在对话框中输入某个月份的数值（1～12）， 然后单击"确定"按钮，即可在文本框中输出该月份所在的季节。例如输入5，将输出"5月份是夏季"，如图所示。 4.在窗体上有一个名称为Text1的文本框，其MultiLine属性为True。程序运行后，如果单击窗体，则用随机数函数产生16个0到99的整数，并按4行4列的矩阵形式在文本框中显示出来；然后在文本框中输出该矩阵对角线上的数。程序运行情况如图所示。 5.在窗体上有一个文本框，其名称为Text1；另有一个命令按钮，其名称为Command1，标题为"计算/输出"。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入n的值，然后单击"确定"按钮，即可计算1+(1+2)+(1+2+3)+...+(1+2+3+...+n)的值，并把结果在文本框中显示出来，如图所示。
共4题,对了每题赏20分.发到邮箱上.
我的邮箱:Lixuehuayn668@163.com

唉,帮帮你吧,控件自己画.
1）
private sub form_load()
list1.additem "Item1"
list1.additem "Item2"
list1.additem "Item3"
list1.additem "Item4"
end sub
private C1_click()
text1.text1=text1.text+list1.text+chr(13)+chr(10)
end sub
2)
private Cmd1_click()
dim a as integer,s as long,i as integer
a=inputbox("请输入:")
s=1
for i=1 to a
s=s*i
next i
text1.text=s
end sub
3)
private command1_click()
dim a as integer
a=inputbox("请输入一个月份:")
select case a
case 1,2,3:text1.text=str(a)+"月份是春季"
case 4,5,6:text1.text=str(a)+"月份是夏季"
case 7,8,9:text1.text=str(a)+"月份是秋季"
case 10,11,12:text1.text=str(a)+"月份是冬季"
case else:text1.text="输入月份无效!"
end select
end sub
4)
private sub form_click()
dim i as integer,a(1 to 16) as integer,j as integer<