Dim r As Single, y As Integer
r = 13
Do While r <= 20
r = r * 1.01
y = y + 1
Loop
Print "我国现有人口13亿，年增长率为1%，" & y & "年后增加到20亿"
End Sub
MsgBox Left(Log(20 / 13) / Log(1.01), 5) & "年后将达我国人口将达到20亿", , ""
End
End Sub
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...
用VB制作小程序
Option ExplicitPrivate Sub Form_Load() Randomize Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000) '生成100000-999999之间的随机数 Timer1.Interval = 1000 '一秒一次 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Static n As Integer n...
vb6.0怎么制作一个抽奖小程序? vb6.0抽奖器的制作方法
1、首先启动vb6.0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。2、在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。3、选择窗体，在其右边的属性中找到boderstyle属性，设置属性值为none，...
vb有意思的小程序 ?
CreateRoundRectRgn函数用于创建一个圆角矩形区域；CreateEllipticRgn用于创建一个椭圆区域；CombineRgn函数用于将两个区域组合为一个新区域；SetWindowRgn函数允许您改变窗口的区域。使用其他的函数还可以做出其他更奇怪的窗体。源代码如下：OptionExplicit 'API函数声明 PrivateDeclareFunctionCreateRectRgnLib"gdi32"(ByVa...
求助:求高人做个VB小程序,最简单的那种 百分悬赏
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = vbGreen End Sub Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = vbWhite End Sub Private Sub Timer1_...
我要用VB6.0做一个小程序,请大家指点指点,指点指点,谢谢,谢谢了
1、用DirectSoundCapture对象来建立DirectSoundCaptureBuffer数据缓冲区对象，当数据缓冲区中有数据时（此时是两个声道），利用Capture Buffer Notification来激活用户来执行对数据的处理过程。2、新建两个线程，并在其中建立两个支持DirectSound3D的DirectSoundSecondaryBuffer数据缓冲区对象，将DirectSoundCapture...
VB编写小程序
代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))b = InputBox("请输入第二个数")c = InputBox("请输入第三个数")d = InputBox("请输入第四个数")sum = a + b + c + d aver = sum \/ 4 Print ...
请求VB高手帮忙,编个小程序,谢谢
如图：Private Sub Command1_Click()Dim C, D As Double C = Val(Text1.Text) \\ Val(Combo1.Text)D = Val(Text1.Text) \/ Val(Combo1.Text) - Val(Text1.Text) \\ Val(Combo1.Text)If D <> 0 Then C = C + 1 Else D = C End If Text2.Text = C If D < 1 And D <...
一个VB小程序,请高手帮忙查错修改
一个VB小程序，需要高手帮忙检查错误并进行修改。代码如下：vb Dim x as long, y As long Private Sub Command1_Click()Text3.Text = x + y End Sub Private Sub Command2_Click()text1.text=""text2.text=""text3.text=""End Sub Private Sub Command3_Click()End End Sub Private Sub...
求恶搞小程序,编程代码,最好是VB的
WSHshellA.run "cmd.exe \/c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)msgbox chr(13) +...
