设计一个简单的VB程序

private

sub

command1_click()

label1.caption

=

"年龄"

text1.text

=

"你的年龄"

end

sub

private

sub

form_load()

me.show

command1.caption

=

"修改"

form1.caption

=

"你的学号+姓名"

label1.caption

=

"姓名"

text1.text

=

"你的姓名

"

end

sub

Private Sub Command1_Click()

  Me.Cls

  Dim N As Integer, i As Integer

  N = InputBox("n=", , 9)

  For i = 1 To 2 * N - 1

    If i <= N Then

      Print Space(N - i) + String(2 * i - 1, CStr(i))

    Else

      Print Space(N - (2 * N - i)) + String(2 * (2 * N - i) - 1, CStr(2 * N - i))

    End If

  Next i

End Sub

vb编写hello world 程序可以参考下面的代码：

Private Sub Form_Load()

MsgBox ("Hello World")

End Sub

在窗体上单击即可运行程序。

扩展资料：

相关参考函数：

MsgBox 常数 与MsgBox 函数一起使用的常数列表。

MsgBox 函数： 在对话框中显示消息，等待用户单击按钮，并返回表示用户所击按钮的数值。

乘法运算符 (*) ：两数相乘。

取反运算符 (-)： 表示数值表达式的相反数。

Not 运算符： 执行表达式的逻辑“非”运算。

Month 函数： 返回月份，取值范围为 1 至 12。

参考资料来源：百度百科-Visual Basic

---