＋设为首页 ＋添加到收藏夹
此程序的题意是这样的：
VB的界面很简单，只需要4个文本框个一个按钮，大家一想就能知道，在
Command1_Click()的事件中，定义10个integer型变量，为了说起来方便，我就先把变量定义为：
Dim a,b,c,d,e,f,g,h,i,j as integer
a=2
b=2
c=2
d=3
e=3
f=3
g=4
h=4
i=4
j=2
10个变量都已被赋值，本题就想在Command1单击的时候，利用随机数从这10个变量中随机抽出4个来，并且这4个变量的值加起来正好等于10，界面中4个文本框就是分别显示随机抽取的满足要求的4个变量的。
怎么样，此题挺有深度吧，关键是看算法了，这道题对我很重要，请大家务必帮忙，本人虽是女子，但说话算话，只要代码正确，马上给分结贴，若分数不够，一定会再给的，如果谁作出来了，也可以从QQ上发给我，我的QQ是：41399125。麻烦大家啦，谢谢！
Dim Num(0 To 9) As Integer
Private Sub Command1_Click()
Randomize
Dim sum As Integer
Dim i As Integer
sum = 0
Do While Not sum = 10
sum = 0
i = Int(9 * Rnd)
sum = sum + Num(i)
Text1 = Num(i)
i = Int(9 * Rnd)
sum = sum + Num(i)
Text2 = Num(i)
i = Int(9 * Rnd)
sum = sum + Num(i)
Text3 = Num(i)
i = Int(9 * Rnd)
sum = sum + Num(i)
Text4 = Num(i)
Loop
End Sub
Private Sub Form_Load()
Num(0) = 2
Num(1) = 2
Num(2) = 2
Num(3) = 3
Num(4) = 3
Num(5) = 3
Num(6) = 4
Num(7) = 4
Num(8) = 4
Num(9) = 2
End Sub
给分吧
