UC知道求教VB高手，99命
来源：百度知道 编辑：UC知道 时间：2024/05/22 00:25:48
题一。编程求1+2+3+......+100的值。
题二，编写程序，打印输出如下图形。
Form1
*
***
*****
*******
*********
***********
题三，用输入对话框输入X，根据下式计算对应的Y，并在窗体输出Y的值。
X开根号+SinX X>10
Y{ 0 X=10
2乘以X的三次方+6 X〈10
题二，编写程序，打印输出如下图形。
Form1
*
***
*****
*******
*********
***********
题三，用输入对话框输入X，根据下式计算对应的Y，并在窗体输出Y的值。
X开根号+SinX X>10
Y{ 0 X=10
2乘以X的三次方+6 X〈10
1：vb6编译通过：
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i
Next i
Print sum
End Sub
2：可以这样的解决：
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 13 Step 2
Print String(i, "*")
Next i
End Sub
3：第三题的题目可不可以写清楚！！！！！！
Private Sub Form_Paint()
Dim sum As Integer
Dim i As Integer
For i = 1 To 100
sum = sum + i
Next i
Print sum
Dim j As Integer
For i = 1 To 20
If i Mod 2 <> 0 Then
For j = 1 To i
Print "*";
Next j
Print
End If
Next i
End Sub
这是第一题和第二题的答案,第三题你的算式我没看清楚
题1
dim sum as integer
For i = 1 To 100
sum = sum + i
Next i
Print sum
题2
for i=1 to 6
for j=1 to