VB操作题部分.docVIP

VB操作题部分 VB——1 打开“考生文件夹\18”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！填空完成程序，使程序实现如下功能：从键盘输入10个100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值。 Private Sub Command1_Click() Dim x As Integer x = InputBox(请输入您的数：) Print 您输入的数有 x; 、; Max = x: Min = x: Sum = x For i = 2 To 10 x = InputBox(请输入您的数): Print x; Sum = Sum + x If Maxx Then Max = x If Minx Then Min = x Next i Print 平均值 Sum/10 Print 最大数 Max, 最小数 Min End Sub VB——2 打开“考生文件夹\15”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ 填空完成程序，使程序实现如下功能：点击“计算”按钮后，在窗体上输出“1+2+……+100”的和，并求出1到100之间能被19整除的整数的个数。运行结果如下图： Private Sub Command1_Click() Dim i As Integer, x As Integer Dim s As Integer s = 0 x = 0 For i = 1 To 100 s=s+i If i mod 19 =0 Then x=x+1 Next i Print 1+2+3+4...+100= s Print 1到100之间能被19整除有: x 个数 End Sub VB——3 打开“考生文件夹\9”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ 利用字符串函数Ucase(x)和转换函数Asc(x)填空完成程序，当单击窗体后在窗体上显示如下图所示的结果： Private Sub Form_Click() Dim str1 As String, str2 As String Dim str3 As String, i As Integer str1 = f For i = 1 To 2 str2 = UCase(str1) str1 = str2 str1 str3 = str3 str1 str1 = Chr(Asc(str1) + i) Next i Print str3 End Sub VB——4 打开“考生文件夹\8”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ 填空完成程序，当点击“画图”按钮时，程序能打印出下面所示的图案： @ @@ @@@ @@@@ @@@@@ @@@@@@ Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 6 Print Tab(10); For j = 1 To i Print “@”; Next j Print Next i End Sub VB——5 打开“考生文件夹\7”文件夹中的文件“hn-01.vbp”，进行以下操作后并保存！ 填空完成程序，使程序实现如下功能： 已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，单击“计算”按钮，在文本框Text1中显示出三角形的面积，操作完成后保存并关闭应用程序。 Private Sub Command1_Click() a = 15 b = 18 s = 0.5 * a * b * sin(41 * 3.14 / 180) text1.text = s End Sub VB——6 打开“考生文件夹\14”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ 填空完成程序，使程序实现如下功能：制作一个成绩等级程序，要求在文本框Text1中输入成绩，点击“等级”按钮时，显示相应的等级。具体等级划分为：90分以上为“优”，80到89分为“好”，70到79分为“良”，60到69分为“及格”，60分以下为“不及格”。 Private Sub Command1_Click() Dim x As Integer, grade As String x = text1.text Select Case x Case 90