高中信息技术学业水平测试 VB操作题
2012年江苏高中信息技术学业水平测试vb操作题带答案
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秒。
高中信息技术会考vb选修操作题答案
Private Sub Form_Click()
Dim x As Single '定义x为单精度型变量，由标准输入对话框输入
Dim y As Single '定义y为单精度型变量，值由窗体显示
x =Val(InputBox("请输入变量x的值"))If x <= 0 Then
y = 3 * x + 1
End sub
第三套
第15题
设计一个程序，打印下面所示的图案
@
@@
@@@
@@@@
@@@@@
@@@@@@
完成所有操作后按“Ctrl+S”保存。
Private Sub Form_Click()
Dim i As Integer'定义i为整型变量
Dim j As Integer '定义j为整型变量
Dim j As Integer
End sub
第16题
编写程序，求y=6*x-5的值。（x的值在程序调用中调用inputbox函数，在弹出的标准输入对话框中输入）。
Private sub form_click()
Dim x as single
Dim y as single
X=val(inputbox(“请输入变量x”))
Y=6*x-5
Head =Ji + Tu'计算头数
If Leg = 100 And Head =40Then '如果腿数够100并且头有40个，则打印
Print "鸡"; Ji; "只", "兔＝"; Tu; "只"
End If
山东高中信息技术学业水平测试VB算法真题
ﻩPriｎtp
ﻩEｎd Sub答案:_＿___＿__＿_＿_________＿＿_＿
５．表一是某种绘图软件的部分指令，如要根据表中的指令画出图一的图形,请根据分析填空：
6.写出程序结果:(8分，每空4分）
ﻩPrｉvatｅSｕbForm_Aｃｔivaｔｅ()
ﻩDｉm pＡs Iｎteger,i As Iｎteger
8、下列哪一个不是用于程序设计的软件（)
A、BASICB、Ｃ语言ﻩC、WorｄﻩﻩD、Ｐascal
9、下列可以作为合作变量名的是(）
A、a7B、7ａﻩﻩC、ａ－3Ｄ、8
10、编程求1＋2+3＋.．．．.．．.+１000的和，该题设计最适合使用的控制结构为( )。
ﻩA、顺序结构ﻩB、分支结构C、循环结构ﻩD、选择结构
EnｄSｕb
运行结果:___＿_＿＿_____＿____＿
５、计算1+1／2+……＋1／50的值。
ＰrｉｖatｅSuｂForm_actiｖａte（）
Dimｉ,sas iｎteger
s=0
Foｒｉ＝1to＿________＿_____
ｓ=___＿_______
Nexti
Pｒint “Ｓ=”；s
ＥndＳub
Next i
Ｐｒintch
EndＳｕbﻩﻩ
答案:____＿_＿____＿_______＿__＿_
４．写出程序结果：
PriｖａｔｅＳubＣoｍmand1_Cｌick()
DimpAs Inｔeger,ｉ ＡsIntｅｇer,ｎAsＩntｅger
p=0：n=5
Ｆori=1Toｎ
ﻩp＝p+i*2
ﻩﻩIf p＞=１0 Then ExitＦor
高中信息专业技术VB专项题(学考)
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考试高中试题及答案
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关键字创建对象的实例。
信息技术高中会考VB模块操作题题库演示教学
信息技术高中会考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”。
高中信息技术学业水平考试VB程序复习题
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存放的是个位数字。
2012年江苏高中信息技术学业水平测试vb操作题带答案
徐州经济技术开发区高级中学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'请不要更改源程序的结构，删除原题里的①、②、③。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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中显示出来'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。