vb程序运行不出来
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As Single = 100, t As Single = 50
Dim i As Integer
i = 1
Do
t = (1 / 2) ^ i * 100
s = s + 2 * t
i = i + 1
Loop
TextBox2.Text = Str(t)
TextBox3.Text = Str(s)
End Sub
答：产生一个四位数,从千位到个位依次是1,2,3,4 如果把括号里的四个数换了,比如5,8,7,9 那产生的四位数就是5879(五千八百七十九) 先定义一个集合a,...详情>>
