高中计算机会考 VB题 A档次到D档次 习题及答案
高中会考信息技术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. 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语言笔试试题及答案(一)全国计算机等级考试(VB语言)笔试试题及答案为了让广大考生能更好的备考，本文将为大家提供全国计算机等级考试VB语言笔试试题及相关答案解析。
VB语言考试是比较热门的一种考试，因此备考也是非常重要的。
下面是试题及答案解析，希望对大家有所帮助。
一、单选题1、在VB语言中，执行时间比较久的程序可以采用的方法是：A.增加循环次数B.加快程序运行速度C.使用进度条等控件D.以上都不对【答案及解析】C。
在程序运行期间，如果程序执行时间太长，可以使用进度条控件使用户知道程序正在执行，以及当前运行到哪一步，提升程序的运行效率和用户体验。
2、在VB语言中，某控件的Tag属性表示：A.控件的位置B.控件所在窗口的名称C.控件的类型D.控件存储数据的指针【答案及解析】D。
在VB语言中，每个控件都可以设置其Tag属性，Tag属性可以存储控件相关的任何数据，该属性非常灵活方便。
3、在VB语言中，数组存储数据的方式是：A.栈存储B.堆存储C.静态存储D.以上都错【答案及解析】B。
在VB语言中，数组存储在堆中，即动态内存分配，这样以便在程序运行时更好地管理和利用内存。
二、多选题1、在VB语言中，下列哪些是合法的数组定义方式？（）A. Dim arr(3,5) As IntegerB. Dim arr(3)(5) As IntegerC. Redim arr(3,5)D. Dim arr() As Integer【答案及解析】A、D。
A、D都是合法的数组定义方式。
选项B是二维数组，但是定义方式不合法。
选项C是改变数组大小的方式，不是定义数组的方式。
2、在VB语言中，下列哪些事件是窗体的事件？( )A.LoadB.MouseMoveC.ClickD.Resize【答案及解析】A、D。
Load和Resize是窗体的事件，B和C是每个控件都有的事件。
三、判断题1、在VB语言中，Option Explicit语句可以保证变量在使用前被声明，从而减少程序出错的几率。
高中信息技术会考软件正式考试,最后两道vb大题题库(由会考软件数据库内提取)含答案
Content----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = "社会"Text3.text = text2+text1</Program>答案社会信息----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "vb"Text2.Text = Text1.TextText1.Text = "程序设计"</Program>答案程序设计----------------------------------------------下面程序代码运行时，分别输入数值2和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a * b</Program>答案8----------------------------------------------下面程序代码运行时，分别输入数值20和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a / b</Program>答案5----------------------------------------------下面程序代码运行时，分别输入数值7和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b</Program>答案1----------------------------------------------下面程序代码运行时，分别输入数值23和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b</Program>答案5----------------------------------------------下面程序代码运行时，分别输入数值7和2，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a ^ b</Program>答案49----------------------------------------------下面程序代码运行时，分别输入数值2和3，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a ^ b答案8----------------------------------------------下面程序代码运行时，分别输入数值7和2，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b答案3----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "中国"Text3.text = text2+text1答案中国北京----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "吉林"Text2.Text = "中国"答案中国吉林----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "制造"Text2.Text = "中国"Text3.text = text2+text1答案中国制造----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "中国"Text3.text = text1+text2答案北京中国----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "绿色"Text2.Text = "奥运"Text3.text = text2+text1答案奥运绿色----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "大学"Text2.Text = "清华"答案清华大学----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "大学"Text3.text = text2+text1答案大学北京----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "工作原理"Text2.Text = "计算机"Text3.text = text2+text1答案计算机工作原理----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "系统"Text2.Text = "计算机"Text3.text = text2+text1答案计算机系统----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 100 To 89 Step -4s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 25 To 70 Step 20s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i>0 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i<0 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -20 Step -6if i>0 then s = s + iNext i答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i<>0 then s = s + iNext i答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i=0 then s = s + iNext i答案1----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i > 5 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i< 8 then s = s + iNext i答案4----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 15 For i = -0.6 To -1.9 Step -0.8s = s - 9Next i Print s答案-3----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 100 For i = -0.6 To -1.9 Step -0.8s = s / 10Next i Print s答案1----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 50 For i = -0.6 To -1.9 Step -1s = (s - 10) / 2Next i Print s答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 5if i< 18 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i>3 then s = s + iNext i答案2----------------------------------------------下面程序代码运行时，分别输入数值2和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a * b答案8----------------------------------------------执行下面的程序后，在对话框中输入整数14后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3>3 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数14后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3<>3 then y=2 Print y答案1----------------------------------------------执行下面程序后，输出的结果是多少？----------------------------------------------Dim x As IntegerDim n As IntegerDim k As Integer n = 14 For k = 1 To n Step 7x = x + kNext k Print x答案9----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = Text1.TextText1.Text = "社会"信息----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "信息技术会考"Text2.Text = Text1.TextText1.Text = "高中"答案信息技术会考----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "信息技术会考"Text2.Text = Text1.TextText1.Text = "高中"答案高中----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "吉林省"Text2.Text = Text1.TextText1.Text = "普通高中"答案普通高中----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "吉林省"Text2.Text = Text1.TextText1.Text = "普通高中"吉林省----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "zhongguo"Text2.Text = Text1.TextText1.Text = "china"答案zhongguo----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "zhongguo"Text2.Text = Text1.TextText1.Text = "china"答案china----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "2008"Text2.Text = Text1.TextText1.Text = "北京奥运"答案北京奥运----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "2008"Text2.Text = Text1.TextText1.Text = "北京奥运"2008----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = Text1.TextText1.Text = "社会"答案社会----------------------------------------------下面程序代码运行时，分别输入数值23和45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案68----------------------------------------------下面程序代码运行时，分别输入数值15和6，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案21----------------------------------------------下面程序代码运行时，分别输入数值230和405，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案635----------------------------------------------下面程序代码运行时，分别输入数值-9和8，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-1----------------------------------------------下面程序代码运行时，分别输入数值-9和-9，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-18----------------------------------------------下面程序代码运行时，分别输入数值63和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案18----------------------------------------------下面程序代码运行时，分别输入数值-23和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-68----------------------------------------------下面程序代码运行时，分别输入数值23和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-22----------------------------------------------下面程序代码运行时，分别输入数值1234和4321，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案5555----------------------------------------------下面程序代码运行时，分别输入数值12和43，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案55----------------------------------------------下面程序代码运行时，分别输入数值19和40，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案59----------------------------------------------下面程序代码运行时，分别输入数值79和8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案87----------------------------------------------下面程序代码运行时，分别输入数值50和50，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案100----------------------------------------------下面程序代码运行时，分别输入数值7和8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案15----------------------------------------------下面程序代码运行时，分别输入数值123和456，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案579----------------------------------------------下面程序代码运行时，分别输入数值79和-8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案71----------------------------------------------下面程序代码运行时，分别输入数值-15和-6，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案-21----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/9>1 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数20后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/9>1 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数16后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3>3 then y=2 Print y答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To 10 Step 3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 3 To 20 Step 5s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 26 To 40 Step 3s = s + iNext i答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To 10 Step 5s = s + iNext i答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To 1 Step -3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 9 To 19 Step 3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 20 To 10 Step -2s = s + iNext i答案6----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 99 To 120 Step 9s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To -10 Step -3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = -1 To -13 Step -3s = s + iNext i答案5----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x>0 then y=x/3+9 Print y答案13----------------------------------------------执行下面的程序后，在对话框中输入整数8后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10>0 then y=x/3+9 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数24后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10>0 then y=x/3+9 Print y答案17----------------------------------------------执行下面的程序后，在对话框中输入整数10后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10<>0 then y=x/3+9 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数2后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10<0 then y=x^3 Print y答案8----------------------------------------------执行下面程序后，变量a的值是什么？----------------------------------------------Dim a As StringDim b As StringDim c As String a = "wine"b = "water"c = aa = bb = c答案water----------------------------------------------执行下面程序后，变量b的值果是什么？----------------------------------------------Dim a As StringDim b As StringDim c As String a = "wine"b = "water"c = aa = bb = c答案wine----------------------------------------------下面程序代码运行时，分别输入数值35和46，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案81----------------------------------------------执行下面的程序后，在对话框中输入整数35后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2*x+x/5 Print y答案77----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 56 To 70 Step 8x = x + i \ 5Next i Print x答案73----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 10 Step 3x = x + i \ 5Next i Print x答案53----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 10 For i = 2 To 10 Step 3x = x + i \ 5Next i Print x答案12----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = -1 To 10 Step 3 x = x + i \ 5Next i Print x答案52----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 0 To 10 Step 5 x = x + i / 5Next i Print x答案53----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 0 To 9 Step 3 x = x + i / 3Next i Print x答案56----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 10 Step 3 x = x + iNext i Print x答案72----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 15 For i = 1 To 10 Step 4 x = x + i \ 5Next i Print x答案17----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 5 Step 3 x = x + i * 2Next i Print x答案60----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 1 For i = 1 To 8 Step 3 x = x + i * 3Next i Print x答案37----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 1 For i = 1 To 10 Step 3 x = x + iNext i Print x答案23----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 10 To 20 Step 5 x = x + i - 5Next i Print x答案80----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 1 To 10 Step 3x = x + i \ 5Next i Print x答案3----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 10 To 20 Step 4x = x + i \ 5Next i Print x答案7----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 18 To 10 Step -3x = x + i \ 5Next i Print x答案8----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 5 To 10 Step 3x = x + i \ 5Next i Print x答案2----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 10 To 1 Step -3x = x + i \ 5Next i Print x答案3----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if (x-5)/3>0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if (x+5)/2>3 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数8后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x/3>3 then y=20 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数15后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=111 if x/3>3 then y=222 Print y答案222----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数0后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数-9后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<0 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if x=0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x>0 then y=20 Print y答案20----------------------------------------------执行下面的程序后，在对话框中输入整数-12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=12 if x<0 then y=-12 Print y答案-12----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if x<>0 then y=0 Print y。
vb高中试题及答案
vb高中试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. LetD. Set答案：A2. VB中，用于条件判断的关键字是？A. IfB. ElseC. ThenD. For答案：A3. 以下哪个函数用于计算字符串的长度？A. LenB. StrC. ValD. Mid答案：A4. 在VB中，如何表示一个数组？A. Dim numbers(10) As IntegerB. Dim numbers(1 to 10) As IntegerC. Dim numbers(0 to 10) As IntegerD. All of the above答案：D5. VB中，用于循环遍历数组的关键字是？A. ForB. WhileC. DoD. Repeat答案：A6. VB中，用于定义子程序的关键字是？A. FunctionB. SubC. ProcedureD. Method答案：B7. 在VB中，以下哪个关键字用于创建类？A. ClassB. ModuleC. InterfaceD. Structure答案：A8. VB中，用于定义全局变量的关键字是？A. GlobalB. PublicC. PrivateD. Dim答案：B9. VB中，用于结束一个循环的关键字是？A. ExitB. BreakC. ContinueD. End答案：A10. 在VB中，以下哪个函数用于将数字转换为字符串？A. StrB. ValC. CStrD. Format答案：C二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的正确语法是：__________。
答案：Dim variableName As Integer2. 如果要在VB中声明一个常量，应该使用关键字：__________。
答案：Const3. 在VB中，要定义一个函数，应该使用关键字：__________。
(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语言模拟试题（附答案）一、选择题（每题2分，共20分）1. 以下不属于VB的数据类型的是（）A. 整数类型B. 浮点数类型C. 字符串类型D. 布尔类型答案：D2. 在VB中，变量必须声明在（）A. 过程中B. 窗体中C. 模块中D. 以上都可以答案：A3. VB中，数组的默认下标范围是（）A. 0 到 10B. 0 到 65535C. -32768 到 32767D. 1 到 100答案：B4. 以下叙述错误的是（）A. VB是面向对象的程序设计语言B. VB中的窗体是VB应用程序的基本组成部分C. VB中的模块是VB应用程序的基本组成部分D. VB中的工程是VB应用程序的基本组成部分答案：C5. 在VB中，以下哪个不是事件过程？（）A. ClickB. LoadC. WriteD. Run答案：D6. 在VB中，要将字符串转换为数值型数据，应使用（）A. Val函数B. Int函数C. Str函数D. Date函数答案：A7. 下面哪个函数可以实现求绝对值的功能？（）A. Abs(x)B. Sqr(x)C. Int(x)D. Fix(x)答案：A8. VB中，DateDiff函数用于计算两个日期之间的（）A. 年数B. 月数C. 星期数D. 天数答案：D9. VB中，Randomize语句的作用是（）A. 初始化随机数发生器B. 生成一个随机数C. 清除随机数发生器D. 设置随机数的范围答案：A10. 下列哪个关键字用于定义常量？（）A. DimB. ConstC. LetD. Var答案：B二、填空题（每题2分，共20分）1. 在VB中，______用于声明一个变量。
答案：Dim2. VB中，______语句用于打开一个文件。
答案：Open3. 在VB中，______函数用于求一个数的平方根。
答案：Sqr4. VB中，______语句用于关闭打开的文件。
答案：Close5. 在VB中，______用于定义一个过程。
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考试题库及答案高中# VB考试题库及答案高中一、选择题1. 在Visual Basic中，以下哪个选项是正确的数据类型？ - A. Integer- B. int- C. float- D. string答案：A2. 以下哪个语句可以正确地在VB中声明一个整型变量？ - A. Dim x as Integer- B. var x = 10- C. int x = 10- D. x Integer答案：A3. 在VB中，哪个关键字用于定义一个过程？- A. Function- B. Sub- C. If- D. For答案：B4. 以下哪个选项是VB中的循环结构？- A. If- B. While- C. Select Case- D. Dim答案：B5. 在VB中，以下哪个函数用于计算一个数的平方根？- A. Sqr(x)- B. Abs(x)- C. Int(x)- D. Round(x)答案：A二、填空题1. 在VB中，使用______关键字来定义一个类。
答案：Class2. 要在一个VB程序中调用另一个模块中的函数，需要使用______关键字。
答案：Public3. 在VB中，使用______语句来结束一个循环。
答案：Exit For 或 Exit Do4. Visual Basic中的数组声明可以使用______或______关键字。
答案：Dim 或 Static5. 在VB中，要调用一个对象的方法，可以使用______符号。
答案：. (点)三、简答题1. 简述Visual Basic中的事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，其中程序的执行流程由外部事件（如用户点击按钮、键盘输入或系统消息）触发。
在Visual Basic中，事件通常与用户界面控件相关联，当控件接收到特定的用户操作时，就会触发相应的事件处理程序。
2. 解释Visual Basic中的属性和方法的区别。
高中vb会考试题及答案
高中vb会考试题及答案1. 以下哪个选项是Visual Basic的编程语言？A. PythonB. C++C. Visual BasicD. Java答案：C2. Visual Basic中，哪个关键字用于声明变量？A. DimB. LetC. ConstD. Option答案：A3. 在Visual Basic中，以下哪个函数用于计算两个数的和？A. Sum()B. Add()C. Concatenate()D. Join()答案：A4. 如果在Visual Basic中使用以下代码：```Dim x As Integerx = 5```那么变量x的值是多少？A. 0B. 5C. 10D. 15答案：B5. 在Visual Basic中，哪个控件用于显示文本信息？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A6. Visual Basic中，哪个事件用于在窗体加载时执行代码？A. Form_LoadB. Form_ClickC. Form_KeyPressD. Form_Paint答案：A7. 在Visual Basic中，以下哪个关键字用于循环遍历数组中的所有元素？A. ForB. WhileC. DoD. Each答案：D8. 如果在Visual Basic中使用以下代码：```Dim myArray(5) As IntegerFor i As Integer = 0 To 5myArray(i) = i * 2Next i```数组myArray的最后一个元素的值是多少？A. 6B. 8C. 10D. 12答案：C9. Visual Basic中，哪个函数用于将字符串转换为大写？A. ToUpper()B. ToLower()C. Trim()D. Replace()答案：A10. 在Visual Basic中，以下哪个关键字用于声明过程？A. SubB. FunctionC. PropertyD. Event答案：A。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visaul Basic 程序设计（编程题）A 类题说明：A 类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。
用到的控件有：标签框、文本框、命令按钮等。
A01、制作一个加法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之和并显示在标签中；单击“清除”按钮可以清除各项数值。
Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)text3.text = a + bEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.text = ""End SubA02、已知y= x 3＋|x －10|＋4， 编程求y 的值 。
要求：在文本框中输入x 的值，单击“计算”按钮后在“y ”框中显示y 的值；单击“退出”按钮退出程序。
Private Sub Command1_Click()X= Val(Text1.Text)Text2.text = x ^ 3 + Abs(x - 10) + 4End SubPrivate Sub Command2_Click()EndEnd SubA03、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积。
Private Sub Command1_Click()r=val(text1.text)text2.text=2*3.14*rtext3.text =3.14*r*rEnd SubA04、编程计算圆锥的体积。
要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。
提示：V =31πhr 2 ，π取3.14 Private Sub Command1_Click()r= Val(Text1.Text)h= Val(Text2.Text)text3.text = 1 / 3 * 3.14 * h * r ^ 2End SubPrivate Sub Command2_Click()Text3.text = ""Text2.Text = ""Text1.Text = ""End SubA05、华氏温度（F ）与摄氏温度（C ）之间的转换关系为：3259＋摄氏温度华氏温度⨯= 。
编程实现： 若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除” 按钮可以清除各温度值。
Private Sub Command1_Click()C= Val(Text1.Text)text2.text = 9 / 5 *c + 32End SubPrivate Sub Command2_Click()Text1.Text = ""text2.text = ""End SubA06、求并联电阻R 的值。
要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R ” 框中显示并联电阻R 的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。
（提示：2121R R R R R +⨯=） Private Sub Command1_Click()r1=val(text1.text)r2=val(text2.text)text3.text =r1*r2/(r1+r2)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.text = ""End SubA07、一个物体从一座塔高为h （米）的塔顶上自由落下，求落地所需的时间t （秒）。
要求：在文本框中输入塔高h ，单击“计算”按钮，在“时间”框中显示落地所需时间t 的值；单击“退出”按钮退出程序（提示：g ht 2= ，其中g=9.8 ）。
Private Sub Command1_Click()h=val(text1.text)text2.text =sqr(2*h/9.8)End SubPrivate Sub Command2_Click()endEnd SubA08、一架雪橇沿一斜坡滑下，它在时间t （秒）滑下的距离s （米）由以下公式给出：s=10t+2t 2。
编程实现：若用户在文本框中输入一个时间值，单击“计算”按钮可以计算出下滑的距离，并将其显示出来； 单击“刷新”按钮可以清除各项数值。
Private Sub Command1_Click()t=val(text1.text)text2.text =10*t+2*t*tEnd SubPrivate Sub Command1_Click()text1.text= ""text2.text = ""End SubA09、编程完成美元兑换人民币的计算，假设美元兑换人民币，100美元=620人民币，输入美元数，输出兑换的人民币数。
B类题说明：B类题以选择结构为主，并涉及平方根，绝对值等函数的应用。
B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。
Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)If a > b ThenText3.text = aElseText3.text = bEnd IfEnd SubPrivate Sub Command2_Click()Text1.text = ""Text2.Text = ""Text3.Text = ""End SubB02、买水果。
10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。
用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。
Private Sub Command1_Click()x = Val(Text1.Text)If x >= 10 Thentext2.text = x*3Elsetext2.text = x * 3.5End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""text2.text = ""End SubPrivate Sub Command3_Click()EndEnd SubB03、由铁路托运行李，从甲地到乙地，行李不超过50 kg 时，运费为1.50 元 /kg ，如果超过 50kg, 超过部分的运费为2.00 元 /kg 。
请编写程序，当输入行李重量后，单击“计算”按钮计算运费，单击“清除”按钮可以清除各项数值。
Private Sub Command1_Click()w = Val(Text1.Text)If w <= 50 Thena = 1.5 * welsea = 50 * 1.5 + (w - 50) * 2end iftext2.text = aEnd SubPrivate Sub Command2_Click()Text1.Text = ""text2.text = ""End SubB04、输入a, b 的值 , 当a ×b>0时计算表达式y ＝ab ba 4 的值，否则弹出消息“wrong ”。
Private Sub Command1_Click()a=val(text1.text)b=val(text2.text)if a*b>0 thentext3.text =(a+b)/sqr(4*a*b)elsetext3.text =“wrong ”end ifEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.text = ""End SubB05、输入a,b,c 三个数，若b 2-4ac 0 则显示“有实根”，否则显示“无实根”。
Private Sub Command1_Click()a=val(text1.text)b=val(text2.text)c= val(text3.text)if b*b-4*a*c>=0 thentext4.text =“有实根”elsetext4.text =“无实根”end ifEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.text = ""End SubB06、由键盘输入三条边ABC，判断是否构成三角形，构成三角形的显示“此三边能构成三角形”，否则显示“此三边不能构成三角形”。
（构成三角形的条件为：任意两边之和大于第三边，任意两边之差小于第三边。
）Private Sub Command1_Click()a=val(text1.text)b=val(text2.text)c= val(text3.text)if a+b>c and a+c>b and b+c>a thentext4.text =“此三边能构成三角形”elsetext4.text =“此三边不能构成三角形”end ifEnd SubPrivate Sub Command2_Click()EndEnd SubB07任意输入一个数，若这个数大于零则输出这个数的平方根，若这个数小于或等于零则输出这个数的绝对值。
Private Sub Command1_Click()a = Val(Text1.Text)If a > 0 Then text2.text = Sqr(a) Else text2.text = Abs(a)End SubPrivate Sub Command2_Click()EndEnd SubC类题说明：C类题以循环结构的应用为主，并涉及累加、累乘、随机函数、分离数字、判断整除的应用等。