VB操作题答案

合集下载

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

vb试题及答案（共10篇）篇1：计算机vb试题及答案计算机vb试题及答案(1)下面叙述正确的是(C)A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数C.算法的有穷性是指算法必须能在执行有限个步骤之后终止D.以上三种描述都不对(2)以下数据结构中不属于线性数据结构的是(C)A.队列B.线性表C.二叉树D.栈(3)在一棵二叉树上第5层的结点数最多是(B)注：由公式2k-1得A.8B.16C.32D.15(4)下面描述中，符合结构化程序设计风格的是(A)A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B.模块只有一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用goto语句(5)下面概念中，不属于面向对象方法的是(D)A.对象B.继承C.类D.过程调用(6)在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是(B)A.可行性分析B.需求分析C.详细设计D.程序编码(7)在软件开发中，下面任务不属于设计阶段的是(D)A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型(8)数据库系统的核心是(B)A.数据模型B.数据库管理系统C.软件工具D.数据库(9)下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10)下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A)A.内模式B.外模式C.概念模式D.逻辑模式(11)算法的时间复杂度是指(C)A.执行算法程序所需要的时间B.算法程序的长度C.算法执行过程中所需要的基本运算次数D.算法程序中的指令条数(12)算法的空间复杂度是指(D)A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间(13)设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B)注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A.349B.350C.255D.351(14)结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15)在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)注：即第一个阶段A.概要设计B.详细设计C.可行性分析D.需求分析(16)数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。

vb试题及答案

VB试卷一、单项选择题(每题2分,共40分)1. 窗体的标题栏显示内容由窗体对象的属性决定。

A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用属性来设置。

A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的属性决定。

A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置属性为False来实现。

A) ControlBox B) MinButton C) MaxButton D) Enabled5. 以下4个选项，不属于VB的工作模式。

A) 编译 B) 设计 C) 运行 D) 中断6. 窗体的边框样式由窗体对象的属性来设置。

A) BackStyle B) BorderStyle C) WindowState D) FillStyle7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。

A) FontName B) Font C) FontSize D) FontBold8. 命令按钮的标题文字由属性来设置。

A) Text B) Caption C) Name D) (名称)9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。

A) 变量 B) 属性 C) 事件 D) 方法10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。

A) Value B) Cancel C) Default D) Enabled11. 若要使命令按钮不可见，可设置属性为False来实现。

A) Value B) Enabled C) Visible D) Cancel12. 运行程序时，系统自动执行窗体的事件。

A) load B) click C) unload D) GotFocus13. 若要设置文本框最大可接收的字符数，可通过属性来实现。

vb试题及答案一

vb试题及答案一一、选择题1. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. IfC. ForD. While答案：A2. Visual Basic中的哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. DblClick答案：A4. 在Visual Basic中，以下哪个函数用于将字符串转换成数字？A. Str()B. Val()C. Int()D. CInt()答案：D5. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Quit答案：B二、判断题1. Visual Basic是一种面向对象的编程语言。

（对）2. 在Visual Basic中，所有的变量都需要声明数据类型。

（错）3. 在Visual Basic中，可以使用If语句来实现条件判断。

（对）4. Visual Basic中的数组下标总是从0开始。

（错）5. Visual Basic中的事件驱动编程允许程序在没有用户交互的情况下运行。

（错）三、简答题1. 请简述Visual Basic中使用循环结构的目的是什么？答：循环结构在Visual Basic中用于重复执行一段代码直到满足特定条件，这使得处理大量数据或执行重复任务变得更加高效和简洁。

2. 请解释Visual Basic中类和对象的区别。

答：在Visual Basic中，类是一个模板，它定义了对象的属性和方法。

而对象是类的实例，具有类定义的属性和方法，并可以进行操作。

四、编程题1. 编写一个Visual Basic程序，该程序接受用户输入的三个数，并计算这三个数的平均值。

```vbDim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim average As Double' 接受用户输入num1 = Val(InputBox("请输入第一个数:"))num2 = Val(InputBox("请输入第二个数:"))num3 = Val(InputBox("请输入第三个数:"))' 计算平均值average = (num1 + num2 + num3) / 3' 显示结果MsgBox "这三个数的平均值是: " & average```五、论述题1. 论述Visual Basic中事件处理的重要性及其在应用程序开发中的应用。

vb练习题及答案

vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。

为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。

练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。

要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。

解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。

要求用户输入学生的姓名和成绩，然后将其保存到数组中。

用户可以通过输入姓名来查询学生的成绩。

解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。

VB习题及答案

一．选择题1．GBK字符集共有_____C_____个汉字。

A、6000多B、10000多C、20000多D、30000多2．美国标准信息交换码（ASCII码）中，共有128个字符，包括___B____个可打印字符和32个控制字符。

A、52B、96C、116D、1013．在计算机中，西文字符最常用的编码是__C___。

A、原码B、反码 C 、ASCII码D、补码4．下列四个选项中，按照其ASCII码值从小到大排列的是___A_____。

A、数字、英文大写字母、英文小写字母B、数字、英文小写字母、英文大写字母?C、英文大写字母、英文小写字母、数字D、英文小写字母、英文大写字母、数字5．下列字符中，其ASCII编码值最大的是__B____。

A、9B、DC、AD、空格6．中文标点符号“。

”在计算机中存储时占用___B__个字节。

A、1B、2C、3D、47．GBK是汉字内码的一种扩充规范，下面叙述中错误的是 B 。

A、它共有20000多个汉字B.、它使用双字节表示，字节的最高位均为0C.、它与GB2312保持向下兼容D、它不但有简体字，也有繁体字】8．汉字从录入到打印，至少涉及三种编码，汉字输入码，字型码和 D 。

A、BCD码B、ASCII码C、区位码D、机内码9．在下列汉字编码标准中，不支持繁体汉字的是 A 。

A、GB2312B、GBKC、BIG5D、GB1803010．在利用拼音输入汉字时，有时虽正确输入拼音码但却找不到所要的汉字，其原因不可能是 A 。

A、计算机显示器的分辨率不支持该汉字的显示B、汉字显示程序不能正常工作C、操作系统当前所支持的汉字字符集不含该汉字D、汉字输入软件出错11．将字符信息输入计算机的方法中，目前使用最普遍的是 A 。

？A、键盘输入B、笔输入．C、语音输入Ｄ、印刷体识别输入12．汉字的键盘输入方案数以百计，能被用户广泛接受的编码方案应 C 。

A、必须易学易记B、可输入字数多C.、易学易记，效率要高D、重码要少，效率要高13．MP3音乐采用______C_____编码方法。

VB试题库及答案

VB试题库及答案最新VB题库及答案⼀、选择题第1部分1、在窗体（名称为Form1）上画⼀个名称为Text1的⽂本框和⼀个名称为Command1的命令按钮，然后编写⼀个事件过程。

程序运⾏后，如果在⽂本框中输⼊⼀个字符，则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在⼀⾏内写多条语句时，每个语句之间⽤（）符号分隔。

A、 ,B、：C、.D、；3、下⾯（）是合法的变量名。

A、X_YZB、123ABCC、INTEGERD、X-Y4、下⾯（）是合法的字符常量。

A、 ABC$B、“ABC”C、‘ABC’D、 ABC5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。

A、14B、 4C、20D、26、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设a="a"，b="b"，c="c"，d="d"，执⾏语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输⼊⼀个整数")Print x + Text1.TextEnd Sub程序运⾏时，在⽂本框中输⼊456，然后单击窗体，在输⼊对话框中输⼊123，单击“确定”按钮后，在窗体上显⽰的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从⾼到低的顺序是（）。

VB教材课后习题答案

<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。

如果能构成一个三角形，则计算三角形的面积。

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

第一次作业Private Sub Command1_Click()Text1.Text = "欢迎你学习VB程序设计"Text1.ForeColor = vbGreenText1.Font = "宋体"Text1.FontSize = 25Text1.FontItalic = TrueText1.FontBold = TrueEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Click()Text1.ForeColor = vbRedText1.Font = "隶书"Text1.Text = "佛山大学理学院"End Sub第二次作业(服务员密码)1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。

要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）…3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。

Private Sub Command1_Click()Text1.Visible = FalseLabel2.Visible = TrueLabel2.Caption = "你好，你需要什么"Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command1.Visible = FalseCommand2.Visible = FalseLabel1.Visible = FalseLabel2.Caption = "谢谢你，再见！"End SubPrivate Sub Form_Load()Label2.Visible = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Text1_Change()If Text1.Text = "12345" Then Command1.Enabled = TrueText1.PasswordChar = "*"End Sub第三次建立一个工程(zy03.vbp),含有一个窗体（zy03.frm）。

请在该窗体上设计两个文本框，三个命令按钮，标题分别是减运算和除运算，退出，如图。

请编写适当的程序，根据两个文本框中输入的数据（整型数据）分别进行减运算和除运算，并将运算结果（注意：除运算结果采用浮点数）用标签控件显示出来。

特别要求：总是用两个文本框中输入的大数据做被减数或被除数。

工程文件和窗体文件上传到你的操作题子目录下。

Private Sub Cd1_Click()Dim X%, Y%, Z%Dim P$X = Int(Tt1.Text)Y = Int(Tt2.Text)If X > Y Then Z = X - Y Else Z = Y - XP = Str(Z)Ll2.Caption = PEnd SubPrivate Sub Cd2_Click()Dim X%, Y%, Z#Dim P$X = Int(Tt1.Text)Y = Int(Tt2.Text)If X > Y Then Z = X / Y Else Z = Y / XP = Str(Z)Ll2.Caption = PEnd SubPrivate Sub Cd3_Click()Visible = FalseEnd Sub第四次1、建立一个工程(zy041.vbp),含有一个窗体（zy041.frm）。

请在该窗体上设计三个文本框，两个命令按钮，标题分别是计算和与清除，如图。

请编写两个命令按钮适当的程序，点击命令按钮计算，利用inputbox函数输入任意两个正整数，将这两个数显示在前两个文本框中，然后根据两个数的和进行判断，如果是奇数，将其放在第3个文本框中，如果是偶数，将其打印在窗体上，点击清除按钮后，清除文本框中的数和窗体上的数据。

Private Sub C1_Click()Dim x As Integer, y As Integer, z As Integer, m As Integerx = InputBox("请输入第一个正整数：", "数据输入")y = InputBox("请输入第二个正整数：", "数据输入")If x > 0 And y > 0 ThenT1.Text = xT2.Text = yz = x + ym = z Mod 2If m = 0 ThenPrint zElseT3.Text = zEnd IfElsePrint "输入的数据无效！请再次输入~"End IfEnd SubPrivate Sub C2_Click()T1.Text = ""T2.Text = ""T3.Text = ""ClsEnd SubPrivate Sub Form_Load()T1.Enabled = FalseT2.Enabled = FalseT3.Enabled = FalseEnd Sub2建立一个工程(zy042.vbp),含有一个窗体（zy042.frm）。

请在该窗体上设计两个文本框，。

编写窗体的单击事件过程，使得在文本框中输入任意两个正整数后点击窗体，弹出一个消息框，如图。

如果选择“是”，则求出两个数的商，选择“否”，则求出两个数的余数，然后将结果（商或余数）用标签方式显示在文本框下面，形式为您求得的结果是：（数字）Private Sub Form_Click()Dim x As Integer, y As Integer, z As Integerx = Val(T1.Text)y = Val(T2.Text)msg1 = "你选择做除法吗？"message = MsgBox(msg1, 16 + 4, "请选择")If x > 0 And y > 0 ThenIf message = 6 Thenz = x \ yL2.Caption = "求得的结果是：" & zElsez = x Mod yL2.Caption = "求得的结果是：" & zEnd IfElsePrint "您输入的数据有误，请再输入！"End IfEnd Sub第五次1、建立一个工程(zy051.vbp),含有一个窗体（zy051.frm）。

请在该窗体上设计两个标签，两个文本框，一个命令按钮，如左下图。

请编一帐号和密码检验程序，要求：帐号不超过6位数字,有错,清除原内容再输入。

密码输入时（假如是ww199）在屏幕上以“*”代替; 若密码输入错，显示一个消息框，如右下图。

选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。

特别提示:标签的borderstyle属性设置成1；帐号6位,只要将文本框的MaxLength设为6 ;在文本框的LostFocus事件中，利用数字IsNumeric函数判断是否输入的是数字；如果密码输入不对，用MsgBox函数设置密码错对话框，根据返回值处理；清除原内容再输入的处理技巧是：文本框内容清空，并用setfocus方法使光标回到文本框里。

文本框的密码PassWordChar设为“*”Private Sub Command1_Click()Dim I%If Text2.Text <> "sfxia" ThenI = MsgBox("密码错误", 53, "输入密码")If I <> 4 ThenEndElseText2.Text = ""Text2.SetFocusEnd IfEnd IfPrint "谢谢！"End SubPrivate Sub Form_Load()Text2.PasswordChar = "*"Text2.Text = ""Text1 = ""End SubPrivate Sub Text1_Change()If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocusEnd IfEnd Sub2、建立一个工程(zy051.vbp),含有一个窗体（zy052.frm）。

请在该窗体上设计三个横排的文本框，编写窗体的单击事件过程，使得在每个文本框中输入任意1个整数后点击窗体时，最大数在左边的文本框里。

最小数在右边的文本框里，另一数在中间的文本框中。

Private Sub Form_Click()Dim a, b, c, t As Singlea = Val(T1.Text)b = Val(T2.Text)c = Val(T3.Text)If a < b Thent = aa = bb = tEnd IfIf a < c Thent = cc = bb = aa = tElseIf b < c Thent = cc = bb = tEnd IfT1.Text = aT2.Text = bT3.Text = cEnd Sub3、在窗体上设置一个文本框，编写一个窗体单击事件过程，根据文本框中输入的学生成绩利用Print函数在窗体上打印一个文字评价，规则是：90~100分，优秀，80~90分，良好，70~80分，中等；60~70分，及格；20~60分，及格；其他情况，异常。

文件名分别保存为zy053.vbp,和zy053.frmPrivate Sub C1_Click()T1.Text = ""ClsEnd SubPrivate Sub Form_Click()Dim s, i As Integers = T1.TextSelect Case sCase 90 To 100Print "优秀"Case 80 To 90Print "良好"Case 70 To 80Print "中等"Case 60 To 70Print "合格"Case 20 To 60Print "不合格"Case ElsePrint "异常"End SelectEnd Sub第六次1、建立一个工程(zy061.vbp),含有一个窗体（zy061.frm）。