vb程序设计

二、实例

下面就用一个实例给大家详细说明屏幕保护程序的制作。

名称 属性值

Form1

BorderStyle=0－None ′取消标题栏和最大化、最小化按钮

WindowState=2－Maximized ′窗体最大化

Timer

Name=Timer1

Interval=1 ′时间间隔为1毫秒

Enabled=False

Timer

Name=Timer2

Interval=50

Enabled=False

Label

Name=lab1 Caption=电脑爱好者

Option Explicit

Dim quitflag As Boolean ′声明终止程序标志变量

Dim lleft

′声明隐藏或显示鼠标的API函数

Private Declare Function ShowCursor Lib 〃user32〃 (ByVal bShow As Long) As Long

′检测鼠标单击或移动

Private Sub Form_Click()

quitflag = True

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Static xlast, ylast

Dim xnow As Single

Dim ynow As Single

xnow = X

ynow = Y

If xlast = 0 And ylast = 0 Then

xlast = xnow

ylast = ynow

Exit Sub

End If

If xnow <> xlast Or ynow <> ylast Then

quitflag = True

End If

End Sub

′检测按键

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

quitflag = True

End Sub

Private Sub Form_Load()

Dim X As Long

lleft = 0 ′横向滚动文字的起始X坐标

If App.PrevInstance = True Then ′用APP对象的PrevInstance属性

Unload Me ′防止同时运行屏幕保护程序的两个实例

Exit Sub

End If

Select Case UCaseS(LeftS(CommandS, 2)) ′装载命令行参数

Case 〃／S〃 ′在显示器属性对话框中单击了预览按钮或屏幕保护程序被系统正常调用。

Show ′全屏显示Form1窗体

Randomize ′初始化随机数生成器

X = ShowCursor(False) ′隐藏鼠标

BackColor = vbBlack

Do

Timer2.Enabled = True ′启动Timer2 ,显示屏幕保护滚动文字

DoEvents ′转让控制权,以便检测鼠标和按键行为

Loop Until quitflag = True ′运行屏幕保护滚动文字直至有鼠标和按键行为

Timer2.Enabled = False ′终止滚动文字

Timer1.Enabled = True ′启动Timer1,退出屏幕保护程序

Case Else

Unload Me

Exit Sub

End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim X

X = ShowCursor(True) ′显示鼠标

End Sub

Private Sub Timer1_Timer()

Unload Me ′退出屏幕保护程序

End Sub

Private Sub Timer2_Timer() ′显示横向滚动文字

lleft = lleft ＋ 100

If lleft >= 11810 Then

lleft = 0

Lab1.Top = Int(Rnd ＊ 7000)

End If

Lab1.Left = lleft

Timer2.Enabled = False

End Sub

Private Sub Command1_Click()
Dim N As Integer
N = Val(InputBox("请输入一个整数"))
For i = 1 To N
S = ""
For j = 1 To i
S = S + "*"
Next j
Print S
Next i
End Sub

看不懂题目在写什么，随便谢谢 s（n）是不能这样定义数组的
Private Sub Command1_Click()
Dim N As Integer
N = Val(InputBox("请输入一个整数"))
Dim S(N) As Integer
For i = 1 To N
Randomize
S(i) = Int((10 * Rnd) + 1)
Next i
For i = 1 To N
Print S(i)
Next i
End Sub

Private Sub Command1_Click()
Randomize
Dim a(10)
For j = 1 To 10
a(j) = Int(100 * Rnd)
If a(j) Mod 5 = 0 Then k = k + 1
Print a(j)
Next j
Print
Print k / 10
End Sub

Private Sub Command1_Click()
Text1.BackColor = vbRed
Text1.FontSize = 40
Text1.FontName = "黑体"
Text1.FontBold = True
End Sub本回答被提问者采纳