下载文档原格式
Vb专项练习第一套题目1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。
实现功能：假设有一个5位数密码。
只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。
请完善算法帮忙找出这个密码。
''请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善Private Sub Command1_Click()Dim x As LongFor x = ① To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint ②End If③End Sub2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。
说明：若一个三位数abc，满足：abc=a3+b3+c3，则称abc为水仙花数。
如三位数153满足：13+53+33=1+125+27=153，则153是水仙花数。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善Private Sub Command1_Click()Dim i, a, b As IntegerFor i = 100 To ①a = i \ 100b = (i - a * 100) \ 10c = ②If a * a * a + b * b * b + c * c * c = i ThenPrint CStr(i)③Next iEnd Sub3、打开“考生文件夹\12\工程1.vbp”，完善程序并保存。
实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。
如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。
1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。
如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。
现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示:(1)为实现上述功能,请在画线处填入正确的代码。
Private Sub Command1_Click()Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As Integer, d As Integers = 0For i = 1 000 To 9 999①'取出个位数字b = (i Mod 100)\10 '取出十位数字c = i \ 100 Mod 10 '取出百位数字d = i \ 1 000 '取出千位数字If a ^ 4+ b ^ 4 + c ^ 4 + d ^ 4 = i ThenList1.AddItem is =②End IfNextLabel2.Caption = ″四叶玫瑰数共有″+ Str(s) + ″个″End Sub(2)程序中的语句“b = (i Mod 100) \ 10”和下列哪些项功能相同(多选)。
A.b=i\10 Mod 10B.b=int(i/10) Mod 10C.b = i Mod 100\10D.b=Mid(i,3,1)2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。
单击“奇数迁移”按钮Command2,将列表框List1中的所有奇数迁移到列表框List2中,如图2所示。
图1 图2在以下Visual Basic程序的画线①②处填入合适的语句,实现上述功能。
VB考试高中试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Float答案：C2. 下列哪个语句用于在VB中声明一个变量？A. DimB. DeclareC. SetD. Let答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. IfD. All of the above答案：D4. VB中，哪个函数用于将字符串转换为数字？A. Str()B. Val()C. CInt()D. CStr()答案：B5. 以下哪个是VB中的事件？A. FunctionB. SubC. EventD. Property答案：C二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中的________属性用于获取或设置控件的文本。
答案：Text3. 要实现一个按钮的点击事件，需要在代码中编写________过程。
答案：Click4. VB中的________函数可以用于获取当前日期。
答案：Date5. 使用________语句可以结束一个循环。
答案：Exit For（或Exit Do）三、简答题（每题10分，共30分）1. 简述VB中数组的定义和使用。
答案：在VB中，数组是一种可以存储多个元素的数据结构。
数组可以通过Dim语句定义，例如Dim myArray(1 To 10) As Integer。
这定义了一个包含10个整数的数组。
数组的索引从0开始，因此myArray(0)是第一个元素。
使用数组可以方便地存储和操作一系列相关数据。
2. 解释VB中的面向对象编程概念。
答案：面向对象编程（OOP）是一种编程范式，它使用“对象”来设计软件。
在VB中，对象是具有属性和方法的数据结构。
属性是对象的状态信息，而方法是对象的行为。
通过类来定义对象的结构，然后使用New关键字创建对象的实例。
信息技术高中会考V B 模块操作题题库信息技术高中会考VB模块操作题题库第1题打开“Y:\4619”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1+4+7+……+40的值。
第2题打开“Y:\4620”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到300之间偶数的个数。
第3题打开“Y:\4621”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到100之间所有整数的和。
第4题打开“Y:\4622”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求100到200之间奇数的和。
第5题打开“Y:\4623”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2到10之间所有偶数的积。
第6题打开“Y:\4624”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求5+10+15+…+85的和。
第7题打开“Y:\4625”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被7整除的数的个数。
第8题打开“Y:\4626”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2×12×22×32×42×52的积。
第9题打开“Y:\4627”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2+5+8+11+……+50的值。
第10题新建一个VB工程，按下表的要求添加控件，并设置其属性。
将操作结果保存在“Y:\4674”文件夹下，窗体文件名为：“Form1.frm”，工程文件名称为：“工程1.vbp”。
2016年高中信息技术学业水平考试VB程序复习题一、顺序结构程序1.启动VB，打开工程文件“c:\MyExam\VB91.vbp”，完成如下算法设计: [12 分]2013年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为8，宽为5，高为23，求长方体的体积V，小李同学编写出了如下的不完整程序。
请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。
Function func( )Dim A As SingleDim B As SingleDim H As SingleDim V As SingleA=8:B=5:H=23V=________func=”长方体的体积V=” & VEnd Function2. 已知圆柱的底面半径R为6，高H为11，下列程序的功能是计算圆柱的体积V （∏的值取3.14）。
请将程序缺失部分“___”补充完整。
Function func( )Dim R As Single,H As Single,V As Single R=6H=11V=________func=”圆柱体的体积V=” & VEnd Function3.已知圆的半径r是3，计算圆的面积s（∏的值取3.14），小李同学编写出了如下的不完整程序。
请将程序缺失部分“___”补充完整。
Function func( )Dim r As SingleDim s As Singler=3s=________func=”圆的面积s=” & sEnd Function4. 2013年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为1，变量b的值为2，交换变量a、b的值。
小李同学编写出了如下的不完整程序。
请将程序缺失部分“___”补充完整。
Function func( )Dim a As Integer,b As IntegerDim t As Integera=1:b=2t=a:a=bb=________func=”a=” & a & ”b=” & bEnd Function5. 已知变量x的值是4698，下列程序的功能是求x的各位数字之和s，其中a存放的是千位数字，b存放的是百位数字，c存放的是十位数字，d存放的是个位数字。
徐州经济技术开发区高级中学Vb 专项练习第一套题目1、打开“考生文件夹工程1.vbp”，完善程序并保存。
实现功能：假设有一个 5 位数密码。
只记得密码为67□□ 8，其中百位和十位的数字记不清了，但知道该密码能够被78 整除，也能被67 整除。
请完善算法帮忙找出这个密码。
''请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善①67008Private Sub Command1_Click()②xDim x As Long③Next xFor x =① To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint②End If 信息组祝您考试成功！b = (i - a * 100) \ 10c = ②If a * a * a + b * b * b + c * c * c = i ThenPrint CStr(i)③Next iEnd Sub3、打开“考生文件夹工程1.vbp”，完善程序并保存。
实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1 、Label2 、Label3 中显示对应的小时、分钟和秒数。
如在Text1 中输入“3672 ”， Label1 、 Label2 、 Label3 中分别显示“1”、“1”、“12”，即 1 小时 1 分 12 秒。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程③End Sub2、“考生文件夹工程 1.vbp ”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。
333说明：若一个三位数abc，满足：abc=a +b +c，则称 abc 为水仙花数。
如三333位数 153 满足： 1 +5 +3 =1+125+27=153是水仙花数。
，则 153'请不要更改源程序的结构，删除原题里的①、②、③。
高中信息技术VB专项题（学考）VB专题题DimiAInteger,AIntegerDimaAInteger,bAInteger,cAInteger,dAInteger=0Fori=1000To9999①'取出个位数字b=(iMod100)\\10'取出十位数字c=i\\100Mod10'取出百位数字d=i\\1000'取出千位数字Ifa^4+b^4+c^4+d^4=iThenLit1.AddItemi=②EndIfNe某tLabel2.Caption=″四叶玫瑰数共有″+Str()+″个″EndSub(2)程序中的语句“b=(iMod100)\\10”和下列哪些项功能相同(多选)。
A.b=i\\10Mod10C.b=iMod100\\10B.b=int(i/10)Mod10D.b=Mid(i,3,1)第1页VB专题题图1图2在以下ViualBaic程序的画线①②处填入合适的语句,实现上述功能。
Dima(1To10)AIntegera(i)=Int(Rnd()某900+100)Lit1.AddItem①Ne某tiEndSubFori=②Ifa(i)Mod2=1ThenLit2.AddItema(i)EleLit1.AddItema(i)EndIfNe某tiEndSub图1第2页VB专题题图2DimASingle,某ASingle,nAInteger,iAIntegerRandomizeLit1.Clear=①n=Val(Te某t2.Te某t)Fori=1To②'通过循环语句产生n-1个红包的随机值某=Int((Rnd()某/(n-i)+0.005)某100)/100Lit1.AddItemStr(某)=③Ne某ti 某=Int((+0.005)某100)/100'产生最后一个红包Lit1.AddItemStr(某)EndSub第3页VB专题题Fori=1ToLen(a)c=Mid(a,i,1)If②Thenc=Chr(Ac(c)-32)EndIfb=b&cNe某tiTe某t2.Te某t=bEndSub(2)由程序可知,小写字母比大写字母的ASCII编码值大5、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。
第 1 页共37 页第 2 页共37 页Label4.Caption = Str(④) + "元"End Sub2、打开“考生文件夹\723”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。
中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：首个0.5公斤收费210元，其余的重量按55元/千克计算，（总重不足0.5千克按210元收费）下面是自动计算寄费的程序，请完善程序。
完成后按“Ctrl+W”保存程序。
（详见样张）'中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：'首个0.5公斤收费210元，其余的重量按55元/每千克计算，（总重不足'0.5千克按210元收费）下面是自动计算寄费的程序，请你完善程序。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善Private Sub Command1_Click()Dim x As Single, y As Singley = 0① = Val(Text1.Text)If x > 0.5 Theny = 210 + (x - 0.5) * 55Elsey = 210②③ = Str(y)End Sub3、打开“考生文件夹\91\工程1.vbp”，完善程序并保存。
实现功能：随机生成100个整数，统计偶数的个数。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善Dim a(100) As IntegerPrivate Sub Command1_Click()Dim total As Integer①For i = 1 To 100If a(i) Mod 2 = 0 Then②End IfNext iPrint CStr(total)End SubPrivate Sub Form_Load()RandomizeFor i = 1 To 100③= Int(Rnd * 1000)Next iEnd Sub①x②end if③text2.text①total=0②total=total+1③a(i)第 3 页共37 页4、打开文件“考生文件夹\725\工程1.vbp”，进行以下操作后保存。
Vb算法程序题汇总目录1、输入5个数并排序（选择排序）2、判读输入的三条边能否构成三角形3、图形打印（倒三角）4、判断是否为闰年5、产生随机数6、输入消费金额，计算出实收金额7、输入用电量，计算出输出电费8、求出100以内某数的阶乘9、程序改错，求100以内奇数之和10、输入学生成绩，显示相应等级（select case结构）11、图形打印（三角形）12、用字符串函数Ucase()和转换函数Asc()填空13、对数组赋值并求和14、利用函数，把abcd变成BCD15、输入10个数，求最大值最小值和平均值16、输入公里数，计算车费17、已知两边和夹角，求三角形面积18、输入学生成绩，显示相应等级（select case结构）19、学生成绩转换（select case结构）20、求100以内能够被19整除的个数1、完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。
Private Sub Command1_Click()Dim x As LongDim n As Integer, i As Integer, s As LongDim a(1 To 5) As SingleFor i = 1 To 5a(i) = Val(InputBox("请在输入第" + Str(i) + "/5个数"))Print a(i);Next iPrintFor i = 1 To ___①__Min = a(i): m = iFor x = i + 1 To 5If ___②___ Then Min = a(x): m = xNext xk = a(i): ____③___: a(m) = kNext iPrint "从小到大排序后的数据为："For i = 1 To 5Print a(i);Next iEnd Sub2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。
Private Sub Command1_Click()Dim a, b, c, q, s As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)q = (a + b + c) / 2If (a + b) <= c Or (a + c) <= b ___①___ (b + c) <= a ThenPrint "不能构成三角形"Elses = ___②___(q * (q - a) * (q - b) * (q - c))Print "三角形的面积是" & s____③____End Sub3、删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。
****************Private Sub Command1_Click()Dim i, j, k As IntegerFor i = 4 To 1 Step ___①___For j = 1 To ___②___ Step 1Print "*"; '打印符号*____③__Print '换行For k = i - 3 To 1Print " "; '打印空格Next kNext iEnd Sub4、判断某年是否为闰年的方法是如果该年份的数值能被4整除但不能被100整除，或者能被400整除则该年份是闰年。
Private Sub Command1_Click()Dim i As Longi = ___①____If i Mod 4 = 0 And ___②____ ThenLabel2.Caption = "该年是闰年！"ElseLabel2.Caption = "该年不是闰年！"___③____End Sub5、（1）删除①②及下划线，填空完成程序。
（2）完善程序代码实现:手动输入0到10以内的一个整数，如果这个数字正好等于随机产生的整数（0到10之内），'那么输出"恭喜您猜中了！"，否则输出"谢谢，重在参与！"。
Private Sub Command1_Click()Dim i, j As IntegerRandomizei = ___①___j = Val(InputBox("请您输入一个0-10之间的整数:"))Print "您选中的数字为：" & jPrint "随机产生的数为：" & iIf ____②___ ThenPrint "恭喜您猜中了！"ElsePrint "谢谢，重在参与！"End IfEnd Sub6、凡在商场消费满500元以上(含500元)，享受9折优惠；消费满1000元以上(含1000元)，享受8折优惠；消费在500元以下不优惠。
输入消费金额，计算出实收金额。
注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub command1_click()Dim m As Single '消费金额m = ___①___If m >= 1000 ThenText2.Text = ____②___ElseIf __③___ ThenText2.Text = m * 0.9ElseText2.Text = mEnd IfEnd IfEnd Sub7、在Text1中输入每月用电量，单击按钮"应收电费"后，在Text2中输出电费。
收费标准：家庭每月用电量不超过260度按原价1.3元/度收费；超过260度，不超过400度每度电费用增加0.1元；超过400度后每度电费用增加0.3元。
Private Sub Command1_Click()Dim i As Singlei =____①___If i >= 0 And i <= 260 Then s = ____②____If i > 260 And i <= 400 Then s = i * (1.3 + 0.1)If i > 400 Then s = i * (1.3 + 0.3)____③___ = s & "元"End Sub8、完善程序代码实现:任意输入一个1到100以内的整数，并求出它的阶乘。
Private Sub Command1_Click()Dim i As IntegerDim j As IntegerDim s As Doubles = ___①___i = Val(InputBox("请您输入一个1到100以内的整数"))For j = 1 To is = ___②_____③___Print i & "的阶乘等于" & sEnd Sub9、下面的程序是求100以内所有奇数之和,程序中有三处错误，请更正。
Private Sub Command1_Click()Dim s As IntegerDim i As Integers = 0For i = 1 To 99 Step 1s = s * iEnd IfPrint "s=" & sEnd Sub10、在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label1中！Private Sub Command1_Click()Dim exam As Integerexam = ____①___Select Case ____②____Case Is < 60Label1.Caption = "该学生的成绩等级为：D"Case 60 To 69Label1.Caption = "该学生的成绩等级为：C"Case 70 To 84Label1.Caption = "该学生的成绩等级为：B"Case 85 To 100Label1.Caption = "该学生的成绩等级为：A"Case ElseLabel1.Caption = "输入的数据不合法"____③___End Sub11、'删除程序中的①②③及下划线，填空完成程序，运行程序使能打印下面所示的图案。
'@'@@'@@@'@@@@'@@@@@'@@@@@@'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 1 To __①___Print Tab(10);For j = 1 To ___②_____Print ____③_____Next jPrintNext iEnd Sub12、'删除①②③及下划线，利用字符串函数Ucase()和转换函数Asc()，填空完成程序。
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Form_Click()Dim str1 As String, str2 As StringDim str3 As String, i As Integerstr1 = "f"For i = 1 To ____①______str2 = UCase(str1)str1 = str2 & str1str3 = str3 & str1str1 = Chr(Asc(str1) + ____②_____)______③_______Print str3End Sub13、'删除①②③及下划线，填空完成程序。
'程序运行后，单击“初始值”命令按钮对数组a的各元素赋值；'单击“求和”命令按钮，求出数组a的各元素之和，并在Text1中显示出来'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
