用vb编写一个小程序

楼主您好！

代码如下：

Private Sub Command1_Click()

    Dim n(7) As Double

    Dim k(3) As Double

    k(3) = 1

    Dim j As Integer

    For j = 1 To 7

        n(j) = Val(Controls("Text" & CStr(j))Text)

    Next j

    For j = 1 To 7

        k(1) = k(1) + n(j)

        k(2) = k(2) - n(j)

        k(3) = k(3)  n(j)

    Next j

    MeText8Text = "7个数的和为：" & k(1) & vbCrLf & _

                    "7个数的差为：" & k(2) & vbCrLf & _

                    "7个数的乘积为：" & k(3)

End Sub

Private Sub Command2_Click()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i))Text = ""

    Next i

End Sub

Private Sub Form_Load()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i))Text = ""

    Next i

End Sub

Dim sec, min, h

Private Sub Command1_Click()

Timer1Enabled = True

h = Text1Text

min = Text2Text

sec = Text3Text

Timer2Enabled = False

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Form1BackColor = &HFFFF00

Timer1Enabled = False

Timer1Interval = 1000

Timer2Enabled = True

Timer2Interval = 1000

Text1Text = 2

Text2Text = "00"

Text3Text = "00"

Command2Caption = "退出"

Command1Caption = "开始倒计时"

End Sub

Private Sub Timer1_Timer()

If sec > 0 Then

sec = sec - 1

Else:

If (min > 0 Or h > 0) Then

sec = 59

End If

If min > 0 Then

min = min - 1

Else:

If h > 0 Then

min = 59

End If

If h > 0 Then

h = h - 1

Else: Timer1Enabled = False

CreateObject("SAPISpVoice")Speak "GAME OVER!"

Form1BackColor = &HFF

End If

End If

End If

Text1Text = h

Text2Text = min

Text3Text = sec

Label6Caption = Now

End Sub

Private Sub Timer2_Timer()

Label6Caption = Now

End Sub

Dim a, b

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

TextText = "Visual Basic程序设计"

Command1Caption = "结束"

TextLeft = 0: TextTop = 0: TextWidth = 05 Form1Width

TextHeight = 05 Form1Height

a = Form1Width - Command1Left

b = Form1Height - Command1Top

End Sub

Private Sub Form_Resize()

TextLeft = 0: TextTop = 0: TextWidth = 05 Form1Width

TextHeight = 05 Form1Height

Command1Left = Form1Width - a

Command1Top = Form1Height - b

End Sub

注意，各变量名，控件名保持一致,你题目中的文本框名称为text

这个是不是和水仙花数一样哟,假设a是一位三位数

int a,x,y,z,s=0;

x=a/100;

y=a/10%10;

z=a%10;

if(xxx+yyy+zzz==s)

printf("%d是阿姆斯壮数",a);

参考资料：

这个是不是和水仙花数一样哟,假设a是一位三位数

int a,x,y,z,s=0;

x=a/100;

y=a/10%10;

z=a%10;

if(xxx+yyy+zzz==s)

printf("%d是阿姆斯壮数",a);

参考资料：

这个是不是和水仙花数一样哟,假设a是一位三位数

int a,x,y,z,s=0;

x=a/100;

y=a/10%10;

z=a%10;

if(xxx+yyy+zzz==s)

printf("%d是阿姆斯壮数",a);

参考资料：

这个是不是和水仙花数一样哟,假设a是一位三位数

int a,x,y,z,s=0;

x=a/100;

y=a/10%10;

z=a%10;

if(xxx+yyy+zzz==s)

printf("%d是阿姆斯壮数",a);

参考资料：

VB 门槛低，易学，易上手，是进一步发展，学习其他语言如C++、net的基础。通过简单的学习，可以很快获得成就感，奠定学习信心。

如果您是初学，学习中多看看VB的帮助，语法、函数有限，明确，易记。大致渐进步骤：

1、结构语句，判断分支等

2、循环语句，注意循环终止，防止死循环

3、块，语句集合。包括过程块、函数块

4、对象。工程中善用 me，符可引导对象中的东东，

5、类。--对象，组建自己的类（过程、函数、对象等的集合）

6、发布项目

大致如此吧。

有点跑题，学习VB前，至少学会安装，VB6升级到SP6了，下载较全的VB6,升级到sp6,下载 MSDN，在线时到Msdn网站查也可以，但 2 张盘的Msdn安装不占用太多资源，还是安装好。

先要在 Visual Basic 编辑器中添加对“规划求解”的引用

1、先在“Excel 选项”对话框中启用规划求解加载项。。。。。

2、Visual Basic 编辑器中，单击“工具”菜单上的“引用”，然后选择“可使用的引用”下面的“规划求解”。英文版可能显示是“Solver”。。。。。。。

Private Sub Form_Activate()

'1年期225%，2年期243%，3年期为270%，5年期为288%（不记复利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 00225, x2 As Double = 00243, x3 As Double = 0027, x5 As Double = 00288

Dim x As Double

x = Val(InputBox(""))

Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)

Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)

Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a c b

End Function

Private Sub Form_Load()

AutoRedraw = True

End Sub

新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。

新建一个命令按钮Command1,添加以下代码：

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 100

If (i Mod 5 = 0) And (i Mod 3 <> 0) Then Text1Text = Text1Text & vbCrLf & i

Next

End Sub

以上就是关于用vb编写一个小程序全部的内容，包括:用vb编写一个小程序、如何使用VB编写一个简单的小程序、用VB编写一个小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！