Question

vb 数据库问题

Dim renkou As Double
Dim n As Integer
renkou = 1300000000
n = 0
Do While renkou < 2600000000
n = n + 1
renkou = renkou * 1.08
Loop
上面的代码 应该用在那个事件打 比如按钮什么的 应该要添加什么控件 打进那个控件去 效果如何显示 .. 应该还需要添加什么代码吗 有没少了...

Answer 1

知道你刚学VB，你问的那些vbcrlf之类的查查vb帮助就知道。
这样简单：
新建一个窗口，放个按钮上去，双击按钮进入按钮的代码编辑，
在Private Sub Command1_Click()和End Sub之间加入以下代码（基本上就是你原来的代码，但最后一句会弹出个窗口告诉你算出来的年数）：
Dim renkou As Double
Dim n As Integer
renkou = 1300000000
n = 0
Do While renkou < 2600000000
n = n + 1
renkou = renkou * 1.08
Loop
msgbox n & "年后人口超过26亿"

Answer 2

新建窗口，建立两个文本框，一个按钮
Private Sub Command1_Click()
Dim renkou As Double
Dim n As Integer
renkou = 1300000000
n = 0

Do While renkou < 2600000000#
n = n + 1: Text1 = n
renkou = renkou * 1.08: Text2 = renkou

DoEvents
Loop

End Sub

实际上这个代码不需要界面，直接写在 main 里也行，使用 msgbox 输出结果

追问

打进按钮去还是文本框 不大理解 如何显示他的效果

追答

内容自然显示到文本框了啊

Answer 3

这几行代码应该是这个意思：
设定现在的人口总数为13亿（ renkou = 1300000000 ），以每年8%的比例增长，预计几年会增长至现在的两倍（26亿）？

可以按如下操作方法演示：
打开VB，新建一个工程（VB打开后默认会自动新建一个工程） ----- 拖一个按钮到窗体上 ----- 双击按钮，打开代码窗口，在Private Sub Command1_Click() 和 End Sub 之间的位置粘贴如下代码：
'--------------------------------------------------------------
Dim n As Integer
renkou = 1300000000
n = 0
Do While renkou < 2600000000#
n = n + 1
renkou = renkou * 1.08
Loop
MsgBox "renkou is " & renkou & vbCrLf & "n is " & n
'---------------------------------------------------------
按快捷键F5运行程序，点击Command1按钮就会弹出运算结果的消息框。

Enjoy your VB !

追问

is 是什么意思 &又是什么意思 vbcrlf 又是什么意思 呵呵解释下3个