VB练习题(上机)含标准答案

第一部分

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

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

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

ＰrivaｔｅSub Cmd1_Cｌick（)

Ｄim ａ%（１9）, i%,ｓum!, avｅr!

Raｎdomizｅ

Foｒｉ= 0 Ｔo１9

a(i) =Int(Rｎd * 100１）

sum = sum ＋a(i）

Nｅxｔi

ａver = suｍ/20

Print aveｒ

EnｄSub

2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。

Prｉvate Sub Ｃ1_Clｉｃｋ()

Dim ｃh As String, ch１ As String, i％

cｈ= Text1

Ｆoｒ i = 1 Ｔo Len(ｃｈ）

Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ

ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）)

Elｓｅ

ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)）

Enｄ If

Neｘｔ i

Text1 = Teｘｔ１＋ vｂCｒＬf

Teｘt１＝ Text1 ＋ ch1

End Ｓub

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

①随机产生3０个0~100０的整数，将其放入一个一维数组中

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

Prｉvate SuｂMyCmｄ１_Ｃliｃk()

Diｍa%(2９)， i%, max%

Ｒandomize

Fｏr i = 0 To ２9

a(i) ＝Ｉnt(Rｎd ＊ 1００1)

Nｅxｔ i

ｍａx = ａ(0)

Foｒi ＝ 1 To 2９

Iｆ a(i) > max Ｔｈｅn max = a（i)

Nｅｘt ｉ

Pｒint mａｘ

End Sub

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