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
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1