练习题上机含答案.doc

第一部分 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 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 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。 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事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。 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 请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个