选修操作历年真题剖析.docx

1、选修操作历年真题剖析输出图案题型1、打开“161”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“绘图”；（2）完善程序，单击“绘图”按钮，使之打印出如下图形。注：运行时，把红色下划线删除不能删除注释语句Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 5 第一空Print Space(i - 1); 输出空格For j = 1 To 6 - iPrint “*”; 第二空Next jPrintNex

2、t i 第三空End Sub2、打开“ 162”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ （1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“绘图”；（2）完善程序，单击“绘图”按钮，使其能输出如下图形。注：运行时，把红色下划线删除不能删除注释语句Private Sub Command1_Click()Dim i As Integer, j As Integer For i = 1 To 4 第一空 Print Space(i - 1); 打印空格 For j = 1 To 5 Print “*”; 第二空 Next j Print

3、next i 第三空End Sub3、打开“工程1.vbp”进行以下操作后并保存！(1) 在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“绘图”；(2) 完善程序，单击“绘图”按钮，使之输出如下图形(由“A”组成)。注：运行时，把红色下划线删除不能删除注释语句Private Sub Command1_Click()For i = 1 To 5 第一空 Print Space(i); 输出空格 For j = i To 5 Print “A”; 第二空 Next jPrintNext i 第三空End Sub判断结果型1、打开“163”文件夹中的文件“工

4、程1.vbp”，进行以下操作后并保存！ （1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“判断”；（2）完善程序，使之能够实现如下功能：在“输入数”文本框中输入一个数，单击“判断”按钮，在“判断值”中显示“正数”或“负数”，输入零则显示“输入数值为0，请重新输入！”。注：运行时，把红色下划线删除不能删除注释语句Private Sub Command1_Click()Dim xx = Val(Text1.Text)If x=0 Then 第一空 Label3.Caption = 输入数值为0，请重新输入！ElseIf x0 Then 第二空 Labe

5、l3.Caption = 正数Else Label3.Caption = 负数End if 第三空End IfEnd Sub2、打开“164”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ （1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“查找”；（2）设计程序：在三个文本框分别输入语文、数学、英语成绩，点击“查找”按钮后，在“最高分”中输出三门课成绩的最高分。注：运行时，把红色下划线删除 不能删除注释语句Private Sub Command1_Click()Dim yw, sx, yy, gf yw = Val(Text1.Text)

6、 sx = Val(Text2.Text) yy = Val(Text3.Text) If yw sx Then gf = yw Else gf=sx 第一空 End If If gf =80 Then 第一空 Label3.Caption = 请注意，您是超速行驶！ else 第二空 Label3.Caption = 车辆在正常行驶！end if 第三空End Sub4、打开“169”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“测试”；（2）依照中华人民共和国机动车驾驶员驾车时血液中酒

7、精含量规定，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1mg/ml驾驶机动车的属醉酒驾车。完善程序，当输入“酒精量”单击“测试”按钮时，在“评价”中显示评价说明。 注：运行时，把红色下划线删除不能删除注释语句Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If x=1 Then 第一空 Label3.Caption = 你属于醉酒驾车!Else If x = 0.3 Then Label3.Caption = 你属于酒后驾车! else 第二空 Label3.Caption = 你没有违

8、规驾驶! End IfEnd if 第三空End Sub5、打开“ D:ExamData14124010464292”文件夹中的文件：“工程1.vbp”进行以下操作后并保存！(1) 在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“判断”；(2) 完善程序，在“输入数值”的文本框中输入一个100以内的正整数（包括100不包括0），单击“判断”按钮，在“判断奇偶性”中显示是“奇数”还是“偶数”，当输入大于100的整数或小于等于0的整数时则显示“输入的整数不在范围内”。注：运行时，把红色下划线删除不能删除注释语句Private Sub Command1_Cl

9、ick()Dim x As Integerx = Val(Text1.Text) If x 100 Then 第一空 Label3.Caption = 输入的整数不在范围内 Else If x2 x/2 Then 第二空 Label3.Caption = 奇数 Else Label3.Caption = 偶数 End if 第三空 End IfEnd Sub6、打开“工程1.vbp”进行以下操作后并保存！（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“测试”；（2）完善程序，在“输入正整数:”文本框中输入一个正整数，判断该是否是“素数”，在“判断

10、：”中显示“是素数”或“不是素数”。(素数是一个大于1的自然数，除了1和它本身外，不能被其他自然数整除。)注：运行时，把红色下划线删除 不能删除注释语句Private Sub Command1_Click() Dim a As Single, i As Integer 定义变量a,ia = Val(Text1.Text)i = 2 第一空Do Until (a Mod i = 0) Or (i = a - 1) i = i + 1loop 第二空If a Mod i = 0 Then Label3.Caption = 不是素数 Else Label3.Caption = “是素数” 第三空En

11、d Sub累算型1、打开“166”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ （1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“计算”；（2）完善程序，使其能输出：2+4+6+8.+100的值。单击“计算”按钮时，在“输出值”中输出总值。注：运行时，把红色下划线删除 不能删除注释语句Private Sub Command1_Click()Dim s As Integer, i As Integer S=0 第一空 For i = 2 To 100 Step 2 第二空 S=s+i 第三空 Next i Label2.Caption =

12、 sEnd Sub2、打开“167”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ （1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“求值”；（2）完善程序，使其能输出： 1+3+5+7.+99的值。单击“求值”按钮时，在“输出值”中输出总值。 注：运行时，把红色下划线删除不能删除注释语句Private Sub Command1_Click()Dim s As IntegerDim i As Integer s = 0 第一空 For i = 1 To 99 Step 2 第二空 s = s + i next i 第三空 Label2.C

13、aption = sEnd Sub3、打开“168”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ （1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“求值”；（2）完善程序，求s=135(2n-1)。单击“求值”按钮时，输入n值，则在“输出值”中输出总值。 注：运行时，把红色下划线删除 不能删除注释语句Private Sub Command1_Click()Dim s As Integer, i As Integer, n As Integern = Val(Text1.Text)s = 1 第一空For i = 1 To 2 * n -

14、 1 Step 2 第二空s=s*i 第三空Next iLabel2.Caption = sEnd Sub4、打开“295”文件夹中的文件：“工程1.vbp”进行以下操作后并保存！(1) 在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“计算”；(2) 完善程序，求s=12+23+n(n+1)(n取正整数)。在“请输入正整数n值”后的文本框中输入一个正整数，单击“计算”按钮时，则在“输出值”中输出总值。注：运行时，把红色下划线删除不能删除注释语句Private Sub Command1_Click()Dim n As Integer, s As Doub

15、len = Val(Text1.Text)s = 0 第一空For i = 1 To n 第二空 s=s+i*(i+1) 第三空Next iLabel2.Caption = sEnd Sub查找型1、打开“164”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！ （1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“查找”；（2）设计程序：在三个文本框分别输入语文、数学、英语成绩，点击“查找”按钮后，在“最高分”中输出三门课成绩的最高分。注：运行时，把红色下划线删除 不能删除注释语句Private Sub Command1_Click()Dim

16、 yw, sx, yy, gf yw = Val(Text1.Text) sx = Val(Text2.Text) yy = Val(Text3.Text) If yw sx Then gf = yw Else gf=sx 第一空 End If If gf yy Then gf=yy 第二空 Else gf = gf end if 第三空Label5.Caption = gfEnd Sub2、打开“293”文件夹中的文件：“工程1.vbp”进行以下操作后并保存！(1) 在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“查找”；(2) 完善程序，打印出10

17、0以内(包括100)能被3和7同时整除的正整数，单击“查找”按钮时，在列表框中显示出所有满足条件的数。 注： 运行时，把红色下划线删除 不能删除注释语句Private Sub Command1_Click()Dim x As IntegerFor x = 20 To 100 第一空If x Mod 3 = 0 and x Mod 7 = 0 Then 第二空List1.AddItem Str(x)End if 第三空Next xEnd Sub3、打开“工程1.vbp”进行以下操作后并保存！(1) 在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“查找”；

18、(2) 完善程序，使之能够实现如下功能：输入十位学生姓名和百米成绩查找出跑得最快的学生姓名及成绩。在“输入学生姓名和百米成绩”列表框中显示十位同学姓名和比赛成绩，单击“查找”按钮，在“第一名”下面显示“学生姓名”及“成绩”。(假设输入的学生成绩都不相同)注：运行时，把红色下划线删除不能删除注释语句Dim i As Integer, x As Single, m As String, frist As Single, Ming As String frist = 1000 设置变量最大初值 For i = 1 To 10 第一空 m = InputBox(输入学生姓名) List1.AddIte

19、m m x = Val(InputBox(输入成绩) List2.AddItem x If x first Then 第二空 first = x Ming = m End If Next i 第三空 Label3.Caption = Ming + + Str(first) End Sub分制转换型1、打开“296”文件夹中的文件：“工程1.vbp”进行以下操作后并保存！（1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“开始”；（2）设计程序：将120分制的成绩转换成百分制后，根据60分以内为D等，60分至80分为C等，80分至90分为B等，90分至

20、100分为A等，在“输入学生成绩：”后的文本框中输入成绩，点击“开始”按钮后，输出成绩评价等级。注：运行时，把红色下划线删除 不能删除注释语句Private Sub Command1_Click()Dim x As Single x = Val(Text1.Text) x = x * 100 / 120 If x= 0 Then Label5.Caption = D 第一空 If x = 60 and x = 80 And x = 90 And x =0 and x= 60 and x = 70 And x = 90 And x = 100 Then Label5.Caption = 优秀End Sub