###### VB实验报告

Private Sub Command1_Click()
Dim x As Integer

Dim a, b, c, d

x = 1234

a = x \ 1000 Mod 10

b = x \ 100 Mod 10

c = x \ 10 Mod 10

d = x Mod 10

Print a, b, c, d

For n = 100 To 999
a = n \ 100
b = (n - a * 100) \ 10
c = n Mod 10
If n = (a ^ 3 + b ^ 3 + c ^ 3) Then Print n
Next

End Sub

2、大小写转化

Dim x as String

Private Sub Form_Load()

x=Text1.Text

End Sub

Private Sub Command1_Click()

Text1.Text=Ucase(x)

End Sub

Private Sub Command2_Click()

Text1.Text=Lcase(x)

End Sub

Private Sub Command3_Click()

Text1.Text=x

End Sub

3、随机数

① 在通用声明段中，声明一个模块级的数组，代码如下：

Dim a(1 To 4,1 To 4)As Integer

②在“代码”窗口中选择Form_Load事件，编写事件过程代码如下：

Private Sub Form_Load()

Dim p As String

Randomise

P=＂＂

For i=1 To 10

Do

x=Int(Rnd*90)+10

yes=0

For j=1 To i-1

Ifx=a(j)Then yes=1:Exit For ＇防止出现重复的数

Next

Loop While yes=1

a(i)=x

p=p & Str(a(i))& ＂,＂

Next

Label1.Caption=Ltrim(Left(p,Len(p)-1))

Label2.Caption=＂＂

End Sub

③在“代码”窗口中选择Command1控件的Click事件，编写事件过程代码如下：

Private Sub Command1_Click()

Form_Load

End Sub

④在“代码”窗口中选择Command2控件的Click事件，编写事件过程代码如下：

Private Sub Command2_Click()

p=＂＂

For i=1 To 9

For j=1 To 10-i

Ifa(j)<a(j+1)Then  ＇“<”改为“>”,则为升序

t=a(j):a(j)=a(j+1):a(j+1)=t

End If

Next

Next

For i=1 To 10

p=p &Str(a(i))&＂,＂

Next

Label2.Caption=Ltrim(Left(p,Len(p)-1))＇去掉字符串前空格及最后一个“，”

End Sub

4、写Blog,上机实现能动的图形

Private Sub Command1_Click ()

Show

Me Scale (0, 0)-(18, 8)

Me. Auto redraw =True

Me. Draw Mode =2

Circle (3, 4), 3, VB Red

Me. Auto Redraw =false

Line (7, 1) –step (4, 6) .VB Green .B

Line (13, 7) –step (4, 0).VB Blue

Line step (0, 0)  –step (-2, -6). VB Blue

Line step (0, 0)  –step (-2, 6). VB Blue

End sub

5、让程序随机不定时间生成随机种类的图形，并且要生成多个图形

PrivateSub Form_Load()

Command1.Caption = "随机画圆"

Command2.Caption = "随机文字"

Command3.Caption = "立体图形"

Command4.Caption = "随机图像"

Command5.Caption = "退出"

Form1.ScaleMode = 1

Picture1.ScaleMode = 1

Picture2.Picture = LoadPicture

EndSub  ＇随机画圆动画

PrivateSub Command1_Click()

Dim XPos, YPos

Picture1.Cls

Do nn = Int(100 * Rnd)

If nn > 0 Then

Picture1.DrawWidth = nn

End If

XPos = Rnd * Picture1.ScaleWidth

YPos = Rnd * Picture1.ScaleHeight

Picture1.PSet (XPos, YPos), RGB (Rnd * 256, Rnd * 256, Rnd *256)

DoEvents

Loop

EndSub

＇随机文字动画

PrivateSub Command2_Click()

Picture1.Cls

Do nn = Int(45 * Rnd)

If nn > 0 Then

Picture1.FontSize = nn

End If

Picture1.CurrentX = Rnd * Picture1.ScaleWidth - 1000

Picture1.CurrentY =Rnd * Picture1.ScaleHeight

Picture1.ForeColor =RGB(Rnd * 256, Rnd * 256, Rnd * 256)

Picture1.Print "随机 OK!"

n = n + 1

If n > 50 Then n = 0

Picture1.BackColor = QBColor(Rnd * 15)

End If

DoEvents

Loop

EndSub

＇立体随机动画

PrivateSub Command3_Click()

Dim m, n

Picture1.DrawWidth = 1

Picture1.BackColor = RGB(210, 150, 0)

Picture1.Cls

Do

m = Rnd * Picture1.ScaleWidth

n = Rnd * Picture1.ScaleHeight - 500

For i = 0 To Rnd * 800

Picture1.Line(m,n+2.5*i)-(m+i/2,n+2*i),RGB(180,180,180)

Picture1.Line(m,n+2.5*i)-(m-i/2,n+2*i),RGB(80,80,80)

Next i

DoEvents

Loop

EndSub

＇随机图像显示

PrivateSub Command4_Click()

Do

xx = Rnd * Picture1.Width

yy = Rnd * Picture1.Height

Picture1.PaintPicture Picture2.

Picture, xx, yy,

Picture2.Width, Picture2.Height

DoEvents

Loop

EndSub

＇退出按钮

PrivateSub Command5_Click()

End

EndSub

2、解决方法：上网查（百度、csdn网站、腾讯…）；问同学；和同学一起交流、讨论。

#### vb记事本完整的实验报告

2010年06月14日 8KB 下载

#### VB程序设计实验报告

2012-03-28 07:07:23

#### vb.net上机实验报告8个（含源程序、代码和报告）

2012年07月18日 9.88MB 下载

#### vb学生成绩查询统计系统实验报告

2011年03月15日 586KB 下载

#### vb课程设计：工资管理系统

2010年05月31日 90KB 下载

#### 用VB编写的基于TCP协议聊天程序（含源码及实验报告）

2011年09月02日 391KB 下载

#### vb课程设计—杨辉三角形

2013年06月03日 2KB 下载

#### 计算机VB 实验报告

2009年01月05日 201KB 下载

#### Visual Basic程序设计教程实验及实验报告答案（第3版）【全部】

2010年12月13日 505KB 下载

#### 第三次实验报告（杨辉三角）

2017-04-10 21:11:31

VB实验报告