高中信息技术学业水平测试 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算法真题

ﻩNexti
ﻩ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'请不要更改源程序的结构，删除原题里的①、②、③。

高中信息技术VB专项题(学考)

高中信息技术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、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。

2012年江苏高中信息技术学业水平测试vb操作题带答案

第 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”，进行以下操作后保存。

(完整word版)高中信息技术经典操作题VB代码

操作题部分VB代码注意：只能在function func（）和end function之间输入代码。

其他部分一律不许改动或删除.函数的返回值必须用函数名来返回，即代码中需要出现“func=***”的语句。

************************** ********************************* 1、输入一个整数，输出各位数字之和。

如：123，输出6Function func(n)Dim i As IntegerDim m As Integerm = Len(Str(n))func = 0For i = 1 To mfunc = func + Val(Mid(Str(n), i, 1))Next iEnd Function说明：str（）将数字转换为字符串，len（）求字符串的长度Mid（字串，起始位置，数量）从字串的指定位置截取指定长度的字串Val( ) 将字串转换为相应的数字************************** ********************************* 2、输入五位同学的身高，输出最高的数据Function func(a, b, c, d, e)func = aIf func < b Then func = bIf func < c Then func = cIf func < d Then func = dIf func < e Then func = eEnd Function************************** ********************************* 3、求2+4+……+100的和Function func（）Dim I as integerFunc=0For I = 2 to 100 step 2Func=func+iNext iEnd function************************** ******************************** 4、统计100-999之间水仙花数的个数（水仙花数：如：13+53+33=153）Function func（）Dim abc as integer, a as integer , b as integer , c as integer Func=0For abc=100 to 999a=abc\100b=(abc-a*100)\10c= abc mod 10if a^3+b^3+c^3=abc then func=func+1next abcend function说明：abc为三位数，a是百位数，b是十位数，c是个位数************************** ******************************** 5、某火车站运费标准如下：运输距离小于500公里，按照运费标准收费，运输距离大于等于500公里小于1000公里，按照运费标准给予0.05的折扣，运输距离大于等于1000公里小于3000公里，按照运费标准给予0.1的折扣，运输距离大于等于3000公里，按照求运费标准给予0.15的折扣。

信息技术高中会考VB模块操作题题库

信息技术高中会考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程序题及答案

Private Sub Form_Click()
Dim s As Single ' s变量用于存放计算结果
Dim义一个循环变量
'给s赋初值
s =0
'给p赋初值
p =1
For i = 1 To 8
p = p * i
s =s+p
Next i
Print "s="; s
s = 0
For i = 2 To 100 Step2
s =s+i
Nexti
Label1.Caption = Str(s)
End Sub
2、'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。
Private Sub Command1_Click()
Private Sub Form_Click()
Dim p As Single ' 变量p保存年产值
Dim n As Integer ' 整型变量n为所求年数
P=2000
n = 0
Do While p < 4000
p = p *1.05
n =n+1
Loop
Print "n="; n
End Sub
第五套
Label1.Caption = "良好"
End If
If Cj >= 85 Then
Label1.Caption = "优秀"
End If
End Sub
'某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？

高中信息技术会考(VB部分)练习

高中信息技术会考VB复习题一、单选题1. 计算机程序的三种结构是顺序结构、、选择结构。

A．模块结构B．循环结构C．多重循环结构D．IF块结构2. 是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。

A．任务B．事件C．控件D．过程3. 在VB中，窗口坐标系的原点在，x轴向右为正，y轴向下为正。

A．窗口左上角B．窗口右下角C．窗口正中间D．窗口右上角4. 在VB应用程序设计中，通常应对编写程序代码。

A．所有对象B．窗体C．Timer D．有事件的对象5. 在面向对象程序设计中，用来描述对象的特征信息。

A．事件B．方法C．代码D．属性6. 在VB编程中，如果需要返回鼠标的当前位置，或了解按下的是鼠标哪个键及需要配合键盘上的Shift、Ctrl、Alt键时，应该使用事件。

A．Click B．Change C．MouseDown D．KeyPress7. 在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设置为。

A．1 B．60 C．100 D．10008. 下列过程中，是程序开始运行时，窗体一加载就运行的程序段。

A．Form_Load B．Form_ClickC．Form_MouseDown D．Form_KeyPress9. 的Visual Basic表达式是。

A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a) D．(-b+sqr(b^2-4ac))/2a10. 在VB系统中，代表内存单元，是命了名的存储空间。

A．变量B．常量C．函数D．字节11. 语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。

A．Sub B．Dim C．Call D．End12. 在VB程序设计语言中，语句的功能是使系统产生的随机数真正随机化。

A．Rnd B．Circle C．Randomize D．Dim13. 关系表达式的值为。

高中信息技术学业水平测试-VB操作题

算法程序题汇总目录1、输入5个数并排序（选择排序）2、判读输入的三条边能否构成三角形3、图形打印（倒三角）4、判断是否为闰年5、产生随机数6、输入消费金额，计算出实收金额7、输入用电量，计算出输出电费8、求出100以内某数的阶乘9、程序改错，求100以内奇数之和10、输入学生成绩，显示相应等级（结构）11、图形打印（三角形）12、用字符串函数()和转换函数()填空13、对数组赋值并求和14、利用函数，把变成15、输入10个数，求最大值最小值和平均值16、输入公里数，计算车费17、已知两边和夹角，求三角形面积18、输入学生成绩，显示相应等级（结构）19、学生成绩转换（结构）20、求100以内能够被19整除的个数1、完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。

1()xn , i , sa(1 5)i = 1 5a(i) = (("请在输入第" + (i) + "/5个数"))a(i);ii = 1 ①= a(i): m = ix = i + 1 5②= a(x): m = xxk = a(i): ③: a(m) = ki"从小到大排序后的数据为："i = 1 5a(i);i2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。

1()a, b, c, q, sa = (1)b = (2)c = (3)q = (a + b + c) / 2(a + b) <= c (a + c) <= b ①(b + c) <= a"不能构成三角形"s = ②(q * (q - a) * (q - b) * (q - c))"三角形的面积是" & s③3、删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。

信息技术学业水平测试VB操作复习题目含答案

End sub
信息技学水平 VB操作复目含答案
VB操作一
Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 s(i) = Val(InputBox("请输入一个数")) Next i For i = 9 To 0 Step -1 Print s(i) Next i
②
a=①
③
s=②
b=③
Next k
Print s
End Sub
信息技学水平 VB操作复
目含答案
a = a+b s = s+b/a b = a+b
Private Sub Command1_Click() Dim i As Integer Dim s As Integer i=1 s=0 Do While i <= 99 s=s+① i=② Loop Print "s=" & ③
目含答案
Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i For i = 1 to 9 For j = i+1 to 10 If a(i) > a(j) Then a(0) = a(i) a(i) = a(j) a(j) =a(0) End If Next j Next i For i = 1 To 10 Print CStr(a(i)) Next i
t = Val(①)
If ② Then
Label1.Caption = "超重！不能参赛！" Else

高二信息技术vb题库整理10套

第一套综合试卷一、单项选择题，每题2分，25 题共50分【第1题】金山快译把“你叫什么名字?”翻译成“What's your name?”，这属于 BA、语音识别B、机器翻译C、专家系统D、智能代理【第2题】下列文件中不能用音频播放软件打开的是 DA、歌唱祖国.mp3B、青花瓷.midC、校园的早晨.wavD、江苏风情.tif【第3题】小明家的电脑运行Photoshop软件时总出现异常画面。

为了解决问题，他想到了到论坛发帖求助的方法，为此他需要将该程序的异常画面截取下来。

下列方法 D中，最简便的是A、使用扫描仪B、安装专业屏幕截图软件再截图C、使用数码相机拍摄D、使用“PrintScreen”键截屏【第4题】利用Excel电子表格存储学生信息，为了输入诸如“008104”格式的学号信息，单元格的属性需要设置成 BA、数值B、文本C、特殊D、常规【第5题】下列选项中，不属于视频文件格式的是 DA、aviB、mpegC、movD、MP3【第6题】信息资源管理非常重要，是因为 AA、信息资源管理可以提高信息资源的利用效率B、信息资源只有经过管理后，才能被人们利用C、不经过管理的信息资源是没有利用价值的D、信息资源管理不可以提高信息的使用价值【第7题】下列选项中，属于制作动画的常用软件是 BA、PhotoshopB、FlashC、WPSD、ACDSee【第8题】图形符号在算法描述流程图中表示 DA、算法的开始或结束B、输入输出操作C、处理或运算的功能D、判断条件是否满足需求【第9题】在VB中，表达式Cos(0)的结果是 BA、0B、1C、约等于3.14D、出错【第10题】在标签“lblname”上显示存储姓名的变量“name”的值，正确的语句是 AA、lblname.caption = nameB、lblname.text = nameC、name = lblname.captionD、name = lblname 【第11题】在VB中，下列赋值语句正确的是 CA、x + y = 20B、3x = yC、y = x + 20D、S=2Л * r * r【第12题】如下VB程序段For i = 1 To 3 Step 2Print "VB";Next i执行后，语句Print "VB"执行的次数是 BA、1B、2C、3D、4【第13题】已知a=8、b=6，以下程序段If (a Mod 3 = 0) Or (b Mod 3 = 0) Thenc = a * bElsec = a + bEnd If执行后变量c的值为 AA、48B、14C、8D、6【第14题】下列关于解决问题过程的叙述，错误的是 AA、计算机解决问题和人类解决问题的过程是完全相同的B、人类会创造性地解决问题C、计算机解决问题必须针对一定对象，按一定步骤去做D、人类的思维有跳跃性、抽象性、模糊性【第15题】Visual Basic、Java属于 DA、自然语言B、机器语言C、汇编语言D、高级语言【第16题】在VB中，能够使文本框text1显示“你好”（不含引号）的代码是 CA、Print text1.Text = "你好"B、text1.Text = 你好C、text1.Text = "你好"D、text1.Font = "你好"【第17题】关于排序，下列叙述正确的是 CA、排序就是把数据从小到大排出顺序，反之不行B、对字符型数据排序时，不区分大小写C、对数值型数据和字符串型数据都能进行排序D、字符串型数据要转换成ASCII码才能进行排序【第18题】下列关于因特网发展的叙述，错误的是 DA、启用IPv6地址后，移动电话、冰箱都能拥有IP地址B、Web2.0的核心是互动、分享和创新C、云计算是一种网络服务D、物联网将会取代因特网【第19题】某同学搜索到“智能五笔安装程序.rar”的链接，要下载这个文件，下列操作中可行的是 AA、右击该链接，执行“目标另存为”命令B、右击该链接，执行“保存”命令C、打开“文件”菜单，执行“文件另存为”命令D、收藏该链接【第20题】下列选项中属于搜索引擎的是 CA、CutFTPB、FlashGetC、BaiduD、WinRAR【第21题】为了预防地震等不可预测的灾难对数据安全的影响，一般会 BA、在保险柜里存一份B、进行异地备份C、安装灾害预测系统D、进行本地备份【第22题】在计算机存储器中，一个字节可以存放 BA、一个汉字B、一个英文字母C、一个大于255的整数D、一个256-512之间的任意整数【第23题】根据提供的《常用字符与ASCII码对照表》(部分)，在VB中，表达式Asc("B") + Int(3.14)的值为 DA、68B、70C、67D、69【第24题】下列三个图片均是用画图软件生成的24位位图，且尺寸均为60*30像素，其各自占用存储空间情况为 DA、colours.bmp最小B、red.bmp最大C、white.bmp最小D、一样大【第25题】用户可利用Windows的搜索功能查找磁盘上的文件（如图所示），B从图中可以知道查找的是D盘中的A、一个文件名为“*.bmp”的文件B、所有bmp位图文件C、一个文件名为“*”的bmp位图文件D、所有文件二、操作题，每题 10分，5 题共50分【第1题】打开“Z:\730\工程1.vbp”进行以下操作后并保存。

高中信息技术学业水平测试 VB操作题

2012年江苏高中信息技术学业水平测试vb操作题带答案

高中信息技术会考vb选修操作题答案

山东高中信息技术学业水平测试VB算法真题

高中信息专业技术VB专项题(学考)

VB考试高中试题及答案

信息技术高中会考VB模块操作题题库演示教学

高中信息技术学业水平考试VB程序复习题

2012年江苏高中信息技术学业水平测试vb操作题带答案

高中信息技术VB专项题(学考)

2012年江苏高中信息技术学业水平测试vb操作题带答案

(完整word版)高中信息技术经典操作题VB代码

信息技术高中会考VB模块操作题题库

高中信息技术考试vb程序题及答案

高中信息技术会考(VB部分)练习

高中信息技术学业水平测试-VB操作题

信息技术学业水平测试VB操作复习题目含答案

最新信息技术高中会考VB模块操作题题库

高二信息技术vb题库整理10套