川省学业水平考试VB程序设计操作题

合集下载

信息技术学业水平测试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

高二学业水平测试上机操作题

考前须知（1）理科考生，请选择“程序设计”试题；文科考生，请选择“多媒体”试题。

（2）“程序设计”卷中有三道操作题题，由以下五个类型的题目中随机抽出：IE 浏览器，Word，Excel，PPT，VB (必有)。

（3）做操作题口诀：先选操作对象，再找操作命令。

（操作对象错，则全错）（4）“C:\ITSDATA\13\下载图片”是文件路径，指的是C：盘下的“ITSDATA”文件夹中的“13”文件夹中的“下载图片”文件夹。

（从大范围到小范围的描述）。

（5）（理科看）VB中常用的运算符号：^（乘方）；MOD(求余数)；*（乘）；/（除）；\（整除）；Abs(绝对值)；Sqr(平方根)。

IE操作题：1.打开并浏览网页：http://www.****.com操作：step1:在地址栏输入www.****.com（从WWW开始输入）Step2:按回车键（enter）2.将带有某某图案的图片保存到”C:\ITSDATA\13\下载图片”，文件名不变。

操作：step1:在图片上右击（一定要找准图片）Step2:单击“图片另存为”命令Step3:选择正确的保存位置（C:\ITSDATA\13\下载图片）Step4:单击“保存”（通常step3不用做，默认位置就是对的）3．将当前网页添加到“精彩”收藏夹中.操作：选择“收藏”---“添加到收藏夹”命令，选择“精彩”，单击“确定”。

4.下载某软件到“C:\ITSDATA\13\下载软件”文件夹中，文件名不变。

操作：单击网页中的该软件――单击“保存”命令，选择保存位置（C:\ITSDATA\13\下载软件)，单击“保存”。

（通常不用选保存位置，直接“保存”即可）5.将当前网页设置成默认主页（网页已经打开）操作：选择“工具”―――“internet选项”命令―――单击“使用当前页”按钮（带“主页”字样的窗口）――单击“确定”。

6.通过收藏夹打开”golf网页”操作：单击“收藏”菜单---单击“golf网页”7.通过“从文件导入收藏……”的方法，如：导入“C:\ITSDATA\13\下载\”下的“11.htm”文件。

学业水平考试真题集锦（VB）

学业水平考试真题集锦（VB）学业水平考试题－算法与程序设计1、写出程序运行结果Private Sub Command1_Click()Dim S , i As IntegerS = 0I = 1For i =1 To 4S=S+i^2Next iPrint "S=", SEnd Sub运行的结果是：S=302、分析程序，写出执行结果Private Sub Command1_Click()Dim S As Integer , i As IntegerS = 0For i = 1 To 10 Step 2S = S+iNext iPrint "S="; SEnd Sub运行的结果是S=253、已知S=1+2+3+.......+N , 找出一个最大的整数N，使得S<300。

（填空）Private Sub Command1_Click()S=0N=0Do While S<300N=N+1S=S+NLoop____________N=N-1Print "最大的整数N为：" ; NEnd Sub4、分析程序，写出执行结果Private Sub Commamd1_Click() Dim ch As String, i As IntegerCh="abc"I=1Do While i <=3Ch=Ch & Right("DEF",i)I=i+2LoopPrint chEnd Sub运行的结果是abcFDEF5、分析并完善程序输出1~30之间的偶数（8分）Private Sub Command1_Click() Dim i As InegerFor i=1 To 30If i MOD 2 =0 ThenPrint i ;End IfNEXT iEnd Sub6、计算1+3+5+……+99 的值（8分）Private Sub Command1_Click() Dim i, s As IntegerS=0For i=1 To 50S=S+(2*i-1)NEXT iEnd Sub7、分析程序，写出执行结果Private Sub Command1_Click()Dim a As Integer, b As Integera=1; b=0Do While a <=3a=a+1b=b+a*aLoopPrint a,bEnd sub运行的结果是 4 298、编写程序，将字符串“ABCDEFGHIJKLMN”颠倒排列次序，变换为“NMLKJIHGFEDCBA”。

VB程序设计考试题库——考试专用

程序设计题1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数〞或"零"。

2、题目：(事件)单击窗体。

(响应)求200~300之间既能被3整除又能被7整除的数。

并求出所有数之和存入变量SUM中3、题目：单击窗体。

(响应)S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。

4、题目：(事件)单击窗体。

(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。

5、题目：(事件)双击窗体。

(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚〕，求出其所有的换法，把结果输出在窗体上。

将所有的换法的数目存入变量N中6、题目：单击窗体。

)求1!+2!+3!+4!+5!并将结果输出到窗体上。

结果存入变量S中7、题目：(事件)单击窗体。

(响应)生成一个一维数组(10个数组元素依此为：' 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。

将最大值，最小值，平均值分别存入变量Ma*,Min,Aver中8、题目：(事件)单击窗体。

(响应)在窗体上输出100~200之间的所有合数。

求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。

9、题目：(事件)单击窗体。

(响应)求10~20之间所有素数的乘积并输出在窗体上。

将结果存入变量L 中。

10、题目：(事件)单击窗体。

(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。

将结果存入变量J中。

1题n = InputBo*("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"ElseIf n = 0 Thenresult = "零"End IfMsgBo* "输入的数据" & n & "为：" & result2题Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNe*tPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)Ne*tPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + mNe*t5题Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNe*tNe*tNe*t6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNe*ts = s + kNe*tPrint (CStr(s))7题Dim a(9) As IntegerDim i, s As Integera(0) = 15：a(1) = 23：a(2) = 72 a(3) = 43：a(4) = 96：a(5) = 23 a(6) = 3：a(7) = 65：a(8) = 88a(9) = 17：ma* = a(0)：min = a(0) s = 0For i = 0 To 9If a(i) > ma* Thenma* = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Ne*taver = Int(s / 10)Print (CStr(ma*))Print (CStr(min))Print (CStr(aver))8题Dim i, j, s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i))sum = sum + iE*it ForEnd IfNe*tNe*tPrint sum9题Dim i%，j%，b As Booleanl = 1：b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNe*tIf b = False Thenl = l * iEnd Ifb = FalseNe*tPrint Str(l)10题Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Then j = j - 1 / iEnd IfNe*tPrint j11、题目： (事件)单击窗体。

《VB程序设计》会考模拟试卷(一)

《VB 程序设计》会考模拟试卷（一） (考试时间：90分钟，满分：100分)2分，共60分） 1、VB 中的变量如果没有显式声明其数据类型，则默认为（） A 、日期型 B 、数值型 C 、字符型 D 、变体型 2、设置标签显示内容的属性是（）A 、captionB 、textC 、nameD 、top3、在窗体上画一个文本框，其名称为text1,为了在程序运行后隐藏该文本框，应使用（）A 、text1.clearB 、text1.visible=falseC 、text1.hideD 、text1.enabled=false4、为了把窗体上的某个控件变为活动的，应执行的操作是（） A 、单击窗体的边框 B 、单击控件的内部 C 、双击该控件 D 、双击窗体5、确定一个控件在窗体上的位置的属性是（） A 、width 或 height B 、width 和 height B 、top 或 left D 、top 和 left6、为了同时改变一个活动控件的高度和宽度，正确的操作是（） A 、拖动控制4个角上的某个小方块 B 、只能拖动位于控件右下角上的小方块 C 、只能拖动位于控件左下角上的小方块 D 、不能同时改变控件的高度和宽度7、可获得当前系统日期的函数是（）A 、date( )B 、time( )C 、isdate( )D 、year( ) 8、下列不能打开代码窗口的操作是（） A 、双击窗体的某个控件 B 、双击窗体C 、在“视图”菜单单击“代码窗口”D 、单击窗体或控件 9、按任一键的事件名为（）A 、changeB 、keydownC 、clickD 、keypress 10、下面变量不合法的（）A 、a2_1B 、abcdC 、a$xD 、CDE11、下面合法的变量是( )A 、1/2B 、’abcd ’C 、1.2*5D 、false12、在VB 中，用于获得字符串S 最左边4个字符的函数是（） A 、left(S,4) B 、left(1,4) C 、right(S,4) D 、right(S) 13、在VB 中，基本数据类型包括（） A 、数值型数据、日期型、字节型、货币型、逻辑型、字符型、对象型、变体型 B 、整型、实型、字符型、记录型 C 、整型、实型、逻辑型、集合型D 、实型、逻辑型、字符型、自定义型 14、VB 中可以用类型说明符来标识变量的类型，其中表示货币型是的（） A 、% B 、# C 、@ D 、$ 15、表达式a+b=c 是（）A 、赋值表达式B 、字符表达式C 、算术表达式D 、关系表达式 16、设a=2,b=3,c=4,d=5,下列表达式的值是（）a>b and c<=d or 2*a>cA 、trueB 、falseC 、-1D 、017、语句print 5*5\5/5的输出结果是（）A 、5B 、25C 、0D 、1 18、以下语句的输出结果是（）Print format$(32548.5,”000,000.00”)A 、32548.5B 、32,548.5C 、0.32,548.50D 、32,548.50 19、如果在立即窗口中依次执行下列命令：a=8 b=9print a>b则输出的结果是（）A 、1B 、0C 、falseD 、true 20、在立即窗口中执行下列语句：a=”beijing ” b=”shanghai ” print a;b则输出结果是（）(△表示空格)A 、beijing △ shanghaiB 、△beijing △shanghaiC 、beijingshanghaiD 、△beijing △shanghai △ 21、执行print sqr(9)命令后，输出结果为（）A 、3B 、9C 、81D 、2722、inputbox 函数返回值的类型为（）A 、数值B 、字符串C 、变体D 、数值或字符串（视输入的数据而定）班级：姓名：学号○ ○ 密 ○ 封 ○ 装 ○ 订 ○ 线 ○ ○密封线内不要答题23、通过代码在运行时设置属性的语法格式为（）A、对象名=属性.新值B、对象名.属性=新值C、对象名.新值=属性.新值D、对象名.属性=属性.新值24、使文本框获得焦点的方法是（）A、changeB、gotfocusC、setfocusD、lostfocus25、若要求在文本框中输入密码时，文本框中只显示#号，则应在此文本框的属性窗口中设置（）A、caption属性值为#B、text属性值为#C、passwordchar属性值为#D、passwordchar属性值为真26、设a=10，则执行X=iif(a>5,-1,0)后，x的值为（）A、5B、6C、0D、-127、a的初值为1，当VB执行下面语句后，a的值为（）If a>0 then a=a+1If a>=1 then a=0A、0B、1C、2D、328、在窗体中添加一个文本框（其中name属性为text1），然后编写如下代码：Private sub form_click( )Text1.text=””Text1.setfocusFor i=1 to 10Sum=sum+iNext iText1.text=sumEnd sub上述程序运行后，单击窗体，则运行的结果（）A、在文本框text1中输出35B、在文本框text1中输出0C、出错D、在文本框text1中输出不定值29、使用语句dim a(-3 to 5) as integer 定义的数组的元数个数是（）A、7B、8C、9D、1030、sub和function的最大差别在于（）A、function可以通过函数名返回值，而sub不能B、function需要输入参数，而sub不用C、sub可以用call语句调用，而function不行D、两者并无不同2分，共40分）（）和（）。

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

四川计算机vb二级考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 如果变量x的值是5，那么表达式x + 1的值是多少？A. 5B. 6C. 7D. 8答案：B3. 在Visual Basic中，哪个关键字用于声明一个子程序？A. FunctionB. SubC. Both A and BD. None of the above答案：C4. 下列哪个控件不是Visual Basic的标准控件？A. LabelB. TextBoxC. CommandButtonD. Slider答案：D5. 在Visual Basic中，如何将一个变量声明为整型？A. Dim x As IntegerB. Dim x As DoubleC. Dim x As StringD. Dim x As Boolean答案：A6. Visual Basic中的哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp答案：A7. 在Visual Basic中，哪个属性用于设置文本框的初始文本？A. TextB. CaptionC. ValueD. Name答案：A8. Visual Basic中的哪个事件用于响应鼠标单击操作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A9. 在Visual Basic中，如何将一个变量声明为浮点型？A. Dim x As IntegerB. Dim x As SingleC. Dim x As DoubleD. Dim x As String答案：C10. Visual Basic中的哪个方法用于在文本框中显示文本？A. ShowB. DisplayC. PrintD. Write答案：C二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。

《VB程序设计》计算机水平等级考试样题及参考答案

《VB程序设计》计算机⽔平等级考试样题及参考答案全国⾼等学校计算机⽔平考试《Visual Basic程序设计》考试样题（⼀）、理论题（20分，每⼩题1分）1.在正常安装Visual Basic6.0后，可以通过多种⽅式启动Visual Basic。

以下⽅式中不能启动Visual Basic的是：____D____A)通过“开始”菜单中的“程序”命令B)通过“我的电脑”找到vb6.exe，双击该⽂件名C)通过“开始”菜单中的“运⾏”命令D)进⼊DOS⽅式，执⾏vb6.exe⽂件2.每当窗体失去焦点时会触发的事件是___C____A)ActiveB)DeactiveC)LostFocusD)Initialize3.为了同时改变⼀个活动控件的⾼度和宽度，正确的操作是：___B_____A) 拖拉控件4个⾓上的某个⼩⽅块B) 只能拖拉位于控件右下⾓的⼩⽅块C) 只能拖拉位于控件左下⾓的⼩⽅块D) 不能同时改变控件的⾼度和宽度4. 假定窗体的名称为Form1，对该窗体编写如下代码：Private Sub Form_Load()Form1.Caption=”AAAAA”Me.Caption=”BBBBB”Capt ion=”CCCCC”End Sub程序运⾏后，窗体的标题是__C___A）AAAAAB）BBBBBC）CCCCCD）显⽰出错信息5.__A___属性设置窗体中⽂本和图形的背景颜⾊A）BackColorB）ColorC）TextD）ForeColor6.为了防⽌⽤户随意将光标置于控件上，应该__D__A) 将控件的TabIndex属性设置 0B) 将控件的TabStop属性设置为0C) 将控件的TabStop属性设置为FalseD) 将控件的Enabled属性设置为False7.语句Z=y+1代表___A______A）变量Z取得y+1的值B）变量Z取得变量y的值，然后再加上1的⼀个表达式C）将变量Z存⼊变量y中，再加上1的表达式D）将变量Z存⼊变量y+1中8.下列程序的运⾏结果是_____A____A=5B=-5C=NOT A=BPRINT CA）TrueB）-5C）0D）⽆法输出9.在窗体上画⼀个命令按钮（名称为Command1）编写如下事件过程：Private Sub Commmand1_Click()b=1c=3print a=b+cEnd Sub程序运⾏后，单击命令按钮，输出的结果是_D___A）a=3B）a=b+cC）3D）False10.设有如下的程序段：a$=”BeijingShanghai”b$=Mid(a$,instr(a$,”g”)+1)执⾏上⾯的程序段后，变量b$的值为__B____A）BeijingB）S hanghaiC）B eijingShanghaiD）显⽰出错信息11.下列语句的输出结果是_C___a=sqr(3.61)Print Format(a,”000.000”)A）1.900B）1.9C）001.900D）001.912.执⾏下⾯的代码，在图⽚框中显⽰的是___B___ Private Sub Command_Click()Picture1.print “Bbb”End SubA)名为”Bbb”的图形⽂件B)⽂本”Bbb”C)不显⽰任何信息D)出错13. 在VB中，下列_C__控件属于容器控件A）GridB）TextBoxC）FrameD）CheckBox14. 下列程序的输出结果是__C___Private Sub Command1_Click()For I=1 to 3Print chr(Asc(“a”)+I-1)NextEnd subA)ABCB)97 98 99C)abcD)bcd15. 设 a=10，则执⾏x=iif(a>7,-1,0)后，x的值是_D_A）7B）10C）0D）-116. 阅读程序：Function func(n As Integer) As IntegerSum=0For I=1 to nSum=Sum+(I+1)*INext IFunc=SumEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=3s=func(a)print sEnd Sub程序运⾏后，单击命令按纽，输出结果为：_B___A）15B）20C）8D）3017.假设在窗体上已经添加了通⽤对话框CommonDialog控件并设置好属性，其名称是CommonDialog1，在程序中要显⽰“打开”对话框，使⽤语句是：_A___A）CommonDialog1.Action=1B）CommonDialog1.Action=2C）CommonDialog1.Action=3D）CommonDialog1.Action=418.在窗体上画两个标签和⼀个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L as label,ByVal a As integer)L.Caption=”1234”a=a*aEnd SubPrivate Sub Form_Load()Label1.Caption=”ABCD”Label2.Caption=10End SubPrivate Sub Command1_Click()a=val(Label2.Caption)call func(label1,a)label2.caption=aEnd Sub程序运⾏后，单击命令按纽，在两个标签Label1和Label2中显⽰的内容分别是_D_A) ABCD和10B) 1234和100C) ABCD和100D） 1234和1019. 要判断在⽂本框内是否按下了回车键，可以在⽂本框的_C__事件过程中进⾏判断A) ChangeB) ClickC) KeyPressD) GotFocus20. 下列控件可以⽤来显⽰⽂件的是__B_A）DirListBoxB）F ileListBoxC）D riveListBoxD）ListBox（⼆）操作题1．简单操作（35分）（1）在Form1的窗体上画⼀个命令按钮，名称为Command1，标题为“未按下”。

VB程序设计编程考试题及答案

VB程序设计编程考试题及答案1.输入3个数，输出最大的数Private Sub command1_click（)Dim maxFor i = 1 To 3n = Val(InputBox（”输入第”＆i & "个数”)）If n > max Thenmax = nEnd IfNextPrint ”三个数中最大的数是" ; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a,b,c，判断此方程是否有实根Private Sub Command1_Click(）Dim a，b, c，na = Text1b = Text2c = Text3n = b ＊b - 4 ＊a ＊cIf n 〉= 0 ThenLabel4 = "方程有根”ElseLabel4 = ”方程无根"End IfEnd Sub3.输入一个百分制的成绩,若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”,若小于60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = ""End SubPrivate Sub Command1_Click（）Dim nn = Text1If n 〉=60 ThenVal (MsgBox（"恭喜！成绩通过！"))ElseVal （MsgBox（"抱歉！成绩没有通过！")）End IfEnd Sub4.输入一年份，判断它是否为闰年，并显示有关信息。

(判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除）Private Sub Command1_Click（)Dim y％y = InputBox（"请输入年份"）If y Mod 4 = 0 And y Mod 100 〈〉0 Or y Mod 400 = 0 ThenVal (MsgBox("闰年!”))ElseVal (MsgBox（”平年！”））End IfEnd Sub5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀,80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。

vb程序设计考试题库及答案

vb程序设计考试题库及答案一、单项选择题（每题2分，共40分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. RealD. All of above答案：D2. VB中，哪个函数用于计算两个数的最大值？A. MinB. MaxC. AbsD. Sgn答案：B3. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. All of above答案：D4. VB中，以下哪个是正确的循环结构？A. For EachB. For AllC. Do WhileD. All of above答案：D5. 在VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. Switch...CaseC. Select...CaseD. All of above答案：D6. VB中，哪个函数用于计算一个数的绝对值？A. AbsB. RoundC. SqrD. Int答案：A7. 在VB中，以下哪个是合法的数组声明？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C8. VB中，哪个函数用于将字符串转换为大写？B. UCaseC. StrCompD. StrConv答案：B9. 在VB中，以下哪个是正确的事件处理程序的声明方式？A. Private Sub Form_Click()B. Public Sub Form_Click()C. Both A and BD. None of the above答案：A10. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. ExpD. Log11. 在VB中，以下哪个是正确的文件打开模式？A. Open For InputB. Open For AppendC. Open For RandomD. All of above答案：D12. VB中，哪个函数用于计算一个数的指数？A. SqrB. PowC. ExpD. Log答案：B13. 在VB中，以下哪个是正确的窗体属性？A. CaptionC. Both A and BD. None of the above答案：C14. VB中，哪个函数用于计算一个数的自然对数？A. SqrB. PowC. ExpD. Log答案：D15. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C16. VB中，哪个函数用于计算一个数的四舍五入？A. RoundB. IntC. FixD. Sgn答案：A17. 在VB中，以下哪个是正确的控件属性？A. NameB. CaptionC. Both A and BD. None of the above答案：C18. VB中，哪个函数用于计算一个数的符号？A. AbsB. SgnC. RoundD. Int答案：B19. 在VB中，以下哪个是正确的控件事件？A. KeyPressB. KeyDownC. Both A and BD. None of the above答案：C20. VB中，哪个函数用于计算一个数的固定整数部分？A. RoundB. IntC. FixD. Sgn答案：C二、填空题（每题2分，共20分）21. 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、删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。

四川省第23次等级考试题带答案

第二部分Visual Basic语言程序设计(共85分)一、单项选择题(每小题1分，共10分)1．在下列字符串中，不能用作VB变量名的是( A)。

16 (A)8_num (B)instr6 (C)xy_int (D)f82．x是一个正实数，如果要四舍五入并保留两位小数，则正确的表达式为( B )。

17 (A) 0.01*Int(x+0.005) (B) 0.01*Int(100*x+0. 5)(C) 0.01*Int(100*x+0.05) (D) 0.01*Int(x+0.05)3．正确表达命题“x和y都大于z”的表达式是（C ）18 (A)x > z (B) y > z(C) x > z And y > z (D) x > z Or y > z4．若字符串stra$和strb$的取值为stra$="I love my mother"strb$=Mid(stra,7,3)+Right(stra,6)则InStr(3,strb, "m")的函数值为( A )。

19(A)4 (B)2 (C)0 (D)15．如果要暂时关闭某个定时器，则必须通过设置其(C)属性为False来实现。

20(A)Timer （B）InterV al（C）Enabled （D）Visible6．在下列控件中，不接受焦点的是( A )21(A)Lable (B)Command(C)Text (D)Listbox。

7．在VB中，要将一个窗体从内存中释放，应使用的语句是( D )。

22(A)Show (B)Hide (C)Load (D)Unload8．建立弹出式菜单的方法是( A)。

23(A)PopupMenu (B)ShowMenu(C)LoadMenu (D)A、B、C都可以VB程序设计试卷共12页第2页9．以下关于Click事件描述中，错误的说法是( B )24(A)此事件是在一个对象上按下然后释放一个鼠标按钮时发生(B)如果在Click事件中有代码，则DlbClick事件将永远不会被触发(C)此事件也会发生在一个控件的值改变时(D)对Form对象来说，该事件是在单击一个空白区或无效控件时发生10．下面子过程语句合法的是( A)。

信息技术学业水平测试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试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中，以下哪个函数用于计算一个数的平方根？A. SqrB. PowC. AbsD. Log答案：A3. 在VB中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D4. VB中，以下哪个选项是正确的条件判断语句？A. IfB. SelectC. CaseD. All of the above答案：D5. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C6. VB中，以下哪个选项是正确的文件操作函数？A. OpenB. CloseC. Both A and BD. None of the above答案：C7. 在VB中，以下哪个选项是正确的窗体属性？A. CaptionB. TextC. Both A and BD. None of the above答案：C8. VB中，以下哪个选项是正确的事件处理？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C9. 在VB中，以下哪个选项是正确的控件？A. LabelB. TextBoxC. Both A and BD. None of the above答案：C10. VB中，以下哪个选项是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，用于声明变量的关键字是________。