Question

VB 6.0 教我编一个小程序

VB 6.0
谁 教我编一个小程序
我新手

Answer 1

File--New--Standard.exe--点击左侧的Commandbutton控件
然后再Form1中用鼠标画出一个按钮
然后双击该按钮：写这段代码a = MsgBox("Hello,welcome to VB world!")
然后保存，运行

From1代码：
Private Sub Command1_Click()

End Sub

Private Sub Button_Click()
a = MsgBox("Hello,welcome to VB world!")
End Sub

Private Sub Form_Load()

End Sub

Answer 2

Option Explicit
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" _
(ByVal hOwner As Long, _
ByVal Unknown1 As Long, _
ByVal Unknown2 As Long, _
ByVal szTitle As String, _
ByVal szPrompt As String, _
ByVal uFlags As Long) As Long

Private Sub Form_click()
SHRunDialog hWnd, 0, 0, vbNullString, vbNullString, -0
End Sub

Answer 3

九九乘法:

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer

For i = 1 To 9
For j = 1 To i
Me.ForeColor = vbGreen
Print Tab((j - 1) * 10); CStr(j) & "*" & CStr(i) & "=";
Me.ForeColor = vbBlue
Print CStr(i * j);
Next j
Print
Next i
Print Sum
End Sub

Answer 4

For a = 1 To 9
For b = 1 To a
Print a; "*"; b; "="; a * b;
Next b
Print
Next a