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
选择工具箱里计时器控件并双击,在frame1上显现出来该控件,该控件的作用很大,起到计时作用,同时需要注意的是在程序运行时控件是不显示出来的。首先启动vb6.0,执行文件-新建命令,d出新建工程对话框,在该对话框中选择标准的exe后点击打开按钮,进入vb程序主界面。
在主界面中,按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽,调节窗体的大小,直至自己满意为止。
楼主您好!
代码如下:
Option ExplicitPrivate 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
Me.Text8.Text = "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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)