在Visual Basic 6.0（VB6.0）中，有多种方法可以实现将1到100的数字相加并显示结果。以下是几种常见的方法：
方法一：使用循环
```vb
Private Sub Command1_Click（）
Dim sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i
Next i
Print sum
End Sub
```
方法二：使用数学公式
```vb
Private Sub Command1_Click（）
Dim s As Integer
s = （1 + 100） * 100 / 2
Print s
End Sub
```
方法三：使用递归
```vb
Private Sub Command1_Click（）
Dim intN As Integer
Dim lngN As Long
lngN = 0
For intN = 1 To 100
lngN = lngN + intN
Next
MsgBox lngN
End Sub
```
方法四：使用SumN函数
```vb
Private Sub Command1_Click（）
Dim N As Integer
N = InputBox（"请输入一个数字（1-100）："）
Call SumN（N）
Print "1到" & N & "的和是：" & Total
End Sub
Sub SumN（ByVal n As Integer）
Dim i As Integer
Dim Total As Integer
Total = 0
For i = 1 To n
Total = Total + i
Next i
End Sub
```
方法五：使用模拟计算器
```vb
Private Sub Command1_Click（）
Dim ReturnValue As Integer
ReturnValue = Shell（"Calc.EXE", 1）
AppActivate ReturnValue
For i = 1 To 100
If i = 100 Then
SendKeys i & "=", True
Else
SendKeys i & ",", True
End If
Next i
SendKeys "%{F4}", True
End Sub
```
方法六：使用For循环和消息框
```vb
Private Sub Form_Load（）
For i = 1 To 100
MsgBox i, vbInformation
Next i
MsgBox "Finished", vbCritical
End Sub
```
方法七：使用While循环
```vb
Private Sub Form_Load（）
Dim i As Long
i = 1
While i <= 100
MsgBox i, vbInformation
i = i + 1
Wend
End Sub
```
方法八：使用输入框和条件判断
```vb
Private Sub Command1_Click（）
Dim a As Integer
Dim he As Integer
For a = 1 To 100
Step 1
he = he + a
Next
Print he
End Sub
```
这些方法都可以实现将1到100的数字相加并显示结果。你可以根据自己的需求和编程习惯选择合适的方法。