Private Sub Update()
Dim a(10000000) As Boolean '定义布尔型数组a(10000000)
Dim n As Long, m As Long
For n = 2 To VScroll1 'vscroll1 滚动条位置
a(n) = True '将a(2 To VScroll1)的值全部设为 True
Next
For n = 2 To VScroll1
For m = n + 1 To VScroll1
If m Mod n = 0 Then a(m) = False '将a(3 To Vscroll1)中的偶数元素的变量为设为 False
Next
Next
i = Combo1.ListIndex + 1 '赋值i为Combo1列表框的对象数量+1
For n = 2 To VScroll1
If a(n) Then
'当a(n)为真时,即n>2并且n为奇数或者n=2时，在图片框中打印下列计算的结果，颜色为红色
Picture1.Line (i * n * 100, n * 100)-(i * n * 100 + i * 100, (n + i) * 100), vbRed, BF
Else
'当a(n)为假时,即n>2并且n为偶数时，在图片框中打印下列计算的结果，颜色为红色
Picture1.Line (i * n * 100, n * 100)-(i * n * 100 + i * 100, (n + i) * 100), vbGreen, BF
End If
Next
End Sub
Private Sub Form_Load()
Form1.Height = 10000
Form1.Width = 10000
Combo1.ListIndex = 0
End Sub
Private Sub VScroll1_Scroll()
Label1.Caption = Val(VScroll1.Value) '在Label1中显示VScroll1滚动条的值
Picture1.Cls '图片框清空
Call Update
End Sub
Private Sub VScroll1_Change()
Label1.Caption = Val(VScroll1.Value)
Picture1.Cls
Call Update
End Sub
Private Sub Form_Resize() ‘窗体大小发生变化时
If Form1.Height > 10000 Then
Picture1.Height = Form1.Height / 2 + 1000 ’图片框大小也随着发生变化
Else
Picture1.Height = 6000
End If
If Form1.Width > 10000 Then
Picture1.Width = Form1.Width / 2 + 1000
Else
Picture1.Width = 6000
End If
HScroll1.Width = Picture1.Width ‘设置水平滚动条的宽度
HScroll1.Top = Picture1.Height ’设置水平滚动条上部的位置
VScroll1.Height = Picture1.Height ‘设置垂直滚动条的高度
VScroll1.Left = Picture1.Width ’设置垂直滚动条左边的位置
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024