高中信息技术考试vb程序题及答案
高中信息技术选修_VB程序
Visual Basic程序设计期末复习一一、单项选择题1．能够改变标签(Label)控件显示标题的属性是（）。
A．Name B．Caption C．Text D．Border 2．当一个工程中含有多个窗体时，其中的启动窗体是（）。
A．启动VB时创建的第一个窗体 B．第一个添加的窗体C．在“工程属性”对话框中指定的窗体 D．最后一个添加的窗体3.当运行程序时，系统自动执行启动窗体的（）事件。
A．Load B．Unload C．Click D．LostFocus4．下列4项中合法的变量名是（）。
A．2xyz B．IntegerC．x-yz D．x_yz5．表达式24 / 2 - 2 ^ 3 *4 / 4 Mod 5 \ 3（）A．12 B．16C．20 D．326．要清除List列表框控件中的所有项目，可采用的方法是（）A．Erase B．ClearC．Click D．Delete7．下列正确的赋值语句是（）A．x+y=z B．2=x+yC．z=x+y D．x=Integer+28．可通过下列何种属性来设置或返回List列表框控件中当前选定项目的索引（）。
A．ListIndex B．ListCount C．ListText D．LisItem9.若窗体Form1左上角的坐标为(-250,300)，右下角的坐标为(350,-200)，那么X轴和Y轴的正方向是（）A．向左和向上 B．向左和向下C．向右和向下 D．向右和向上10．如果仅需要得到当前系统时间，则可以使用哪个函数（）A．TimeB．Y earD．Date11．数学关系8≤y<40表示成正确的VB表达式为（）A、8<=y<40B、8<=y AND<40C、8<=y AND y<40D、8<=y OR y<4012．Dim A(-1 To 4, 5) As String定义的数组包含的元素个数是（）A．30 B．36C．25 D．2013．应用程序打包后，其包文件的后缀是（）A．.cab B．.exeC．.ocx D．.vbp14．能够实现“窗体总在最前端”界面效果的API函数是（）A．SetWindowPos B．SetWindowAPIC．Private D．Public15．某窗体的Name属性为MyFrm，则它的Load事件的过程名为（）A．MyFrm_LoadB．Me_LoadC．Form1_LoadD．Form_Load16．MsgBox函数的返回值的类型是（）A．整型B．字符串C．逻辑型D．日期型17．以读方式打开D盘中的Text.dat文件，正确的语句是（）A．open"D:\text.dat" For Output As # 1B．open" D:\text.dat" For Input As # 1C．open" D:\text.dat" For Input AsD．open"text.dat" For Random As # 118．在VB中，Access数据库属于（）A．本地数据库B．外部数据库C．远程数据库D．OLE数据库19．当Winsock控件处于关闭状态时，其State属性的值是（）C．2 D．-120．后缀为.Vbp的文件表示VB 的（）A．类模块文件B．窗体文件C．工程文件D．标准类模块文件21．在设计动画时，用时钟控件来控制动画速度的属性是（）A．Enabled B．IntervalC．Timer D．Move22．下列数据对象模型中采用OLE DB访问数据库的是（）。
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考试题库及答案高中
vb考试题库及答案高中一、单项选择题（每题2分，共40分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D2. 下列哪个选项是VB中的保留字？A. DimB. IfC. ThenD. All of the above答案：D3. 在VB中，以下哪个选项是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Both A and BD. None of the above答案：C4. 在VB中，以下哪个选项是正确的循环结构？A. ForB. DoC. WhileD. All of the above答案：D5. 在VB中，以下哪个选项是正确的条件判断结构？A. IfB. Select CaseC. Both A and BD. None of the above答案：C6. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10)B. Dim arr(0 To 10) As IntegerC. Both A and BD. None of the above答案：C7. 在VB中，以下哪个选项是正确的函数声明方式？A. Function myFunction()B. Function myFunction() As IntegerC. Both A and BD. None of the above答案：C8. 在VB中，以下哪个选项是正确的子程序声明方式？A. Sub mySub()B. Sub mySub() As IntegerC. Both A and BD. None of the above答案：A9. 在VB中，以下哪个选项是正确的事件处理方式？A. Private Sub Form_Click()B. Public Sub Form_Click()C. Both A and BD. None of the above答案：A10. 在VB中，以下哪个选项是正确的窗体属性？A. CaptionB. NameC. Both A and BD. None of the above答案：C11. 在VB中，以下哪个选项是正确的控件属性？A. TextB. VisibleC. Both A and BD. None of the above答案：C12. 在VB中，以下哪个选项是正确的控件事件？A. ClickB. DblClickC. Both A and BD. None of the above答案：C13. 在VB中，以下哪个选项是正确的文件操作函数？A. OpenB. CloseC. Both A and BD. None of the above答案：C14. 在VB中，以下哪个选项是正确的文件访问模式？A. InputB. OutputC. Both A and BD. None of the above答案：C15. 在VB中，以下哪个选项是正确的错误处理语句？A. On Error GoToB. On Error Resume NextC. Both A and BD. None of the above答案：C16. 在VB中，以下哪个选项是正确的数据类型转换函数？A. CIntB. CStrC. Both A and BD. None of the above答案：C17. 在VB中，以下哪个选项是正确的数学函数？A. SinB. CosC. Both A and BD. None of the above答案：C18. 在VB中，以下哪个选项是正确的字符串函数？A. LeftB. RightC. Both A and BD. None of the above答案：C19. 在VB中，以下哪个选项是正确的日期和时间函数？A. DateB. TimeC. Both A and BD. None of the above答案：C20. 在VB中，以下哪个选项是正确的数据库访问控件？A. DataGridB. DataListC. Both A and BD. None of the above答案：A二、填空题（每题2分，共20分）21. 在VB中，声明一个整型变量x，其语句为：________。
高中信息技术会考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会考上机程序题汇总
信息技术（选修）☆输入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+++++++++的值。
专题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中显示的结果(选填:会/不会）发生改变。
(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算法部分的填空题(2)
高中信息技术会考VB算法部分的填空题（1）算法与程序设计题（第一套）四、程序设计题（本题有4 小题，第1－3 小题，每小题4 分，第4 小题6 分，共18 分）1.有如下Visual Basic 程序段：a = 30b = 20a = b该程序段运行后，变量a 的值为___ _____。
2.有如下Visual Basic 程序段：Dim a As Single, py As Stringa=Val(Text1.Text)If a>0 Then py="正数"If a=0 Then py="零"If a<0 Then py= "负数"Label1.Caption=py在文本框Text1 中输入100，则在Label1 标签上显示的是。
3. 以下Visual Basic 程序的功能是：计算表达式1×2×3×4×5×6×7×8×9×10 的值，并在文本框Text1 中输出结果。
为了实现这一功能，程序中划线处的语句应更正为___________ __。
Private Sub Command1_Click()Dim i As Integer,sum As Long sum = 0For i = 1 To 10sum = sum * iNext iText1.Text=Str(sum)End Sub4.从改革开放以来，浙江省农村家庭的可支配收入逐年增加，近几年每年增长率在9%左右。
小明一家今年的可支配收入是32000 元，按现在的增长率9%计算，小明家几年后可支配收入将达到50000 元？解决此问题的流程图如VB-1 所示。
根据流程图VB-1 编写的Visual Basic 程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。
江苏省高二信息技术选修VB练习参考答案(1-5)[1]
![江苏省高二信息技术选修VB练习参考答案(1-5)[1]](https://img.taocdn.com/s3/m/e0085772da38376bae1fae22.png)
江苏省高二信息技术选修VB练习参考答案(1-5)[1]VB （一）1、下列关于程序设计说法正确的是（程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程）。
2 ”在算法描述流程图中表示（处理或运算的功能）。
3、Integer 类型的变量可存的最大整数为（32767）。
4、代数表达式221gt 改成VB 表达式后，错误的是（gt^2/2）。
5、对于窗体，Click （单击）是它的一个（重要事件）。
6、下列变量名写法错误的是（123abc ）。
7、在Visual Basic 中，下列（Abs(x)）函数是求绝对值的。
8、在Visual Basic 中，设置控件的大小，可改变下列（Height 和Width ）属性。
9、以下是一段Visual Basic 程序：a=1b=a+1c=a+b它的基本结构属于（顺序结构）。
10、下列程序段运行后，变量Value的值是（100）。
X=20If x>=10 ThenValue=5*xElseValue=4*xEnd If11、下面是变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（①(x Mod 5)=0 And(x Mod 2)=0 ②x Mod 10 =0）。
Private Sub command1_Click()Dim x As IntegerX=Val(Text1.Text)If _______ =0 ThenLabel1.Caption=”这个数是能被5整除的偶数”ElseLabel1.Caption=”这个数不是能被5整除的偶数”End ifEnd Sub12、阅读下面程序，当单击窗体之后，窗体上输出的是（15 6）。
Private Sub From_Click()Dim i As Integer: Dim s As IntegerS=0For i=1 to 5s= s + iNext IPrint s, iEnd Sub13、执行下面的程序段：Dim int1 As Integer, int2 As IntegerInt1=1Int2=0Do While int1<20Int2=int1+int2Int1=int1*(int1+1)LoopText1.Text=int2文本框Text1中显示的是（9）14、下列程序段中，循环体执行的次数是（3）。
高中信息技术算法与程序设计VB(选修)
高中信息技术《算法与程序设计VB （选修）》知识要点相关知识点（一）算法1.定义相关题解：1算法：就是解决问题的方法和步骤。
算法是程序设计的“灵魂”，算法+数据结构＝程序。
单选题1、下列关于算法说法不正确的是( A )A 、算法独立于任何具体的语言，BASIC 算法只能用BASIC 语言来实现B 、解决问题的过程就是实现算法的过程C 、算法是程序设计的“灵魂”D 、其它三项都正确2．算法的描述方法：1算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。
2自然语言描述法：指用人们日常生活中使用的语言（本国语言），用自然语言描述符合我们的习惯，且容易理解。
3流程图描述：也称程序框图，它是算法的一种图形化表示方法。
且描述算法形象、直观，更易理解。
4伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。
是专业软件开发人员常用方法。
相关题解：单选题1、图形符号" "在算法流程图描述中表示( B ).A 处理或运算的功能B 输入输出操作C D 算法的开始或结束2、图形符号在算法流程图描述中表示( A ).A B 输入输出操作C 用来判断条件是否满足需求D 算法的开始或结束3、以下哪个是算法的描述方法?( A )A 流程图描述法B 枚举法C 顺序法D 列表法4、以下哪个是算法的描述方法?( D )A 顺序法B 列表法C 集合法D 自然语言描述法（二）程序设计基础（1）常用高级编程语言：BASIC、VB、Pascal、C、C++、Java1面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包括窗体等、控件等2控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，如文本框，命令按钮等。
对象属性＝属性值对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过程序代码设置,方法如下例：给文本框“Txt123”的“Text”属性赋值为字符串“20”，代码如下Txt123.text =”20”变量＝对象.属性如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下例：读取文本框“txt123”的“Text”属性的代码如下a = txt123.text2方法［对象］.方法［参数名表］例：form.print ”欢迎使用”该语句使用print方法在form1窗体中显示字符串“欢迎使用”3事件及事件驱动事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个Click事件。
高中信息技术考试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部分)练习
高中信息技术会考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
卜人入州八九几市潮王学校VB程序设计试卷1一、单项选择题，每一小题2分， 25题一共50分【第1题】金山快译把“你叫什么名字〞翻译成“What'syourname〞，这属于A、语音识别B、机器翻译C、专家系统D、智能代理【第2题】以下文件中不能用音频播放软件翻开的是A、歌唱祖国.mp3B、青花瓷.midC、校园的早晨.wavD、风情.tif【第3题】小明家的电脑运行Photoshop软件时总浮现异常画面。
为理解决问题，他想到了到论坛发帖求助的方法，为此他需要将该程序的异常画面截取下来。
以下方法中，最简便的是A、使用扫描仪B、安装专业屏幕截图软件再截图C、使用数码相机拍摄D、使用“PrintScreen〞键截屏【第4题】利用Excel电子表格存储学生信息，为了输入诸如“******〞格式的学号信息，单元格的属性需要设置成A、数值B、文本C、特殊D、常规【第5题】以下选项里面，不属于视频文件格式的是A、aviB、mpegC、movD、MP3【第6题】信息资源管理非常重要，是因为A、信息资源管理可以进步信息资源的利用效率B、信息资源惟独经过管理后，才干被人们利用C、不经过管理的信息资源是没有利用价值的D、信息资源管理不可以进步信息的使用价值【第7题】以下选项里面，属于制作动画的常用软件是A、PhotoshopB、FlashC、WPSD、ACDSee【第8题】图形符号在算法描绘流程图中表示A、算法的开场或者完毕B、输入输出操作C、处理或者运算的功能D、判断条件是否满足需求【第9题】在VB中，表达式Cos(0)的结果是A、0B、1C、约等于D、出错【第10题】在标签“lblname〞“name〞的值，正确的语句是A、lblname.caption=nameB、lblname.text=nameC、D、name=lblname【第11题】在VB中，以下赋值语句正确的选项是A、x+y=20B、3x=yC、y=x+20D、S=2Л*r*r【第12题】如下VB程序段Fori=1To3Step2Print"VB"Nexti执行后，语句Print"VB"执行的次数是A、1B、2C、3D、4【第13题】a=8、b=6，以下程序段If(aMod3=0)Or(bMod3=0)Thenc=a*bElsec=a+bEndIf执行后变量c的值是A、48B、14C、8D、6【第14题】以下关于解决问题过程的表达，错误的选项是A、计算机解决问题和人类解决问题的过程是彻底一样的B、人类会创造性地解决问题C、计算机解决问题必须针对一定对象，按一定步骤去做D、人类的思维有跳跃性、抽象性、含糊性【第15题】VisualBasic、Java属于A、自然语言B、机器语言C、汇编语言D、高级语言【第16题】在VB中，可以使文本框text1显示“你好〞〔不含引号〕的代码是A、Printtext1.Text="你好"B、text1.Text=你好C、text1.Text="你好"D、text1.Font="你好"【第17题】关于排序，以下表达正确的选项是A、排序就是把数据从小到大排出顺序，反之不行B、对字符型数据排序时，不区分大小写C、对数值型数据和字符串型数据都能发展排序D、字符串型数据要转换成ASCII码才干发展排序【第18题】以下关于因特网开展的表达，错误的选项是A、启用IPv6地址后，挪动、冰箱都能拥有IP地址B、的核心是互动、分享和创新C、云计算是一种网络效劳D、物联网将会取代因特网【第19题】某同学搜索到“智能五笔安装程序.rar〞的链接，要下载这个文件，以下操作中可行的是A、右击该链接，执行“目的另存为〞命令B、右击该链接，执行“保存〞命令C、翻开“文件〞菜单，执行“文件另存为〞命令D、收藏该链接【第20题】以下选项里面属于搜索引擎的是A、CutFTPB、FlashGetC、BaiduD、WinRAR【第21题】为了预防地震等不可预测的灾难对数据安全的影响，普通会A、在保险柜里存一份B、发展异地备份C、安装灾害预测系统D、发展本地备份【第22题】在计算机存储器中，一个字节可以存放A、一个汉字B、一个英文字母C、一个大于255的整数D、一个256-512之间的任意整数【第23题】根据提供的常用字符与ASCII码对照表(局部)，在VB中，表达式Asc("B")+Int(4)的值是A、68B、70C、67D、69【第24题】以下三个图片均是用画图软件生成的24位位图，且尺寸均为60*30像素，其各自占用存储空间情况为A、最小B、最大C、最小D、一样大【第25题】用户可利用Windows的搜索功能查找磁盘上的文件〔如下列图〕，从图中可以知道查找的是D盘中的A、一个文件名为“*.bmp〞的文件B、所有bmp位图文件C、一个文件名为“*〞的bmp位图文件D、所有文件二、操作题，每一小题10分， 5题一共50分【第1题】翻开“Z:\730\工程1.vbp〞发展以下操作后并保存。
浙江省高中信息技术选考加试题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操作复 目含答案
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综合练习一、选择题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. 某算法的部分流程图如图所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第一套1、'填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之和。
Private Sub Form_Click()Dim i As Integer '定义变量i Dim s As Integer '定义变量s ，用于存放100以内（含100）偶数的和 s = 0For i = 2 To 100 Step 2 s = s+i Next iLabel1.Caption = Str(s) End Sub2、'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。
Private Sub Command1_Click() Const pi = 3.14 '定义符号常量Dim c As Single '定义周长c 为单精度型Dim r As Single '定义半径r 为单精度型r = Val(text1.text) c = pi *2*r text2.text = c End Sub第二套 '填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。
Private Sub Form_Click()Dim s As Single ' s 变量用于存放计算结果Dim p As SingleDim i As Integer '定义一个循环变量'给s 赋初值 s = 0 '给p 赋初值 p = 1For i = 1 To 8 p = p * i s =s+p Next i Print "s="; s End Sub'填空完成程序，使得当单击窗体后，计算1+2+3+…+N>500的N的最小值，并在文本框Text1中显示出来。
Private Sub Form_Click()Dim s As Integer '变量s存放和Dim n As Integer'为s赋初值s = 0'为n赋初值n =0Don = n + 1s = s + nLoop While s <= 500Text1.Text = Str(n)End Sub第三套'举重比赛中，60公斤级选手体重不能超过60公斤。
'填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超重！不能参赛！"；'当输入一个小于等于60的数时，标签Label1显示"合格，可以参赛！"。
Private Sub Command1_Click()Dim t As Single '定义变量t，值由文本框Text1读入t = Val(text1.text)If > ThenLabel1.Caption = "超重！不能参赛！"ElseLabel1.Caption = "合格，可以参赛！"End ifEnd Sub'填空完成程序，使得单击窗体后，计算出1+2+3+…+N<500的N的最大值，并在文本框Text1中显示出来。
Private Sub Form_Click()Dim s As Integer '变量s存放和Dim n As Integer'为n赋初值n = 0'为s赋初值s = 0Do While s < 500n = n + 1s =s+nLoopText1.Text = Str(n - 1) End Sub第四套'这是一个简单的显示评语程序，填空完成程序，在文本框Text1中输入一个数后，单击"评语"按钮，在标签Label1显示评语。
'当输入一个小于60的数时，显示"不及格"；'当输入一个大于等于60且小于85的数时，显示"良好"；'当输入一个大于等于85的数时，显示"优秀"。
Private Sub Command1_Click()Dim Cj As Single '定义变量Cj，值由文本框Text1读入Cj = Val( text1.text )If Cj < 60 thenLabel1.Caption = "不及格" End IfIf Cj >= 60 And Cj < 85 ThenLabel1.Caption = "良好"End IfIf Cj >= 85 ThenLabel1.Caption = "优秀"End IfEnd Sub'某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。
Private Sub Form_Click()Dim p As Single ' 变量p保存年产值Dim n As Integer ' 整型变量n 为所求年数P=2000n = 0Do While p < 4000p = p *1.05n = n+1LoopPrint "n="; nEnd Sub第五套'填空完成程序，使得当单击"计算7！"按钮后，Text1显示7！的值。
Private Sub Command1_Click()Dim a As IntegerDim i As Integera = 1For i = 1 To 7 Step 1a = a*iNext iText1.Text = Str((3))End Sub'填空完成程序，编程计算1-1/2+1/3-1/4+...+1/99-1/100，单击窗体后，在窗体上显示结果。
Private Sub Form_Click()Dim s As SingleDim i As Integers =0 For i = 1 To 100 Step 1If i Mod 2 <> 0 Then s = s + 1 / iElses = s-1/iEnd IfNext iPrint "s="; sEnd Sub第六套'填空完成程序，编程计算1+1/2+1/3+1/4...+1/99+1/100，单击窗体后，在窗体上显示结果。
Private Sub Form_Click()Dim s As Single '定义变量s 为单精度型Dim i As Integer '定义循环变量s = 0For i = 1 To 100 Step 1s = s +1/ iNext iPrint "s="; sEnd Sub'填空完成程序，使得当单击"计算1+2+3+…+100"按钮后，文本框Text1显示1+2+3+ (100)值。
Private Sub Command1_Click()Dim a As IntegerDim i As Integera =0For i = 1 To 100 Step 1 a = a+iNext iText1.Text = Str((4))End Sub第七套'填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中。
'然后在窗体上显示这10个数的平均值。
'注：学生运算结果有可能跟样图中数值不一致。
Private Sub Command1_Click() Dim a(9) As IntegerDim s As SingleDim i As IntegerMe.Clss = 0RandomizeFor i = 0 To 9 Step 1a(i) = Int(Rnd * 100) Print a(i)Next iFor i = 0 To 9s = s+a(i)Next iPrint "这10个自然数的平均值="; s / 10End Sub'填空完成程序，左键单击窗体时打印下面所示的图案。
' ****' ***' **' *Private Sub Form_Click()Dim i As IntegerDim j As IntegerFor i = 4 To 1 Step -1For j = 1 To i Step 1 Print "*";Next jprintNext iEnd Sub第八套'填空完成程序，问：鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只?'单击窗体后，在窗体上显示结果。
Private Sub Form_Click()Dim Ji As Integer 'Ji变量表示鸡的个数Dim Tu As Integer 'Tu变量表示兔的个数Dim Leg As Integer 'Leg 变量表示腿数For Ji = 1 To 40Tu = 40-ji'计算腿数Leg = ji*2 + Tu * 4 '如果腿正好100只，则打印。
If Leg = 100 ThenPrint "鸡=";Ji; "只", "兔="; Tu; "只"End IfNext JiEnd Sub'填空完成程序，使得单击"显示"按钮后，显示下面的图形：'@'@@'@@@'@@@@'@@@@@'@@@@@@Private Sub Command1_Click()Dim i As Integer '定义i为整型变量Dim j As Integer '定义j为整型变量For i = 1 To 6 Step 1For j = 1 To I Step 1Print "@" ; Next jPrintNext iEnd Sub第九套'填空完成程序，使得单击"显示"按钮时，Text1、Text2分别显示变量x、y 的值。
Private Sub Command1_Click()Dim x, y As Integerx = 10y = 100If x < y Then'以下三条语句交换x,y的值t = xx = yy = tEnd IfText1.Text = Str(x)Text2.Text = Str(y)End Sub'填空完成程序，使得单击"显示"按钮后，在窗体上显示如图99乘法表。