(完整版)VB练习题(上机)含答案

第一部分

1在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值”)。程序运行后，单击命令

按钮完成以下工作：

①随机产生20个0到1000的整数，将其放入一个一维数组中

②求出所有元素的平均值，并显示在窗体上(如下图所示)

Private Sub Cmd1_Click()

Dim a%(19), i%, sum!, aver!

Ran domize

For i = 0 To 19

a(i) = Int(Rnd * 1001)

sum = sum + a(i)

Next i

aver = sum / 20

Print aver

End Sub

2请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为”转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转

换为大写，把大写字母转换为小写，其他字符不变。

Private Sub C1_Click()

Dim ch As Stri ng, ch1 As Stri ng, i% ch = Text1

For i = 1 To Len( ch)

If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i,

1))

Else

chi = chi + UCase(Mid(ch, i, 1))

End If

Next i

Textl = Textl + vbCrLf

Textl = Text1 + ch1

End Sub

3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值”)。程序运行后，单击命令按钮完成以下工作：

①随机产生30个0〜1000的整数，将其放入一个一维数组中

②求出其中的最大值，并显示在窗体上。

Private Sub MyCmd1_Click()

Dim a%(29), i%, max%

Ran domize

For i = 0 To 29

a(i) = Int(Rnd * 1001)

Next i

max = a(0)

For i = 1 To 29

If a(i) > max The n max = a(i)

Next i

Print max

End Sub

4请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，

单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

Private Sub Comma nd1_Click()

If Optio nl.Value = True The n

Textl.FontName ="宋体”

Else

Text1.FontName ="隶书”

End If

If Check1.Value = 1 The n

Text1.Fo ntUn derli ne = True

Else

Text1.Fo ntUn derli ne = False

End If

If Check2.Value = 1 The n

Text1.F on tItalic = True

Else

Text1.Fo ntItalic = False

End If

End Sub

5在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为”对齐方式"、”字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为左对

齐”、”居中”、"右对齐”，名称分别为Opt1、Opt2、Opt3 ;在Fm2框架中添加两个单选按钮，标题分

别为”宋体"、”黑体”，名称分别为Opt4、Opt5。

要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以

对文本框中的内容实现相应的操作(如图所示)。

Private Sub Opt1_Click()

If Opt1 Then Textl.Alignment = 0

End Sub

Private Sub Opt2_Click()

If Opt2 Then Text1.Alignment = 2

End Sub

Private Sub Opt3_Click()

If Opt3 Then Text1.Alignment = 1

End Sub

Private Sub Opt4_Click()

If Opt4 Then Text1.FontName ="宋体"

End Sub

Private Sub Opt5_Click()

If Opt5 Then Text1.FontName ="黑体"

End Sub

6请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数, 然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。

Dim n%

Private Sub Form_Load()

End Sub

Private Sub Optio n1_Click()

Dim i%

n = Val(Text1)

m = 1

For i = 1 To n

m = m * i

Next i

Text2 = m

End Sub

Private Sub Optio n2_Click()

Dim i%

m = 1

For i = 1 To n + 2

m = m * i

Next i

Text2 = m

End Sub