VB練习题(上机).docVIP

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为输出平均值)。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Command1_Click() Dim a(19), i, t t = 0 For i = 0 To 19 a(i) = Int(Rnd * 1001) t = t + a(i) Next i Print t / 20 End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为转换的命令按钮，如下图所示。在程序运行时，单击转换按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为输出最大值)。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub Command1_Click()Dim a(29), i% For i = 0 To 29 a(i) = Int(Rnd * 1001) Next I For i = 0 To 29 If a(0) = a(