VB练习题（上机）含答案

第一部分

1 在窗体上添加一个命令按钮(名称为Cmd1，标题为\输出平均值\。程序运行后，单击命令按钮完成以下工作：

①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示)

Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize 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 String, ch1 As String, 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

1

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i

Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub

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

①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。

Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize

For i = 0 To 29

a(i) = Int(Rnd * 1001) Next i max = a(0)

For i = 1 To 29

If a(i) > max Then max = a(i) Next i Print max End Sub

4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

2

Private Sub Command1_Click() If Option1.Value = True Then Text1.FontName = \宋体\Else

Text1.FontName = \隶书\End If

If Check1.Value = 1 Then

Text1.FontUnderline = True Else

Text1.FontUnderline = False End If

If Check2.Value = 1 Then Text1.FontItalic = True Else

Text1.FontItalic = False End If End Sub

5 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为\对齐方式\、\字体\，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为\左对齐\、\居中\、\右对齐\，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为\宋体\、\黑体\，名称分别为Opt4、Opt5。

要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。

3

Private Sub Opt1_Click()

If Opt1 Then Text1.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的正整数，然后选择\的阶乘\或\的阶乘\单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。

Dim n%

4

Private Sub Form_Load()

End Sub

Private Sub Option1_Click() Dim i%

n = Val(Text1) m = 1

For i = 1 To n m = m * i Next i Text2 = m End Sub

Private Sub Option2_Click() Dim i% m = 1

For i = 1 To n + 2 m = m * i Next i Text2 = m End Sub

7 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击\统计\命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。

Private Sub Command1_Click() Dim i%, n%

For i = 1 To Len(Text1)

If Mid(Text1, i, 1) = Text2 Then n = n + 1 Next i Label3 = n End Sub

5

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB练习题（上机）含答案在线全文阅读。