高中信息技术-VB程序的调试-会考复习题
高中信息技术 VB程序的创建 浏览题阅览题 会考复习题
高中信息技术VB程序的创建会考复习题学校:___________姓名：___________班级：___________考号：___________一、选择题1．能正确表达“a≤1或a≥5”的VB逻辑表达式是_______。
A、a<=1 或a>=5B、a<=1,a>=5C、a<=1 or a>=5D、a<=1 and a>=5【答案】C【解析】2．在Visual Basic的代码窗口中，语句List1.Clear中的Clear是（）A、属性值B、属性名C、对象名D、方法【答案】D【解析】3．以下属于操作系统的是（）Windows B．JAVA C．C++ D．Visual Basic【答案】A【解析】4．VB中窗体文件的扩展名为( )A．.vbp B．.frm C．.bas D．.ds【答案】B【解析】5．在VB中，下列正确的变量名是（）A、forB、aa_1C、2aD、a*b【答案】B【解析】6．如果想在程序中反复使用一个数值3.14，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到的这个数据的语句，可以采用（）。
A、将这个数据声明为字符串型常量，用一个常量标识符代表它B、将这个数据声明为字符串型变量，用一个变量标识符代表它C、将这个数据声明为单精度型常量，用一个常量标识符代表它D、将这个数据声明为单精度型变量，用一个变量标识符代表它【答案】C【解析】7．在Visual Basic代码中，将多个语句合并在一行上的并行符是( )A．撇号（'）B．冒号（:）C．感叹号（!）D．问号（?）【答案】B【解析】8．下列表达式值最大的是（）A．10 Mod 5 B．5 Mod 10 C．10 / 5 D．5 / 10【答案】B【解析】9．ual Basic中窗体文件的扩展名为（）A．exe B．frm C．vbp D．vbw【答案】B【解析】10．在Visual Basic中，下列能产生一个[1，100]之间随机正整数的表达式是（）A．Rnd*100 B．1+Rnd*99C．Int(Rnd*100) D．1+Int(Rnd*100)【答案】D【解析】11．VB中窗体文件的扩展名是( )A．VBP B．FRM C．VBW D．PDM【答案】B【解析】12．下列多媒体创作工具中，属于以程序设计语言为基础的是（）A．Authorware IconAuthor B．Director FlashC．PowerPoint Action D．Visual C++ Visual Basic【答案】D【解析】13．如下图所示，在Visual Basic工程设计中，要在命令按钮command1中显示“确定”，则下列操作正确的是( )A．在Text属性值中输入“确定”B．在Caption属性值中输入“确定”C．在Font属性值中输入“确定”D．在Name属性值中输入“确定”【答案】B【解析】14．在Visual Basic中，语句command1.caption="高一"中的caption是( )A．属性名B．属性值C．对象名D．窗体名【答案】A【解析】15．在Visual Basic中，执行语句x=Asc(Chr(Abs(-70)))，则变量x的数据类型是（）A．实数型B．字符型C．整数型D．逻辑型【答案】C【解析】16．在日常生活中，我们常常会碰到各种各样的问题，以下描述中最适合我们用计算机编程方法来处理的是（）。
高中会考信息技术vb试题及答案
高中会考信息技术vb试题及答案1. 单选题：在VB中，下面哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A2. 判断题：VB中的所有变量都必须在使用前声明。
答案：正确3. 填空题：在VB中，使用_________语句可以结束程序的执行。
答案：End4. 简答题：请描述VB中事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，其中程序的执行流程由外部事件（如用户输入、系统消息等）触发。
在VB中，程序通常在响应事件（如按钮点击、鼠标移动等）时执行代码，而不是按照预先定义的顺序执行。
5. 编程题：编写一个VB程序，实现输入两个整数，输出它们的和。
答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(InputBox("请输入第一个整数："))num2 = Val(InputBox("请输入第二个整数："))sum = num1 + num2MsgBox "两个数的和为：" & sum```6. 多选题：在VB中，以下哪些控件可以用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CommandButton答案：A、B7. 填空题：在VB中，使用_________函数可以将字符串转换为整数。
答案：Val8. 简答题：请解释VB中的数组是什么，并给出一个创建数组的示例。
答案：数组是一组相同数据类型的元素的集合，它们在内存中连续存储。
数组可以用于存储和处理多个数据项。
创建数组的示例：```vbDim numbers(4) As Integernumbers(0) = 10numbers(1) = 20numbers(2) = 30numbers(3) = 40numbers(4) = 50```9. 编程题：编写一个VB程序，实现输入一个字符串，然后输出该字符串的逆序。
高中信息技术会考(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会考上机程序题汇总
信息技术（选修）☆输入2个数，实现2个数的互换：a=text1.textb=text2.textt=aa=bb=ttext3.text=atext4.text=b☆输入秒数，输出时分秒：a=text1.texth=a\3600 …计算小时部分m=(a-3600*h) \60 或m=(a mod 3600) \60…计算分钟部分s=a mod 60 …计算秒部分text2.text=h & “小时” & m & “分” & m & “秒”☆输入一个年份，判断是否是闰年：Y=text1.textIf (y mod 4=0 and y mod 100<>0 ) or y mod 400=0 thenText2.text=”是闰年”ElseText2.text=”非闰年”End if☆求S=1+2+3+……+NN=text1.textS=0For i=1 To NS=S+iNext iPrint “S=”;S☆求S=1+3+5+……+(2*N -1 )N=text1.textS=0For i=1 To (2*N -1) step 2S=S+iNext iPrint “S=”;S 程序题汇总☆求S=1-2+3-4……+NN=text1.textS=0For i=1 To NS=S+I *（-1）^ ( i+1 )Next iPrint “S=”;S☆求S=1+1/2+1/3+……+1/NN=text1.textS=0For i=1 To NS=S+ 1/ iNext iPrint “S=”;S☆求S=1/2+2/3+3/4……+N/(N+1)N=text1.textS=0For i=1 To NS=S+ i/ (i+1)Next iPrint “S=”;S☆输入三角形三边，判断能否构成三角形，如可以则输出面积，否则输出“不能构成三角形“，设三边是a,b,c，q=(a+b+c)/2，则面积s=sqr （q*(q-a)(q-b)(q-c)）：a=text1.textb=text2.textc=text3.textq=(a+b+c)/2if (a+b)>c and (b+c)>a and (a+c)>b thens=sqr（q*(q-a)(q-b)(q-c)）text4.text = “三角形面积是” & selsetext4.text = “不能构成三角形”end if☆统计100以内能被3整除的数的个数：Dim n as integern=0For i=1 to 100If i mod 3 = 0 thenn=n+1 …n当作计数器，符合条件就+1 end ifnext iprint n☆输入5个数，输出其中的最大值：Max=inputbox(“输入一个数”)For i=1 to 4x=inputbox(“输入一个数”)If max<x thenMax=xEnd ifNext i☆输出以下图形：***************For i=1 To 5‘控制行for j=1 to i‘控制列Print “ * ” ;Next jPrint …换行Next i☆输出九九乘法表：For i=1 To 9 ‘控制行for j=1 to i‘控制列Print i & “×” & j & “ = ” & i*j & “” ; Next jPrint …换行Next i ☆输入一个学生的成绩，判断其优（80以上），良（60-80），不及格：Score=Text1.textIf score>=80 thenPrint “优”Elseif score<60 thenPrint “良”ElsePrint “不及格”End ifEnd if☆求5*6*…*25的积Dim I As IntegerDim S As DoubleS = 1For I = 5 to 25 Step 1S = S * INext IPrint "求5*6*…*25的积："; S☆求1011910897867564534232+++++++++的值。
高中信息技术-VB应用程序的界面设计与调试-浏览题阅览题-会考复习题
1 / 29高中信息技术 应用程序的界面设计与调试 浏览题阅览题 会考复习题学校姓名：班级：考号：1．窗体装载事件过程可以对程序进行初始化。
窗体装载事件过程的名称是（ ）A ．1B ．C ．D ．【答案】C【解析】2．对输入的两个整数a 和b ，找出其中的较大者赋给c 并输出。
解决该问题的算法流程图如右图所示，流程图中虚线框部分的内容可为【答案】D【解析】3．能得到一个大于等于20且小于50随机整数的表达式是（）A． (*50)-20B． (*30+20)C． (*31+20)D． (*30)+1【答案】B【解析】4．在的代码窗口中，语句1中的是（）A、属性值B、属性名C、对象名D、方法【答案】D【解析】5．在工程设计中，双击窗体中的对象后，出现的是( )A、工程窗口B、工具箱C、代码窗口D、属性窗口【答案】C【解析】6．有如下程序段，该程序段运行后c的值是（）”360” : ”” : (a)(b)A．”360” B． 360 C．364 D．7 【答案】C【解析】7．如下所示在< ””>和<>之间的文本不能正常显示出来，是因为浏览器比较老，不支持样式表语法。
若要避免这种情况的发生（）< ””>h3{:”宋体”;;;}<>A．必须更新新的浏览器B．只要加入< 和 >代码C．只要加入D．以上都不对【答案】B【解析】8．有如下程序段：= 3 = 41 = “*”3 / 29该程序段运行之后，标签1将显示（）A．3*4 B．12C．* D．3*4=12【答案】C【解析】9．某的事件过程如下：1()aa = (1)a = 2 * a + 11 = (a)程序运行时，在文本框1中输入1，连续两次单击命令按钮1后，1中显示的内容是（）A．7 B．5 C． 3 D． 1【答案】A【解析】10．（）不是程序设计中的高级语言。
A． B． C． D．【答案】A【解析】11．如果想在程序中反复使用一个数值3.14，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到的这个数据的语句，可以采用（）。
高中信息技术学业水平考试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存放的是个位数字。
高中会考vb试题及答案
高中会考vb试题及答案高中会考VB试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. Dim x As Integer = 10答案：B2. 下列哪个是Visual Basic中的循环结构？A. IfB. ForC. Select CaseD. Sub答案：B3. Visual Basic中的“End”语句用于结束什么？A. 程序B. 过程C. 循环D. 条件答案：B4. 在Visual Basic中，以下哪个不是内置的控件？A. LabelB. TextBoxC. ButtonD. Slider答案：D5. 下列哪个是Visual Basic中的数组声明方式？A. Dim arr(5) As IntegerB. Dim arr As Integer = 5C. Dim arr = New Integer(5)D. Dim arr As Integer(5)答案：A6. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10D. If x > 10 End If答案：A7. Visual Basic中，以下哪个是正确的函数调用？A. Call Print("Hello World")B. Print "Hello World"C. Call Print("Hello World")D. Print("Hello World")答案：D8. 下列哪个是Visual Basic中的事件？A. ClickB. EventC. FunctionD. Procedure答案：A9. 在Visual Basic中，以下哪个是正确的类声明方式？A. Class MyClassB. Dim MyClassC. Sub MyClassD. Function MyClass答案：A10. 下列哪个是Visual Basic中的错误处理语句？A. TryB. CatchC. FinallyD. All of the above答案：D二、填空题（每空2分，共20分）1. 在Visual Basic中，使用________来定义一个类。
信息技术会考VB程序综合题
信息技术会考 VB程序综合题1、典型题例：打开"考生文件夹\152"文件夹中的文件："工程1.vbp" 进行以下操作后并保存！李小姐忘记了自己的保险箱密码，但是她记得首尾数字为6和5（6□□5），密码能被69和95整除。
请您完善程序帮她找回密码！Private Sub Command1_Click()Dim a As LongFor a = 6005 To ___①___ Step 10If (a Mod 69 = 0) And (____ ② __) ThenPrint aEnd IfNext ____③___End Sub答案：① 6995② a mod 95③ a2、典型题例：打开"考生文件夹\154"文件夹中的文件："bmi.vbp" 进行以下操作后并保存！(1)界面设计，添加一个标签Label（其“名称”属性为Label3），在属性窗口中将其Top属性值设置为“2000”， Left属性值设置为“700”；(2)奥运会参赛选手要进行体重检查，他们的体检标准为：Bim=w/(h*h) ，其中w表示体重（单位为千克），h表示身高（单位为米）。
其值在20（包含20）至25（包含25）之间为“合格”，否则认为“不合格”。
完善程序，在文本框Text1中输入体重，文本框Text2中输入身高，单击“体检”按钮时，在标签Label3上输出健康状态；(3) 操作完后将该程序以原文件名保存。
Private Sub Command1_Click()Dim w As SingleDim h As SingleDim bmi As Singlew = Val(Text1.Text)h = Val(Text2.Text)bmi = ① '计算机bmi指数If bmi >= 20 And ② ThenLabel3.Caption = Str(bmi) + "合格" '输出bmi指数及健康状态ElseLabel3.Caption = Str(bmi) + "不合格" '输出bmi指数及健康状态③End Sub答案：①w/(h*h) 或w/h^2②bmi<25③endif3、典型题例：3、打开"考生文件夹\155"文件夹中的文件："biaozhang.vbp" 进行以下操作后并保存！（编程在字符串相连接时不应使用"+"要使用"&"运算符）(1) 设置窗体From1中按钮Command1的“Caption”属性值为“计算”；(2) 某学校开表彰大会，一、二、三等奖共30人。
高中信息技术学业水平测试(会考)信息技术科目Vb界面练习
4、为按钮1编写单击事件代码，要求单击“登陆”按钮后，标签控件内容变为“班级姓名座位号”。如“100*班张三33号”
Vb界面练习二
1、 新建一工程
2、添加相应的控件，两个文本框控件（text1和text2）；两个标签控件（label1和label2）；两个命令按钮控件（command1和command2）
4）在"简历"右侧画一文本框Text2,高为1500,宽为4335,设为多行文本输入,并有垂直滚动条;
5）保存文件.
3）插入一个命令按扭,标题为"单击进入",字体为黑体,小三号,按钮宽度2000。
4）保存结果。
Vb界面练习七
1）设窗体Form1的名称改为"Ct1";
2）在Ct1窗体上画两个标签Label1,Label2,标题分别为"姓名","简历",字体为楷体三号字;
3）在"姓名"右侧画一文本框Text1,清空内容;
3、设置各控件的相关属性，设置后界面如图所示
4、密码输入时在屏幕上以“*”代替;
提示：Text2控件的PassWordChar属性设置为“*”,作用：设置文本utton为false，minbutton为false）
Vb界面练习三
Label2
Vb界面练习四
Vb界面练习五
1）将窗体标题设为"课程选择";
2）在窗体上画一个名称为Label1标签,标题为"学号",字体为宋体,小二号;
3）在"学号"右侧画一个名称为Text1的文本框,宽为2300,高为555;
VB会考试题
VB程序设计语言命题试卷一、选择题（2分／题,共30分）（）1.下列不属于对象的基本特征的是 _A、属性B、方法C、事件D、类（）2．如果要改变窗体的标题，需要设置窗体对象的属性。
A、NameB、CaptionC、BackColorD、BorderStyle（）3A、双击鼠标可以触发DblClick事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发MouseMove事件D、控件的名称可以由编程人员设定（）4．在VB中程序注解可以加在下列哪个符号之后A、’B、/C、:D、!（）5. 通过改变单选按钮(OptionButton)控件的 _属性值，可以改变单选按钮的选取状态。
A、ValueB、StyleC、AppearanceD、Caption（）6. 下列 _关键字用于定义常量．．A、DimB、PublicC、ConstD、Private（）7.若A≤B或C≤D，则E=2，写作VB语句应为：If A<=B _C<=D then E=2A、XorB、AndC、<>D、Or（）A、 Width和HeightB、 Width或HeightC、 Top和LeftD、 Top或LeftA．Mid$(S,2,3) B、Middle(S,2,3)C、Right$(S,2,3)D、Left$(S,2,3)（）10．以下关系表达式中，其值为False的是 _A．“ABC”＞“AbC” B．“the”< >“they”C．“9”=“8” D．“Integer”＞“Int”（）11．在VB中，以下控件不能作为其他控件窗口的是A、框架B、图片框C、影像框D、窗体（）12．下列VB程序语句正确的是 _A、If A≥B Then T=A : A=B : B=TB、If A≥B Then T=A ; A=B ; B=TC、If A>=B Then T=A A=B B=TD、If A>=B Then T=A : A=B : B=T（）13．下面程序的循环次数是 _For j=8 To 35 Step 3Print jNext jEndA、10B、9C、27D、28（）14．在窗体中添加一个命令按钮Command1，并编写如下程序：Private Sub Command1_Click( )x=InputBox(x)If x^2=9 Then y=xIf x^2<9 Then y=1/xIf x^2>9 Then y=x^2+1Print yEnd Sub程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果是 _A．3 B．0.33 C．17 D．0.25（）15．下列程序段：Private Sub Form_Click()Dim i as integer,s As Integers=0：i=0while i>5i=i+1s=s+iwendPrint sEnd Sub程序运行后，窗体上显示的内容是 _A.0B.10C.15D.21二、填空题（2分／空，共20分）1．VB6.0是基于____________环境的程序开发工具。
vb高中会考试题及答案
vb高中会考试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 下列哪个选项不是Visual Basic中的控件？A. LabelB. TextBoxC. ButtonD. Excel答案：D3. 在Visual Basic中，哪个关键字用于声明一个过程？A. FunctionB. SubC. ClassD. Both A and B答案：D4. 在Visual Basic中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D5. Visual Basic中的哪个函数用于返回字符串的长度？A. LenB. LengthC. SizeD. Count答案：A6. 在Visual Basic中，以下哪个选项不是事件处理程序的正确写法？A. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickB. Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)C. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)D. Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 答案：B7. 在Visual Basic中，以下哪个选项是正确的数组声明方式？A. Dim myArray() As IntegerB. Dim myArray As Integer()C. Both A and BD. None of the above答案：C8. 在Visual Basic中，以下哪个关键字用于声明一个类？A. ClassB. StructureC. ModuleD. Interface答案：A9. Visual Basic中，哪个函数用于将字符串转换为大写？A. ToUpperB. UpperCaseC. ConvertToUpperD. ToUppercase答案：A10. 在Visual Basic中，以下哪个选项是正确的错误处理语句？A. On Error GoTo 0B. On Error Resume NextC. On Error Goto 0D. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
信息技术高中会考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[2016.4学考]14.编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。
（1）代码“Private Sub Command1_Click()”中的Click是。
（单选，填字母：A.对象名/B.属性名/C.事件名）（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()Dim a As Integer, b As IntegerDim i As Integer, n As IntegerDim c1 As String, s1 As StringDim c2 As String, s2 As StringDim c3 As String, s3 As StringList1.Clears1 = "甲乙丙丁戊己庚辛壬癸"s2 = "子丑寅卯辰巳午未申酉戌亥"s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"n = Val(Text1.Text)For i = n To ①a = (i + 6) Mod 10b = (i + 8) Mod 12c1 = Mid(s1, a + 1, 1)c2 = Mid(s2, b + 1, 1)c3 = Mid(s3, b + 1, 1)List1.AddItem ② + "年" + c1 + c2 + " " + c3Next iEnd Sub（3）由上述算法可知，2024年对应的“天干地支”为。
[2016.10学考]14.编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。
信息技术学业水平测试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．数组排序。
点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。
如图所示。
程序代码如下：Dim a(1 To 10) As IntegerDim i, j, k, kt As IntegerPrivate Sub Command1_Click()List1.Clear'清除列表框数据For i ＝1 To 10Randomize'随机数初始化a(i) ＝Int(Rnd() * 1000)List1.AddItem Str(i) ＋”＝” ＋Str(a(i))Next iCommand2.Enabled ＝True'激活排序按钮End SubPrivate Sub Command2_Click()For i ＝1 To 9k ＝iFor j ＝____①____To 10If a(j) > a(k) Then k ＝jNext jIf i <> k Then__②____End IfNext iList2.ClearFor i ＝1 To 10List2.AddItem Str(i) ＋” ＝” ＋Str(a(i))Next iEnd Sub请在①、②划线处填入合适的语句或表达式，把程序补充完整：程序中①划线处应填入__________________；程序中②划线处应填入__________________。
【答案】①I+1；②t=a（k）:a(k)=a(i):a(i)=t【解析】2．Sub test2()a = 12：b = 12：c = 5Label1.Caption = ""Label2.Caption = ""If a > b Or Not b<c ThenLabel1.Caption = "monday"ElseLabel2.Caption = "tiger"End IfLabel3.Caption =" Label1.Caption+" Label2.CaptionEnd sub该程序段运行后，在标签Label3的Caption属性值是( )A．"monday" B．"tiger" C．"mondaytiger" D．""【答案】A【解析】3．在窗体上画一个命令按钮，名称为command1，单击命令按钮，执行如下事件过程：Private Sub Command1_Click()Dim a As StringDim c As Stringa = "software and hardware"c = Mid(a, 14, 8)Text1.text = cEnd Sub则在文本框Text1中显示的信息是（）A、software and hardwareB、softwareC、hadrwareD、and【答案】C【解析】4．有如下Visual Basic程序段：s=1for i= 1 to 11 step 3s=s*inext i语句s=s*i共执行的次数为（）A．11 B．10 C．5 D．4【答案】D【解析】5．数学表达式“a>b>c”对应的VB表达式是（）A．a>b>c B．a>b and a>c C．a>b and b>c D．a>b or b>c【答案】C【解析】6．表达式abs(int(-2.88)+int(3.14))的值是（）。
A．5 B．0 C．1 D．2【答案】B【解析】7．对以下程序段的说法正确的是（）s=0i=0Do While s<10i=i+1s=s+i*iLoopA．该程序的循环体执行了3次B．该程序段结束后i的值为3C．该程序段结束后i的值为4D．该程序段结束后s的值为13【答案】ABD【解析】8．在Visual Basic代码中，将多个语句合并在一行上的并行符是( )A．撇号（'）B．冒号（:）C．感叹号（!）D．问号（?）【答案】B【解析】9．有如下一段VB程序。
Private Sub Command1_Click()Dim y As LongText1.Text = ""y = f(3)Label1.Caption = Str(y)End SubFunction f(n As Int eger) As LongText1.Text = Text1.Text + Str(n)If n <= 1 Thenf = 1Elsef = f(n - 1) + 2End IfEnd Function程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（）A． 1 B． 3 C． 123 D． 321【答案】D【解析】10．下列关于CommandButton 控件的叙述正确的是( )A． CommandButton 控件的Caption 属性决定按钮上显示的内容B．单击VB应用程序中的按钮，则系统激活按钮控件对应的Change 事件C． CommandButton 控件的name 属性决定按钮上显示的内容D．以上都不对【答案】A【解析】11．某Visual Basic工程的相关视图如下图所示：从图中信息可知，下列说法不正确的是( )A．窗体中有一个按钮对象，名称为Command1B．该程序中用到了Timer控件C．当前代码窗口中显示的事件处理过程名为“Command1_Click”D．该工程的窗体文件名“snow.vbp”【答案】D【解析】12．在VB中，x=10，则执行下列语句的结果是print "a=";aA．a=10 B．a=a C．10 D．10=10【答案】A【解析】13．在Visual Basic中，下列语句定义错误的是：（）（A）const g=9.8 （B）Dim False As Boolea （C） Dim b(1 to 5) As String （D）Dim y As Long【答案】B【解析】14．已知x= "Visual Basic"，则表达式Mid(x，6，3)的值为：（）（A）"lBa" （B）"l B" （C）"Bas" （D）"lB "【答案】B【解析】15．若运行时输入5、9，以下流程图的运行结果是_______。
A．14，45B．14，126C．a + b，a * bD．126，14【答案】A【解析】16．如第20题图所示的流程图片段：该流程图执行过后，a、b、c的值分别为：（）A. a=21,b=9,c=13B. a=5,b=8,c=13C. a=5,b=9,c=14D. a=21,b=9,c=14【答案】A【解析】17．编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如第1图所示。
结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。
1图 2图（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将属性的属性值修改为“转换”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()Dim t1 As Integer, t2 As IntegerDim i As Integer, t As IntegerDim f As SingleList1.Cleart1 = Val(Text1.Text)t2 = Val(Text2.Text)If ① Then '(选填字母,从下列A、B、C、D四个选项中选取一项）t = t1: t1 = t2: t2 = tEnd Ifi = t1Do While ② '(选填字母,从下列A、B、C、D四个选项中选取一项）f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度List1.AddItem Str(i) + " " + Str(f)③ '（填程序代码）划线①、②处的选项:A．i <= t2 B．f <= t2 C．t1 > t2 D． i < f【答案】（1）Caption （2）① C ②A ③ i = i + 1【解析】18．如图所示流程图片断该流程图中循环部分结束后，变量S的值是( )A、 5B、 15C、 25D、 36【答案】B【解析】小庄编写了一个统计数组元素a(l)到a(n)中的“升序段”个数s(如图所示的数据序列，其“升序段”的个数等于3)的VB程序。
部分程序如下：k = 0 ：s = 0For i =" 2" To nIf a(i) > a(i - 1) ThenElseIf k =" 1" thens=s+1k=0Next iTextl.Text = Str(s)方框中的正确语句是( )A．k =" k" - 1 B．k =19．C．k = -1 D．k =" k" + 1【答案】D【解析】20．有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是（）Dim i As Integer, j As Integer, s As Integer, n As Integern =" 3:" s = 0For i =" 1" To nFor j =" 1" To is =" s" + jNext jNext iText1.Text = sEnd SubA．3 B．6C．10 D．18【答案】C【解析】21．下列能作为Visual Basic变量名的是（）A．b+7 B．Mod C．3x D．T_1【答案】D【解析】22．若变量m =" 0" .81 ，则表达式Sqr ( m ) ＜1 And Not int ( m) > 1 的值是_____ A．T B．F C．0.9 D．1【答案】A【解析】23．如图所示，是求绝对值的算法，其描述方式分别是（）A．自然语言、流程图B．伪代码、流程图C．自然语言、伪代码D．流程图、自然语言【答案】A【解析】24．Sub test16()X = 9For i = 2 To 51 Step 3If (X / 2) >= i Then X = X + 1Next iFor i = 2 To -2 Step 3If (X / 2) >= i Then X = X + 1Next iMsgBox (X+i)End Sub该程序的运行结果是（）A、64B、13C、61D、62【答案】B【解析】25．下列可作为Visual Basic 的变量名的是 ( )A、D * 4B、A_4_BC、4ABCD、 Dim【答案】B【解析】26．在Visual Basic 中，下列优先级最高的运算符是( )A．* B．\ C．< D．Not【答案】A【解析】27．sual Basic中，语句Command1.Font="宋体"中的“Command1”是（）A．对象名 B．属性名 C．属性值 D．窗体名【答案】A【解析】二、填空题28．填空题：（共8分，每小题2分）。