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

合集下载

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

(推荐)高中信息技术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试题及答案

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

高中计算机学考vb试题及答案一、选择题1. VB 是什么软件?A. Visual StudioB. Visual BasicC. Video BreakdownD. Virtual Box答案:B2. VB 是一种 _____ 语言。

A. 汇编B. 机器C. 面向对象D. 不确定答案:C3. 在 VB 中,下列哪个控件用于显示文本内容?A. ButtonB. TextBoxC. CheckBoxD. ListBox答案:B4. VB 中用于执行特定任务的代码块称为:A. 函数B. 方法C. 程序D. 过程答案:D5. 在 VB 中,用于将用户输入的数据存储在内存中的对象是:A. LabelB. TextBoxC. ComboBoxD. PictureBox答案:B6. 下列哪个选项用于在 VB 中进行循环操作?A. If-Else语句B. For循环C. Switch语句D. Try-Catch语句答案:B7. 在 VB 中,用于判断条件是否成立的代码块是:A. If-Else语句B. For循环语句C. While循环语句D. Switch语句答案:A8. VB 中的数据类型包括:A. Integer、Single、StringB. Integer、Double、BooleanC. Integer、Long、DateD. Integer、String、Boolean答案:B9. VB 中表示“或”操作的运算符是:A. +B. /C. &D. ||答案:C10. VB 中用于进行字符串拼接的运算符是:A. +B. /C. &D. ||答案:C二、填空题1. VB 是一种 ______ 语言。

答案:面向对象2. VB 是由 ______ 公司开发的。

答案:Microsoft3. VB 中每个控件都有一个 ______ 。

答案:事件4. VB 中用于将数据显示在窗体上的控件是 ______ 。

专题16 VB(学考)非选择题(解析版)

专题16 VB(学考)非选择题(解析版)

浙江省五年(2015-2019)高中学考、高考选考信息技术真题分类汇编专题16 VB(学考)非选择题(解析版)1.(2019年6月)小宇为选定班级参赛作品编写了一个VB程序,设计如下:在文本框Text1内输入5位评委对3个作品的评分数据(评委对作品的评分数据由3位十进制数组成,第1位对应作品编号,第2、3位对应作品得分,分值范围为[60,99]。

如“275”表示2号作品得分75)。

单击“计分”按钮后,在标签Label1中输出3个作品的平均分,在标签Label2中输出参赛的作品(选择最高平均分作品参赛,若最高平均分存在并列,则从并列作品中随机柚取)。

程序运行界面如图所示。

(1)“计分”按钮的对象名为。

(2)程序部分代码如下,请在划线处填入合适代码。

Private Suh jf_Click( )Dim s As String,d As String,i As IntegerDim f1As Single,f2As Single,f3As Singles = Text1. Texti = 1Do Whiled = Mid(s,i,3)If Mid(d,1,1) = "1”Thenf1 = f1 + Val(Mid(d,2, 2))ElseIf Mid(d, 1, 1) = “2”Thenf2 = f2 + Val(Mid(d,2, 2))Elsef3 = f3 + Val(Mid(d,2, 2))End IfLoopLabel1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)'以下省略“处理并列最高平均分,并在Labd2中输出选取的参赛作品”的代码End Sub(3)运行该程序时,在文本框Text1中以不同的顺序输入原评分数据:380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮,则Label1中显示的结果(选填:会/不会)发生改变。

高中信息技术VB专项题学考修订稿

高中信息技术VB专项题学考修订稿

高中信息技术V B专项题学考Document number【SA80SAB-SAA9SYT-SAATC-SA6UT-SA18】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 Thenis =②?End IfNext= ″四叶玫瑰数共有″+ Str(s) + ″个″End Sub(2)程序中的语句“b = (i Mod 100) \ 10”和下列哪些项功能相同(多选)。

=i\10 Mod 10 =int(i/10) Mod 10= i Mod 100\10 =Mid(i,3,1)2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。

单击“奇数迁移”按钮Command2,将列表框List1中的所有奇数迁移到列表框List2中,如图2所示。

(word完整版)高中信息技术VB试题及答案介绍,推荐文档.docx

(word完整版)高中信息技术VB试题及答案介绍,推荐文档.docx

1.下面选项内不属于描述面向对象程序设计特征的名词是()A.继承性B.多态性C.连续性D.封装性2.VB中数据类型Boolean 表示布尔型,布尔型变量占( )字节。

A. 4B. 3C. 2D.13.表达式 Cint(13.2/2)的结果是()A. 6.5B. 6C. 7D.54.表达式 Len(String(6, "9"))的值是()A. 9B. 6C. 999999D.出错5.要在窗体上仅显示文字,选用( )控件最合适A. LABEL B. TEXTBOX C. COMMANDBUTTON.IMAGE6.从编写到运行一个完整的程序的流程是( )。

A.编译程序、运行程序B.编译程序、测试程序、运行程序C.编写程序、编译程序、运行程序D.需求分析、编译程序7.关于结构化程序设计的思想方法,下列选项中不属于其核心思想的是( )。

A.自顶向下B.逐步求精C.模块化D.可复用8.下列关于算法的特征描述不正确的是()A.有穷性:算法必须在有限步之内结束B.确定性:算法的每一步必须有确切的含义C.输入:算法至少有一个输入D.输出:算法至少有一个输出9.下面属于结构化程序设计的基本方法的是()A.筛选法B.递归法C.归纳法D.自顶向下10.在 VB中,表达式 Mid(" 程序设计 ",2,2)的结果是()A.程B.序C.序设D.出错11.以下不是描述算法的方法有()A.自然语言B.流程图C.伪代码D.E-R 图12.在 VB中,表达式Mid(" 程序设计 ",2) 的结果是 ()A.程序B.序C.序设计D.出错13.下列程序,当单击窗体时s的值是 ()Private Sub Form_Click()Dim s as booleana = 2:b = 3:c = 4:d = 5s = a > b And 2 * a > c Or c <= dPrint sEnd SubA. TRUE B. FALSE C. -1D.114.在 VB中,不能作为变量名的是( )A.中国B. STRING C. b_q D.a_b15.在 VB程序中,假定有以下循环结构,则正确的描述是()Do While 条件循环体LoopA.如果 " 条件 " 是一个为0 的常数,则一次循环体也不执行B.如果 " 条件 " 是一个为 0 的常数,则执行无穷次循环体C.如果 " 条件 " 是一个为 0 的常数,则至少执行一次循环体D.不论 " 条件 " 是否为 " 真" ,至少执行一次循环体16.以下哪个不是程序设计高级语言( ) [后面还有2个类似的题目,要了解每个选项]A. VC B. Pascal C.C++D. CSS17.在 VB程序中有以下程序段,语句Print "VB"的执行次数是()For i=1 To 3For j=3 To 1 Step -1Print "VB"Next jNext i VBA. 3B.4C.6D. 918.在 VB 中,表达式Cos(0) 的结果是 ()A. 0B.1C.约等于 3.14 D.出错19.在使用流程图描述算法中,表示变量的计算与赋值的符号框为()A.矩形框B.菱形框C.平行四边形框D.椭圆形框20.在 VB 中,以下关于变量定义错误的是()A. Dim a As Integer B.Public a As String C. Private a As Boolean D.21.在 VB 中,表达式 Sgn(-5.8) 的结果是 ()A. -5.8B.-5C.-6D.-122.已知 f(1)=1 ,f(2)=2,当 n≥ 3 时, f(n)= f(n-1)+f(n-2),编程求 f(100)的值,应选择的A.解析法B.穷举法C.递归法D.冒泡排序法23.下面说法正确的是 ()A.算法 +数据结构 =程序设计 B .算法就是程序 C .数据结构就是程序D.24.穷举法的适用范围是( )A.一切问题B.解的个数极多的问题C.解的个数有限且可一一列举D.设计算法25.在 VB中,表达式 Log(100) 的结果是 ()A. 1B.2C.10D.以上都不是26.如果设计的程序需要播放 Mp3音乐或 avi 视频文件,可用控件()A. label B.textbox C.mediaplayer D.data27.表达式 Asc("A")的结果类型是 ( )A.数值型B.日期型C.布尔型D.字符型28.程序运行后,要按指定的时间间隔重复自动执行某段代码,可用控件( )A. Label B.textbox C.timer D.image29.如果设计的程序需要与数据库进行连接,可用控件()A. label B.textbox C.timer D.data30.在 VB程序中,下列哪个程序行是正确的()A. x-5=y B.a+b=c C.y=1:y=y+1D.i=5;i=i+1 31.在软件开发中有许多重要的环节,下列叙述中正确的是()A.软件维护只包括对程序代码的维护B.程序调试后一般不需要再测试C.软件测试应该由程序开发者来完成D.需求分析与程序设计、测试、维护是软件开发中32.如果把一个人当作对象,那么血型相当于这个对象的()A.属性B.方法C.事件D.过程33.算法是解决问题的步骤序列,正确的序列是()①分析问题;②提出问题;③设计算法A.②①③B.①②③C.①③②D.②③①34.不论多么复杂的程序,在程序设计中都可以归为( )等三种基本控制结构的组合。

高中计算机学考vb试题及答案

高中计算机学考vb试题及答案

高中计算机学考vb试题及答案一、选择题(每题2分,共20分)1. 在Visual Basic中,下列哪个选项是正确的数据类型?A. IntegerB. StringC. DoubleD. All of the above答案:D2. 下列哪个函数用于计算数组中元素的数量?A. UBoundB. LBoundC. UBound + LBoundD. UBound - LBound + 1答案:D3. 在Visual Basic中,下列哪个关键字用于定义一个过程?A. FunctionB. SubC. Both A and BD. None of the above答案:C4. 如果要在Visual Basic中创建一个用户界面,通常使用哪种工具?A. Code EditorB. Form DesignerC. Project ExplorerD. Properties Window答案:B5. 在Visual Basic中,下列哪个选项是正确的循环结构?A. For EachB. WhileC. Do WhileD. All of the above答案:D6. 下列哪个属性用于设置文本框(TextBox)的初始文本?A. TextB. CaptionC. InitialTextD. DefaultText答案:A7. 在Visual Basic中,下列哪个操作符用于比较两个字符串是否相等?A. =B. ==C. < >D. ==答案:B8. 下列哪个控件用于在用户界面中显示图像?A. LabelB. PictureBoxC. TextBoxD. ComboBox答案:B9. 在Visual Basic中,下列哪个事件用于处理按钮点击?A. ClickB. DoubleClickC. MouseDownD. MouseUp答案:A10. 在Visual Basic中,下列哪个函数用于将字符串转换为整数?A. StrB. ValC. CIntD. Convert.ToInt32答案:C二、填空题(每题2分,共10分)1. 在Visual Basic中,使用________函数可以将一个数值转换为字符串。

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

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

算法历年考试真题(一定保存好,千万不能丢)一、选择题1、流程图是描述()的常用方式。

A、程序B、算法C、数据结构D、计算规则2、下面不属于算法描述方式的是()。

A、自然语言B、伪代码C、流程图D、机器语言3、以下运算符中运算优先级最高的是()。

A、+B、^C、>=D、*4、某程序中三个连续语句如下:a=1b=2c=b+a它属于()A、顺序结构B、选择结构C、循环结构D、以上三种都不是5、穷举法的适用范围是()A、一切问题B、解的个数极多的问题C、解的个数有限且可一一列举D、不适合设计算法6、在现实生活中,人工解题的过程一般分为()A、理解分析问题→寻找解题方法→用工具计算→验证结果B、寻找解题方法→理解分析问题→用工具计算→验证结果C、用工具计算→验证结果→寻找解题方法→理解分析问题D、用工具计算→验证结果→理解分析问题→寻找解题方法7、下列关于算法的特征描述不正确的是()A、有穷性:算法必须在有限步之内结束B、确定性:算法的每一步必须确切的定义C、输入:算法必须至少有一个输入D、输出:算法必须至少有一个输出8、下列哪一个不是用于程序设计的软件()A、BASICB、C语言C、WordD、Pascal9、下列可以作为合作变量名的是()A、a7B、7aC、a-3D、810、编程求1+2+3+........+1000的和,该题设计最适合使用的控制结构为()。

A、顺序结构B、分支结构C、循环结构D、选择结构11、下列步骤不属于软件开发过程的是()A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护12.以下程序段运行时,语句k=k+1 执行的次数为()次。

k=-10dok=k+1loop while k=0A. 9B. 10C. 11D. 1213.已知x=6, y=5, 则以下运算结果为True 的是()A.Not(x>y) B. (x<5)or(y>6)C. (x>=6)And(y>=5)D. Not(x>4)14.模块化程序设计方法反映了结构化程序设计的()基本思想。

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

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试题及答案

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

高中信息技术vb试题及答案一、选择题(每题2分,共20分)1. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. IntC. DoubleD. All of the above答案:D2. 下列哪个控件不是VB的标准控件?A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案:D3. 在VB中,以下哪个关键字用于声明一个变量?A. DimB. SetC. NewD. All of the above答案:A4. VB中的事件处理程序通常被定义为:A. SubB. FunctionC. PropertyD. All of the above答案:A5. 在VB中,以下哪个属性用于设置文本框(TextBox)的只读状态?A. ReadOnlyB. EnabledC. VisibleD. BackColor答案:A6. VB中,以下哪个函数用于将字符串转换为大写?A. UCaseB. LCaseC. StrCompD. Trim答案:A7. 在VB中,以下哪个方法用于打开一个文件?A. OpenB. CloseC. PrintD. Write答案:A8. VB中,以下哪个选项是正确的文件访问模式?A. Open AsB. For InputC. For OutputD. Both B and C答案:D9. 在VB中,以下哪个选项用于声明一个常量?A. DimB. ConstC. Option ExplicitD. Option Base答案:B10. VB中,以下哪个关键字用于创建一个类?A. ClassB. NewC. InheritsD. Implements答案:A二、填空题(每题2分,共20分)1. 在VB中,使用______关键字可以定义一个子程序。

答案:Sub2. 要声明一个全局变量,应该使用关键字______。

答案:Public3. VB中的______函数可以用来获取当前日期。

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

高中信息技术学业水平测试-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专项练习题六及答案

浙江省高中信息技术选考加试题VB专项练习题六及答案

浙江省高中信息技术选考加试题VB专项练习题六及答案1.下列可作为VB变量名的是:(A)a\b(B)False(C)cos(D)sum正确答案:AVB变量名只能由字母、数字和下划线组成,且不能以数字开头,因此只有选项A符合要求。

2.在VB语句dim s(9) as integer中,数组s的变量个数和类型是:(A)9整型(B)10整型(C)9单精度型(D)10单精度型正确答案:Adim s(9) as integer定义了一个包含10个元素的整型数组,因此选项A正确。

3.将数学表达式x2≤y+z写成VB表达式,正确的是:sqr(x)≤y+z(B)x2≤y+z(A)(C)x^2<=y+z(D)x^2≤y+z正确答案:DVB中乘方运算符为^,而不是2,因此选项D正确。

4.VB表达式val(mid(str(3.5),2,1))的值是:(A)1(B)2(C)3(D)5正确答案:Bstr(3.5)将3.5转换为字符串"3.5",mid(str(3.5),2,1)取出字符串中第2个字符,即".",val(".")的值为0,因此选项B正确。

5.VB语句Text1.text="浙江省"用于在文本框中显示文字“浙江省”,该语句中的"text"是:(A)类名(B)对象名(C)属性名(D)属性值正确答案:CText1是对象名。

text是文本框控件的属性名,因此选项C正确。

6.VB语句fix(rnd*6)+1所产生数的范围(小括号表示边界值不能取到,中括号表示边界值能取到)是:(A)[2,6](B)(1,5)(C)[1,6](D)(2,5)正确答案:Crnd函数返回0到1之间的随机数,乘以6后取整,得到0到5之间的整数,加1后得到1到6之间的整数,因此选项C正确。

7.某VB程序代码如下:a = 3b = 4c = 5If a。

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

信息技术学业水平测试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专题练习(含答案)

高一信息技术-VB专题练习(含答案)

VB综合练习一、选择题1. 在VB代码编辑窗口中,输入了“Command1.”后出现了如图所示的信息,其中的“Caption”是Command1的()A.事件名B.属性名C.对象名D.方法2. 某VB程序的一个事件处理过程如下,在程序运行时,能触发该事件的是()Private Form_Load()Command1.caption=”计算”End subA.窗体装载B.单击窗体C.单击按钮Command1 D.双击窗体3. 在VB中,下列属于过程文件的是()A. .vbp B. .frm C. .vbw D. .frx4. 在VB中,若需要将350名学生的借阅卡号(如“WZ001036”)分别存储在数组code的code(1) ~code(350)元素中,则下列说明语句最合适的是()A.Dim code(1 To 350) As Integer B.Dim code(1 To 350) As Single C.Dim code(1 To 350) As String D.Dim code(1 To 350) As Boolean5. 在VB中,a=-100,表达式"360"+Str(a)的值是()A.260 B."360-100" C."360100" D."260"6. 在VB中,a=-100,表达式100+Val("36")的值是()A."10036" B."136" C.100+36 D.1367. 下列VB表达式的值等于2的是()A.Abs(-2.1) B.Int(2.1)C.Sqr(4.2) D.Len("4")8. 下列VB中,表达式81 \ 8 mod 3 * int(2.5)的值是()A.40 B.4 C.5 D.69. 数学表达式“2n–1>0 且 2n-1≠1”对应的VB表达式是()A.2·n–1>0 And 2·n–1<>1 B.2n–1>0 And 2n–1≠1C.2*n–1>0 And Not(2*n-1=1)D.2*n–1>0 And 2n-1<>110. 将整数型变量n的值显示在文本框Text1中,正确的语句是()A.Text=n B.Val(Text1)=nC.Text1.Text=Str(n)D.Str(Text1.Text)=n11.产生一个三位随机整数的表达式是()A.int(rnd*900)+100B.int(rnd*999)C.int(rnd*999)+1 D. rnd*900+10012.一个四位数的整数x,能表示出百位数字的表达式是()A.x\100 B.x\100 mod 10C.x mod 100 D. int(x/100)13. x为单精度型数据,能将x四舍五入保留2位小数的表达式是 ( )A.int(x) B.int(x*100)/100C.int(x+0.5) D.int(x*100+0.5)/10014.下列表达式为真时,能表示大写字母的是 ( ) A."A"<=ch<="Z" B.ch>="A"or ch<="Z"C.ch>="A"and ch<="Z"D.not(ch>="A"and ch<="Z")15. 将字符串变量a和b的值连接并将结果在文本框Text1中输出,下列代码合适的是()A.Str(a+b)=Text1.Text B.Text.Text1=a+bC.Text1.Text=Str(a+b) D.Text1.Text=a+b16. 有如下VB程序段a=3:b=9c=aa=bb=c运行后,下列说法正确的是()A.a=3,b=9 B.a=9,b=3C.a=3,b=3 D.a=9,b=917. 有如下VB程序段,程序段运行后,"s=s+k"共执行了10次,则循环变量k的初值是()s=0For k= to 5s=s+kNext kA.14 B.-5 C.1 D.-418. 有如下VB程序段,程序段运行后,数组元素a(3)的值是()For x=10 to 1 step -1a(x)=x+1Next xA.9 B.8 C.4D.319. 有如下VB程序段,程序段运行后,数组元素a(4)的值是()Dim a(1 to 4) as integera(1)=1For i=2 to 3a(i)=2*a(i-1)+1Next iA.15 B.7 C.3 D.020. 计算斐波那契数列(该数列从第三项开始,每一项都等于其前面两项之和)第20项的值的VB 程序段如下,该程序运行后不正确,有问题的语句是()Dim a(1 to 20) as long,I as integerConst n=20 ‘①i=3a(1)=1:a(2)=1Do while i<=n ‘②a(i)=a(i-2)+a(i-1) ‘③i=i+1LoopLabel1.caption=str(a(i)) ‘④A .①B .②C .③D .④21. 某算法的部分流程图如图所示。

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

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

高中信息技术vb考试题及答案一、选择题(每题2分,共40分)1. 在Visual Basic中,下列哪个关键字用于声明一个变量?A. FunctionB. DimC. SubD. Const答案:B2. Visual Basic中,哪个函数用于将字符串转换为大写?A. StrCompB. UCaseC. LCaseD. Mid答案:B3. 以下哪个控件用于在Visual Basic中显示文本,但不允许用户编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox答案:B4. 在Visual Basic中,哪个属性用于设置文本框(TextBox)的文本?A. CaptionB. TextD. Name答案:B5. 如果要在Visual Basic中创建一个按钮,应该使用哪个控件?A. TextBoxB. CommandButtonC. LabelD. CheckBox答案:B6. 在Visual Basic中,下列哪个循环结构用于重复执行代码块直到满足某个条件?A. ForB. WhileC. DoD. If答案:C7. Visual Basic中,下列哪个函数用于返回一个随机数?A. RandB. IntC. RndD. Sgn答案:C8. 在Visual Basic中,下列哪个属性用于设置或返回一个控件的可见性?A. VisibleB. EnabledC. Caption答案:A9. 以下哪个选项是Visual Basic中声明数组的正确方式?A. Dim numbers(5) As IntegerB. Dim numbers(5) IntegerC. Dim numbers As Integer(5)D. Dim numbers Integer(5)答案:A10. 在Visual Basic中,下列哪个事件用于处理用户点击按钮的事件?A. ClickB. DoubleClickC. MouseDownD. MouseUp答案:A11. Visual Basic中,哪个控件用于在用户界面中显示图像?A. PictureBoxB. ImageBoxC. LabelD. TextBox答案:A12. 在Visual Basic中,下列哪个属性用于设置或返回一个控件的背景颜色?A. BackColorB. ForeColorC. ColorD. Background答案:A13. 以下哪个选项是Visual Basic中声明函数的正确方式?A. Function MyFunction()B. Sub MyFunction()C. Procedure MyFunction()D. Method MyFunction()答案:A14. 在Visual Basic中,下列哪个控件用于允许用户从预定义的选项列表中选择一个选项?A. ComboBoxB. ListBoxC. CheckBoxD. RadioButton答案:A15. Visual Basic中,下列哪个关键字用于声明一个子程序?A. FunctionB. SubC. ProcedureD. Method答案:B16. 在Visual Basic中,下列哪个属性用于设置或返回一个控件的前景色?A. BackColorB. ForeColorC. ColorD. Background答案:B17. 以下哪个选项是Visual Basic中声明事件处理程序的正确方式?A. On ClickB. Handles ClickC. Event ClickD. Use Click答案:B18. Visual Basic中,哪个函数用于返回当前日期?A. NowB. DateC. TimeD. Today答案:D19. 在Visual Basic中,下列哪个属性用于设置或返回一个控件的宽度?A. WidthB. HeightC. SizeD. Dimension答案:A20. Visual Basic中,下列哪个关键字用于声明一个常量?A. FunctionB. DimC. ConstD. Sub答案:C二、填空题(每题2分,共20分)1. 在Visual Basic中,使用________关键字可以定义一个常量。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

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程序的画线①②处填入合适的语句,实现上述功能。

Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()List1.ClearList2.ClearRandomizeFor i = 1 To 10a(i) = Int(Rnd() * 900 + 100)List1.AddItem①Next iEnd SubPrivate Sub Command2_Click()List1.ClearFor i =②If a(i) Mod 2 = 1 ThenList2.AddItem a(i)ElseList1.AddItem a(i)End IfNext iEnd Sub3、小贝用VB6语言编写了一个拼手气红包程序,实现的功能是:在文本框Text1中输入发放红包的总金额s,在文本框Text2中输入发放红包的个数n,单击“发放红包”按钮Command1,为n个红包随机分配金额,并在列表框List1中显示分配后的这些金额。

界面如图1所示。

图1图2(1)在设计应用程序界面时,应使用图2所示“控件工具箱”中的(填写相应编号)添加列表框List1。

(2)为实现上述功能,请在横线①②③处填入合适代码。

Private Sub Command1_Click()Dim s As Single,x As Single,n As Integer,i As IntegerRandomizeList1.Clears=①n=Val(Text2.Text)For i=1 To ②'通过循环语句产生n-1个红包的随机值x=Int((Rnd()*s/(n-i)+0.005)*100)/100List1.AddItem Str(x)s=③Next ix=Int((s+0.005)*100)/100'产生最后一个红包List1.AddItem Str(x)End Sub4、利用Visual Basic设计一个小写转大写的程序:在文本框Text1中输入一串字符,单击“转换”按钮Command1,将其中的小写英文字母转换为大写英文字母后,在文本框Text2中显示转换后的字符串。

程序运行界面如图所示。

(1)实现上述功能的VB代码如下,在画线处应填入正确的语句以实现以上功能。

Private Sub Command1_Click()Dim a As String,b As StringDim i As Integer,c As Stringa=①For i=1 To Len(a)c=Mid(a,i,1)If②Thenc=Chr(Asc(c)-32)End Ifb=b & cNext iText2.Text=bEnd Sub(2)由程序可知,小写字母比大写字母的ASCII编码值大。

5、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。

由于数轴上的点是有序的,因此我们可以用对分查找法找出高次方程在某一区间的实根。

即:不断地将区间对分,使得区间中点的值不断逼近方程的根。

当区间小于精度的时候,我们就停止对分,并用此时区间的中点值作为方程的根。

如求三次方程y=5x3-55x2+170x-130的实根,其函数图像如图1所示:图1 图2观察该函数图像发现函数有一实根在区域(1,2)之间,因此我们取两者的中点m=(1+2)/2代入方程进行检测,发现f(1.5)=5x3-55x2+170x-130=18.125,因为f(1.5)>0,因此区间应该往左移动,得下一个区间(1,1.5),然后继续进行检测,如果区间差值≤误差率,则认为该中点是方程的根。

根据上述方法描述,设计一个VB求解程序的根。

程序运行界面如图3所示,单击求解按钮Command1,在文本框Text1中显示方程的根。

图3(1)为显示函数的图像,应在窗体中放置的控件是。

(填图2中编号)(2)程序代码如下,请在画线处填写正确的VB代码。

Private Sub Command1_Click()Dim i As Double, j As Double, m As DoubleDim r As Double , y As Doublei=1:j=2:y=1:r=j-iDo While y <> 0 And r > 0.00001m=(i + j) / 2y=5 * m ^ 3 - 55 m ^ 2 + 170 m - 130If y > 0 Then①ElseIf y < 0 Theni=mEnd Ifr=②LoopText1.Text =mEnd Sub6、现要用VB编写一个“剪刀石头布”的游戏,游戏界面如图1所示:图1图2点击单选框选择剪刀或石头或布,程序立即显示相应的图像,同时电脑随机出示一个剪刀或石头或布,并显示输赢的结果在列表框List1中。

(1)为显示输赢的结果,应在窗体中加入一个列表框,应使用图2所示的控件工具箱中的(填写相应的编号)。

(2)请根据题意将下列程序补充完整Private Sub Option1_Click(Index As Integer)'index表示所选的编号,剪刀为0石头为1布为2,图片文件名与此编号对应Randomizex='产生[0,2]的随机整数Image1.Picture=Load Picture(x &″.jpg″)Image2.Picture=Load Picture(Index &″.jpg″)If Index=0 And x=0 Then s=″平局″If Index=0 And x=1 Then s=″输了″If Index=0 And x=2 Then s=″胜了″If Index=1 And x=0 Then s=″胜了″If Index=1 And x=1 Then s=″平局″If Index=1 And x=2 Then s=″输了″If Index=2 And x=0 Then s=″输了″If Index=2 And x=1 Then s=″胜了″If Index=2 And x=2 Then s=″平局″End Sub7、生活中,许多女士喜欢穿高跟鞋,那穿高跟鞋会使人感到美吗?黄金分割能解释这个问题。

人体躯干与身高比例的黄金分割点是肚脐。

换句话说,这一比值越接近0.618,愈给人美之感。

现按要求编写“高跟鞋的最佳之选”的VB程序(界面如右图所示),实现如下功能:首先,设某女躯干a米和身高b米比为g,分别从文本框Text1和Text2中输入。

鞋跟高度s(单位与a、b一致)从Text3中输入,那么新比值g=(a+s)/(b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度。

(1)应用程序界面设计时,为显示新比值,需在窗体中添加控件,并将它的属性值设置为空。

(2)请根据题意将下列程序补充完整。

Private Sub Command1_Click()Dim a As Single,b As Single,s As Single,g As Singlea=Val(Text1.Text)b=Val(Text2.Text)s=Val(Text3.Text)Label5.Caption=①End Sub8、身体质量指数BMI是目前国际上常用的衡量人体胖瘦程序以及是否健康的标准之一。

科学家通过大量的统计、分析,推导出BMI值与体重(w,单位kg)成正比,与身高(h,单位m)的平方成反比。

BMI=w/h2成人的BMI数值参考:偏瘦:低于20正常:20~25偏胖:高于25最理想的体重指数是:22下面VB程序的功能用于计算身体指数并判断体型。

在文本框Text1和Text2中输入体重(w)和身高(h)的值,单击“测试”按钮,在文本框Text3中显示指数的值(结果取整),并根据此值在Label5中显示相应的体型参考和最理想体重(ok)。

程序运行界面如图所示:VB程序如下:Private Sub Command1_Click()Dim h As Single, w As Single, BMI As Single, ok As Singleh =Val(Text1.Text)w =Val(Text2.Text)BMI =①ok = Int(22 h ^ 2)Text3.Text =Str(BMI)If ②ThenLabel5.Caption = ″偏瘦。

″ElseIf BMI <= 25 ThenLabel5.Caption = ″正常。

″ElseLabel5.Caption = ″偏胖。

″End IfLabel5.Caption = Label5.Caption + ″最佳体重是″ + Str(ok) + ″kg″End Sub(1)程序中画线①处应填入的语句是。

相关文档
最新文档