当前位置：文档之家 › 高中信息技术VB专项题学考

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

  • 格式：docx
  • 大小：22.10 KB
  • 文档页数：7

1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。

如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。

现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签L a b e l2中显示找到的个数,运行界面如下图所示:(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②Then?c=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)的平方成反比。

下面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 ②Then?Label5.Caption = ″偏瘦。

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

″ElseLabel5.Caption = ″偏胖。

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

合集下载

(推荐)高中信息技术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 中用于将数据显示在窗体上的控件是 ______ 。

山东高中信息技术学业水平测试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．模块化程序设计方法反映了结构化程序设计的（）基本思想。