高中信息技术学业水平测试 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秒。
2023年浙江省高中信息技术学考VB知识点汇总
VB知识点汇总一．算法：指处理问题旳措施。
二．算法旳特性：1.有穷性。
算法旳有穷性是指算法必须能在执行有限个环节之后终止。
2.确切性。
算法旳每一环节必须有确切旳定义，不能有歧义。
3.输入项。
一种算法有0个或多种输入，以刻画运算对象旳初始状况，所谓0个输入是指算法自身定出了初始条件。
4.输出项。
一种算法有一种或多种输出，以反应对输入数据加工后旳成果。
没有输出旳算法是毫无意义旳。
5.可行性。
算法中执行旳任何计算环节都是可以被分解为基本旳可执行旳操作步，即每个计算步都可以在有限时间内完毕（也称之为有效性）。
1.自然语言。
2.流程图。
3.程序代码。
4.伪代码。
四．对象：具有某些特性旳详细事物旳实体。
五．类：是对同种对象旳集合与抽象，它包括这种对象旳属性描述和行为定义。
（VB工具箱中旳控件就是类，设计窗体时，将它们放在窗体上时就是该类旳对象。
）前面旳label1是对象名称，背面旳label是控件名，也就是类名称。
六．属性：对象旳特性、名称、大小、形状、颜色及功能被称为属性。
属性旳表达：对象名.属性名如：text1.text指文本框中旳值属性值旳设置：对象名.属性名=属性值如：label1.caption=”苹果”注意：这里旳“=”是赋值号，不是等号，因此这是一句赋值语句。
七．措施：对象能完毕旳动作。
如：输出语句 prnit “223”中旳print就是一种措施。
八．事件：指对对象旳一种调用。
如：command1_click 按钮上旳单击事件请注意格式：对象名_动作九．常用控件及属性：控件名称属性名称属性含义Label（标签）caption 标签上显示旳文本（属于字符串）Textbox（文本框）text 控件中包括旳文字（属于字符串）Commandbutton(按钮) caption 按钮上显示旳文字Timer（计时器）enabled 设置计时器与否可用interval 设置计时器触发旳间隔时间。
（单位：毫秒）Image(图像) picture 制定显示旳图像文献其他属性：1.alignment: 文本旳对齐方式2.font：字体3.backcolor:背景颜色4. visible: 设置对象与否可见5.enabled:设置对象与否可用十．基本数据类型十一.常量1.直接常量：直接在程序中使用常数2.符号常量：符号常量旳定义： const 常量名=常数如：const pi=3.14然后在程序中但凡要用到3.14这个常数旳地方，都用pi来替代就行了。
信息技术学业水平测试VB套操作题复习及答案
b = Val(Text2.Text)
c = Val(Text3.Text) If a > b Then max = a Else max = b
If c > max Then max = c
Label3.Caption = CStr(max) End Sub
VB操作二打不开
VB操作三
Private Sub Command1_Click() Dim s As Single Dim q As Single
a = i \ 100 b = (i - a * 100) \ 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i Next i End sub
VB操作一
Private Sub Command1_Click() Dim s(9) As Single
VB操作三
Private Sub Command1_Click() Dim year As Integer year = Val(InputBox("请输入年号:"))
If ((year Mod 4 = 0) And (year Mod 100 <> 0)) Or (year Mod 400 = 0) Then
VB操作一
Private Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = "" For i = 1 To Len(Text1.Text) temp1 = Mid(x, i, 1) temp2 = 9 - temp1
信息技术学业水平测试VB套操作题复习及答案64页PPT
1、合法而稳定的权力在使用得当时很 少遇到 抵抗。 ——塞 ·约翰 逊 2、权力会使人渐渐失去温厚善良的美 德。— —伯克
3、最大限度地行使权力总是令人反感 ；权力 不易确 定之处 始终存 在着危 险。— —塞·约翰逊 4、权力会奴化一切。——塔西佗
5、虽然权力是一头固执的熊，可是金 子可以 拉着它 的鼻子 走。— —莎士 比
6、最大的骄傲于最大的自卑都表示心灵的最软弱无力。——斯宾诺莎 7、自知之明是最难得的知识。——西班牙 8、勇气通往天堂，怯懦通往地狱。——塞内加 9、有时候读书是一种巧妙地避开思考的方法。——赫尔普斯 10、阅读一切好书如同和过去最杰出的人谈话。——
信息技术高中会考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操作题知识点
高二信息技术会考vb操作题知识点信息技术作为一门重要的学科，已经成为了现代社会中不可或缺的一部分。
而在高二信息技术会考中，VB操作题是一项重要内容。
掌握VB操作题的知识点对于高二学生来说尤为关键。
本文将介绍高二信息技术会考VB操作题的知识点，以帮助学生更好地备考。
一、VB操作题的基本概念及特点VB操作题即使用Visual Basic编程语言完成的题目，它具有以下基本特点：1.1 题目要求：VB操作题涉及到程序设计和问题解决，要求学生根据给出的题目要求，使用VB语言编写相应的程序代码，并能实现问题求解。
1.2 题目形式：VB操作题可以是开放性的问题，也可以是给定的具体问题。
学生需要根据题目要求，设计出符合题目要求的程序代码。
1.3 程序设计思路：学生在解答VB操作题时，需要先明确题目的需求，然后分析问题，设计出解决问题的程序思路，并用VB语言编写程序代码，最后运行程序进行验证。
二、VB操作题常见知识点2.1 变量与数据类型：在VB操作题中，学生需要熟悉VB语言中的变量的概念和使用方法，以及各种常见的数据类型，如整型、浮点型、字符型等。
学生需要根据题目需求，选择合适的数据类型，以便在程序中存储和处理数据。
2.2 运算符和表达式：VB操作题中常常涉及运算符和表达式的使用，学生需要熟悉各种运算符的优先级和使用方法，能够根据题目要求，正确地运用运算符和表达式进行计算。
2.3 条件语句和循环语句：条件语句和循环语句是VB操作题中常用的控制结构。
学生需要理解条件语句和循环语句的基本概念和使用方法，并能够根据题目要求，设计出符合题目要求的条件和循环结构。
2.4 数组：数组是VB操作题中常用的数据结构。
学生需要熟悉数组的定义和使用方法，能够根据题目要求，正确地使用数组进行数据的存储和读取。
2.5 函数和子程序：函数和子程序是VB操作题中用于实现程序模块化和代码重用的重要手段。
学生需要理解函数和子程序的概念和使用方法，并根据题目要求，设计出合适的函数和子程序，以便实现程序的模块化和代码的重用。
高中信息技术学业水平考试专题复习VB程序典型错误分析
高中会考专题复习——Visual Basic 程序调试典型错误分析VB 中常见的程序调试错误可分为编译错误、实时错误两大类。
一．编译错误编译错误是指在程序编译过程中出现的错误。
在编写程序时，如果语句不符合Visual Basic 的语法规则，就会产生这类错误。
的语法规则，就会产生这类错误。
例如，输入了不正确的关键例如，输入了不正确的关键字、遗漏了某个必需的标点符号、缺少表达式、类型不匹配或者应该配对的语句没有配对等，都会产生编译错误。
典型错误举例1（如图1所示）程序代码：For i=0to 10If I mod 2=0ThenPrint iNext iEnd lf 图1错误原因：块If 语句必须有配对的End If 语句，For 语句必须有配对的Next 语句，如果没有正确配对必然发生错误。
典型错误举例2（如图2所示）程序代码：Private Sub Form_Load()Label1.Captin =DateEnd Sub图2错误原因：错误原因：代码中对象的属性或方法不存在，代码中对象的属性或方法不存在，代码中对象的属性或方法不存在，可能是代码输入错误，可能是代码输入错误，可能是代码输入错误，将方法将方法或属性的名称拼写错误。
本例中把“Caption”写成了“Captin”，发生了编译错误。
典型错误举例3（如图3所示）Private Sub Command1_Click()Lal1.Caption=Txt1.Text&"同学，您好！欢迎进入学习系统！"End Sub图3错误原因：VB编译系统认为语句没有结束，但是初学者出现这个错误的极大可能是在字符串连接运算符"&"的前后各少了一个空格。
典型错误举例4（如图4所示）程序代码：Private Sub Command1_Click()Dim x As SingleDim y As Singlex=-10y=Abc(x)Label1.Caption=Str(y)End Sub图4错误原因：本题错在y=Abc(x)，其中Abc(x)不是内置函数，如使用需要预先定义好。
vb高中会考试题操作题及答案
vb高中会考试题操作题及答案一、选择题1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 如果要声明一个变量用于存储字符串，应该使用哪种数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B3. 在Visual Basic中，以下哪个关键字用于定义一个子程序？A. FunctionB. SubC. DimD. Const答案：B4. 下列哪个选项不是Visual Basic中的控制结构？A. If...Then...ElseB. For...NextC. While...WendD. Switch...Case答案：D二、填空题1. 在Visual Basic中，使用________关键字可以声明一个变量。
答案：Dim2. 当需要在程序中显示消息框时，可以使用________函数。
答案：MsgBox3. 要实现循环结构，可以使用________循环或________循环。
答案：For...Next，While...Wend三、编程题1. 编写一个Visual Basic程序，计算并输出1到100之间所有奇数的和。
答案：```vbDim sum As Integersum = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum = sum + iEnd IfNext iMsgBox("1到100之间所有奇数的和为：" & sum.ToString())```2. 编写一个Visual Basic程序，实现一个简单的计算器，能够计算两个数的和。
答案：```vbDim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = Val(InputBox("请输入第一个数："))num2 = Val(InputBox("请输入第二个数："))result = num1 + num2MsgBox("两数之和为：" & result.ToString())```四、简答题1. 简述Visual Basic中事件处理的基本结构。
高一信息技术会考vb操作题归纳
要求掌握的典型操作题1、输入两个数存在相应的变量中,并交换两个变量的值.…X=inputbox“x=”Y=inputbox“y=”Z=XX=YY=Z…拓展：不需要中间变量Z,交换两个变量的值.…X=X+YY=X-YX=X-Y…2、输入两个数存在相应变量中,输出最大数…X=inputbox“x=”Y=inputbox“y=”IfX>YthenMax=XElseMax=yEndifPrintMax拓展一：不需要Max变量IfX>YthenPrintXElsePrintYEndif拓展二：…Max=XIfX<YthenMax=yEndif…拓展三：…Max=X+Y/2+ABSX-Y/2拓展四：若要求输出最小值,以上三个程序哪些地方需要修改3、分段函数.…X=inputbox“x=”IfX<3thenY=XXElseY=2X+1EndifPrint拓展：类似分段函数某超市促销苹果,购买一斤苹果,为每斤3元,购买5斤以下每斤原价；超过5斤部分每斤打8折,输入购买的斤数,输出应付款额.…apple=inputbox“apple=”ifapple<=5thenmoney=3appleelsemoney=35+apple-530.8endifprintmoney4、一元二次方程求根：ax2+bx+c=0…a=inputbox“a=”b=inputbox“b=”c=inputbox“c=”d=bb-4acIfd>=0thenX1=-b+sqrd/2aX2=-b-sqrd/2aPrintx1,x2ElsePrint“无实解”Endif5、判断三个数是否能构成三角形的条件1假设是三个正数a,b,c条件是：a+b>candb+c>aandc+a>b2假设是三个数a,b,c条件是：a+b>candb+c>aandc+a>banda>0andb>0andc>0 6、累加：求s=10+30+50+…+550…S=0Fori=10to550step20S=S+iNEXTiPRINTS拓展一：…S=0Fori=550to10step-20S=S+iNEXTiPRINTS拓展二：求s=1+1/2+1/3+……+1/99+1/100之和…S=0Fori=1to100step1S=S+1/iNEXTiPRINTS7、累乘：求s=246……100之和.…S=1Fori=2to100step2S=SiNEXTiPRINTS8、计数同于累加,只是每次累加1输出1-1000中被4整除,或能被9整除的数有多少个…S=0ForA=1to100step1 IfAmod4=0ORAmod9=0then S=S+iEndifNEXTAPRINTS。
(完整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知识点
语句块
Loop
8．过程和函数
（1）过程分成两类，一类是事件处理过程，另一类是通用过程。
事件处理过程： Sub 事件处理过程名（参数表）
语句块
End Sub
其中，事件处理过程名必须符合下面的规则：对象名_事件的标准名。
VB的一些常用对象上的常见事件的标准名有：
文本框Text：Text_Click、Text_DblClick、Text_KeyPress
11．VB 标准函数 Rnd 函数的作用是返回一个大于等于 0 且小于 1 的随机实数，只产生大于
等于 10 且小于 100 随机整数的 VB 表达式是……………………………………………( )
（A）Int(Rnd*100)
（B）Int(Rnd *90 +10)
（C）Int (Rnd *99 +1)
（D）Int ( Rnd *99+10 )
（A）有而且只有一对
框 （B）不一定有
框
（C）不一定有
框
（D）分支结构中一定有
框
2. 在 VB6 的控件工具箱中，形状为 的控件名称是……………………( )
（A）标签
（B）文本框
（C）命令按钮
（D）列表框
3. 下列各组控件都具有 Caption 属性的是……………………………( )
（A）窗体、文本框 （C）窗体、标签
命令按钮Command：Command_Click、Command_DblClick
标签Label：KeyPress
（2）自定义函数： Function 函数名（参数表） As 类型名
语句块
End Function
9．VB应用程序的保存
窗体文件
信息学考知识点详解-VB部分
五、算法及其实现1.算法的概念：解决问题的方法和步骤。
2.算法的特征：有穷性（有限性）、确定性、有零个或多个输入、有一个或多个输出、可行性。
3.算法的描述：自然语言、流程图、计算机语言等。
4.程序的基本控制结构①顺序结构顺序结构是按语句的先后次序依次执行的程序控制结构。
②分支结构分支结构又称为选择结构。
根据条件判断其是否成立，从而选择程序执行的方向，执行其中的一个分支。
③循环结构分支结构循环结构Visual Basic是一种可视化的、面向对象和采用事件驱动机制的结构化高级程序设计语言。
5.对象、属性、事件和事件处理的概念。
(1)对象是客观存在的事物或概念。
它有两个特点：状态和行为。
常用对象Form,Command、Text、Label、Image、picture、list、Timer(2)一个对象的状态是通过若于个属性(property)来描述的；行为是指对属性进行操作和处理的方法(Method)。
在面向对象的程序设计中，一个对象是由一组表示对象状态的数据和一组描述处理对象属性的方法的代码构成的。
对象的属性定义其外观，方法定义其行为，事件定义其与用户的交互。
（3）属性窗口（4）常用对象及其属性①Form1窗体对象 属性名: Caption 属性值：Hello!②Label1标签对象属性名: Caption 属性值：输入字母：③Text1文本框对象属性名:Text 属性值：123456④Command1按钮对象属性名:Caption 属性值：运行⑤List1列表框对象属性名:list 属性值：暂时空着⑥ Image1图像对象 属性名:Picture 属性值：加载的图片⑦Timer1时钟对象（运行时该对象隐藏） 属性名:Interval 属性值：1000（即每隔1秒钟触发一次时钟控件）（5）事件(Event)就是发生在对象上的事情，通常是由用户在对象上激发的一种动作。
常见事件：单击事件Click( )，双击事件DblClick( )， 载入Load( ) ，定时事件timer( )、按键keypress( ) (6)事件处理过程—个事件的发生，可以引起某个对象上某个方法(事件处理过程)的执行，即由某个事件驱动了相应的事件处理过程的执行。
高中信息技术考试vb程序题及答案
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程序设计操作题演示
Dim m as integer,n as integer
__m___=128 If m__<_=__7_0_ then __n_=_4__*m__ _e_l_s_e____
n=__4_*_7_0__+_6_*_(_m-70)
End if
Func=“房租费n=”&n
11、已知圆柱的底面积R为6，高H为 11，下列程序的功能是计算圆柱的 体积V（∏的取值3.14） 。
Func=s
6、已知变量a的值是3，b的值是4，下列 程序的功能是将a，b两个变量的值相互 交换后输出。
Dim s as single Dim b as single Dim t as single A=3 B=4 T=a
_a_=__b____ __b_=__t ___
Func=“a=“&a&”b=“&b
1、从键盘输入圆的半径R，输出圆的周 长L和面积S。
Dim R As Single Dim L As Single Dim S As Single
_R____=InputBox("输入半径R ")
L=＿2*＿3.＿14＿*R S=＿3.1＿4＿*R＿*R＿
Print "圆的周长L= ";L Print "圆的面积S= ";S
7、已知长方体的长A为5，宽B为6，高 H为20，下列程序的功能是计算长方体 的体积V。
Dim a as single Dim b as single Dim h as single Dim v as single A=5 B=6
HV==_2_0_A__*_B_*_H_____
Func=“长方体的体积V＝”&v
信息技术学业水平测试VB操作复习题目含答案
信息技学水平 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
- 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 5???嘠污?灮瑵潂?请在输入第+ Str(i) + \/5个数))Print a(i);Next iPrintFor i = 1 To ___①__Min = a(i): m = iFor x = i + 1 To 5精品文档．精品文档If ___②___ Then Min = a(x): m = xNext xk = a(i): ____③___: a(m) = kNext i牐湩?从小到大排序后的数据为：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 Then牐湩?不能构成三角形Elses = ___②___(q * (q - a) * (q - b) * (q - c))牐湩?三角形的面积是& 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 ___②____ Then慌敢??灡楴湯?尠该年是闰年！Else慌敢??灡楴湯?尠该年不是闰年！___③____End Sub5、（1）删除①②及下划线，填空完成程序。
（2）完善程序代码实现:手动输入0到10以内的一个整数，如果这个数字正好等于随机产生的整数（0到10之内），'那么输出恭喜您猜中了！，否则输出谢谢，重在参与！。
Private Sub Command1_Click()Dim i, j As IntegerRandomizei = ___①___??慖?湉異?硯尨请您输入一个0-10之间的整数:))牐湩?您选中的数字为：& j牐湩?随机产生的数为：& iIf ____②___ Then牐湩?恭喜您猜中了！Else牐湩?谢谢，重在参与！End IfEnd Sub精品文档．精品文档6、凡在商场消费满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、中输出电费。
收费标准：家Text2后，在在Text1中输入每月用电量，单击按钮应收电费度每度电费用增400260度，不超过度收费；度按原价庭每月用电量不超过2601.3元/超过元。
0.30.1加元；超过400度后每度电费用增加Private Sub Command1_Click()Dim i As Single精品文档．精品文档i =____①___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)____③彟???…元End Sub8、完善程序代码实现:任意输入一个1到100以内的整数，并求出它的阶乘。
Private Sub Command1_Click()Dim i As IntegerDim j As IntegerDim s As Doubles = ___①___??慖?湉異?硯尨请您输入一个1到100以内的整数))For j = 1 To is = ___②_____③___牐湩??…的阶乘等于& 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 < 60慌敢??灡楴湯?尠该学生的成绩等级为：DCase 60 To 69慌敢??灡楴湯?尠该学生的成绩等级为：CCase 70 To 84慌敢??灡楴湯?尠该学生的成绩等级为：BCase 85 To 100慌敢??灡楴湯?尠该学生的成绩等级为：ACase Else慌敢??灡楴湯?尠输入的数据不合法____③___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 =For i = 1 To ____①______str2 = UCase(str1)str1 = str2 & str1str3 = str3 & str1str1 = Chr(Asc(str1) + ____②_____)______③_______Print str3End Sub13、'删除①②③及下划线，填空完成程序。
'程序运行后，单击“初始值”命令按钮对数组a的各元素赋值；'单击“求和”命令按钮，求出数组a的各元素之和，并在Text1中显示出来'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Dim a(4, 3) As IntegerDim i, j As IntegerPrivate Sub Command1_Click()For i = 0 To 3精品文档．精品文档For j = 0 To 2_____①_____ = i + jNext jNext iEnd SubPrivate Sub Command2_Click()For j = 0 To 3For i = 0 To 2s = s + _____②______Next iNext jText1.Text = ______③_______End Sub14、'（1）删除①②③④及下划线，填空完成程序。
（'2）程序运行后，从键盘上输入“abcd”，单击确定按钮后，在标签Label1中显示出“BCD”'注：请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。