您的位置：360文档中心› 历年vb题目整理(带答案)

历年vb题目整理(带答案)

合集下载

VB编程题(附答案)汇总

VB编程题(附答案)汇总

Vb编程题1.求自然数1～100之间奇数之和。

Private Sub Form_Click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNext iPrint "sum="; sumEnd Sub2.求自然数1～100之间偶数之和。

Private Sub Form_Click()Dim i%, sum%For i = 1 To 100If i mod 2=0 thensum = sum + iend ifNext iPrint "sum="; sumEnd Sub3.编写程序，在窗体上随机输出一个10--99之间的两位整数。

Sub command1_click()Dim a%Randomizea=int(rnd*90+10)print aend sub4.编程计算从200到1000之间的所有4的倍数之和。

Private Sub Form_Click()Dim sum As Longsum = 0For i = 200 To 1000If i Mod 4 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Dim s As Singles = 0For i = 5 To 1 Step -1s = s + i / (i + 1)NextPrint “5/6+4/5+3/4+2/3+1/2=”;s6.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。

Private Sub Command2_Click()Clsa = Val(InputBox("接收三个数:"))Print a;Max = aFor i = 1 To 2a = Val(InputBox("接收三个数:"))Print a;If a > Max Then Max = aNextPrintPrint "三数中最大者是:"; MaxEnd Sub7.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。

vb期末考试和答案

vb期末考试和答案

vb期末考试和答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a 123答案：C2. VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 ThenPrint "Positive"End IfC. If x > 0 ThenPrint "Positive"End IfD. If x > 0 ThenPrint "Positive"ElsePrint "Negative"End If答案：D3. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iEnd ForC. For i = 1 To 10Print iLoopD. For i = 1 To 10Print iEnd Loop答案：A4. VB中，以下哪个是正确的数组声明方式？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr As Integer(10)D. Dim arr(10) Integer答案：B5. 在VB中，以下哪个是正确的函数声明方式？A. Function Add(x As Integer, y As Integer) As IntegerB. Function Add(x, y) As IntegerC. Function Add(x As Integer, y As Integer)D. Function Add(x, y)答案：A6. VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.ClickC. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.ClickD. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs)答案：B7. 在VB中，以下哪个是正确的窗体属性？A. Me.Width = 800B. Me.Height = 600C. Me.Caption = "My Form"D. All of the above答案：D8. VB中，以下哪个是正确的控件属性？A. Label1.Text = "Hello"B. Label1.Caption = "Hello"C. Label1.Value = "Hello"D. = "Hello"答案：A9. 在VB中，以下哪个是正确的文件操作语句？A. Open "C:\test.txt" For Input As #1B. Open "C:\test.txt" For Output As #1C. Open "C:\test.txt" For Append As #1D. All of the above答案：D10. VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo -1D. All of the above答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是______。

VB程序习题集(附答案)

VB程序习题集(附答案)

VB简介1、在以下有关对象属性的叙述中，不正确的是___________。

A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。

A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。

A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。

A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。

以下的___________语句可以使文本框内显示的内容为：5+7=12。

A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。

A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。

VB历年真题答案解析

VB历年真题答案解析

2005年4月一、选择题(1)D 【解析】数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构(也称数据的物理结构)。

(2)B 【解析】栈(stack)是限定只在一端进行插入与删除的线性表，这一端称为栈顶(top)，另一端称为栈底(bottom)。

栈是按照"先进后出"或"后进先出"的原则组织数据的。

栈具有记忆作用。

(3)D【解析】在最坏的情况下，冒泡排序和快速排序需要比较的次数为n(n－1)/2。

(4)C 【解析】对于长度为n的有序线性表，在最坏情况下，二分查找只需要比较log2n次，而顺序查找需要比较n次。

(5)A 【解析】在链式存储结构中，存储数据结构的存储空间可以不连续，各数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。

(6)C 【解析】软件测试是为了发现程序中的错误。

(7)B 【解析】耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。

在程序结构中，各模块的内聚性越强，则耦合性越弱。

一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，这样有利于提高模块的独立性。

(8)D 【解析】软件指的是计算机系统中与硬件相互依存的另一部分，包括程序、数据和相关文档的完整集合。

程序是软件开发人员根据用户需求开发的、用程序设计语言描述的、适合计算机执行的指令序列。

数据是使程序能正常操纵信息的数据结构。

文档是与程序的开发、维护和使用有关的图文资料。

(9)D 【解析】数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。

数据的独立性一般分为物理独立性与逻辑独立性两级。

(10)C 【解析】层次模型是最早发展起来的数据库模型。

层次模型的基本结构是树形结构。

(11)A 【解析】当在文本框内输入了一个文字，触发了Text1_Change()事件，改变按钮的标题用的按钮的Caption属性，所以这里只需在Text1_Change()事件里写上Command1.Caption＝"计算机等级考试"即可。

vb考试试题和答案

vb考试试题和答案

vb考试试题和答案**VB考试试题和答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above**答案：D**2. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs**答案：A**3. 下列哪个选项是VB中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**4. 在VB中，下列哪个选项用于声明一个变量？A. ConstB. DimC. FunctionD. Sub**答案：B**5. VB中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**6. 在VB中，下列哪个选项用于循环遍历数组中的每个元素？A. For EachB. ForC. WhileD. Do**答案：A**7. VB中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim**答案：B**8. 在VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案：A**9. VB中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**10. 在VB中，下列哪个选项用于声明一个过程？A. FunctionB. SubC. ClassD. Module**答案：B**二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是________。

**答案：Integer**2. VB中，用于定义一个函数的关键字是________。

**答案：Function**3. VB中，用于定义一个子程序的关键字是________。

最新VB经典例题13道(附答案)

最新VB经典例题13道(附答案)

V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。

Vb操作题题库(含答案)

Vb操作题题库(含答案)

VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。

其中，最完整的是______。

答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。

答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。

答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。

答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。

答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。

答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。

答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。

答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。

vb考试题及答案

vb考试题及答案

vb考试题及答案一、单选题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. VB中的“Mid”函数用于什么？A. 计算字符串长度B. 计算字符串的ASCII值C. 从字符串中提取子字符串D. 将字符串转换为大写答案：C3. 以下哪个是VB中的流程控制语句？A. IfB. ForC. NextD. All of the above答案：D4. 在VB中，如何声明一个整型变量？A. Dim x As IntegerB. Integer xC. x = IntegerD. x Integer答案：A5. VB中的“Print”方法用于做什么？A. 打印文档B. 在窗体上显示文本C. 打印窗体D. 显示错误信息答案：B6. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. DateD. Object答案：D7. VB中的“Select Case”语句用于什么？A. 循环控制B. 条件分支C. 数据类型转换D. 异常处理答案：B8. 在VB中，如何将一个变量的值赋给另一个变量？A. x = yB. x := yC. x = y = zD. x = (y)答案：A9. VB中的“Do While”循环在什么条件下执行？A. 条件为真时B. 条件为假时C. 条件未知时D. 从不执行答案：A10. 在VB中，以下哪个不是集合（Collection）的方法？A. AddB. RemoveC. CountD. Find答案：D二、多选题（每题3分，共15分）1. VB中，哪些是合法的变量名？A. _nameB. 2nameC. name$D. name答案：A, D2. 在VB中，哪些是合法的常量声明？A. Const pi = 3.14B. Const pi = "3.14"C. Const pi = 3.14DD. Const pi = 3.14F答案：A, C, D3. VB中，哪些是合法的数组声明？A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr() As Integer = New Integer(10) {}D. Dim arr(,) As Integer = New Integer(,) {{1, 2}, {3, 4}} 答案：A, C, D4. 在VB中，哪些是合法的函数调用？A. MsgBox("Hello World")B. Int(123.456)C. UCase("Hello World")D. LCase("HELLO WORLD")答案：A, B, C, D5. VB中，哪些是合法的循环控制语句？A. For i = 1 To 10B. While TrueC. Do Until FalseD. For Each item In collection答案：A, B, C, D三、判断题（每题1分，共10分）1. VB中，所有变量都必须在使用前声明。

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

1、算法描述:求得1~100之间所有偶数得与'注:请不要更改原程序结构,删除(1)、(2)、(3),并在对应位置填写正确得代码'Function func()(1) i As Integer dimfunc = (2)0For i = 2 To 100 Step (3)2func = func + iNext iEnd Function2、操作要求: 顺序查找单词“name” :输入10个不同得单词给数组,查找单词“name”就是否在数组中;如果在,输出单词在数组中得位置,否则,输出“不在数组中”。

Sub main()Dim i As IntegerDim buzai As Boolean'定义数组d,下界为1,上界为10,数据类型为string,在dim后完善语句Dim (1) d(1 To 10) As String'输入10个单词,在for语句后完善i得初始值与终值For i =(2) 1 to 10'输入每个单词给数组元素,在赋值号左侧添加变量(3) = InputBox("Please input word " & i) d(i)Next ibuzai = Truei = 0While buzai = True And i < 10'顺序查找单词,数组下标增1,在赋值号右侧添加表达式i =(4) i+1'判断数组元素就是否为单词"name",在if语句后添加判断条件If (5) Then d(i) = "name"buzai = FalseEnd IfWendIf buzai = False ThenMsgBox "在数组中得位置为:" + Str(i)ElseMsgBox "不在数组中"End IfEnd Sub3、小王今年26岁,资助了一名贫困大学生,'她想从明年开始每年比上一年多资助一名贫困大学生。

'编程求解小王到多少岁,就能资助到n名甚至更多大学生？Function func(n)stu = 1age = 26'请完善下面两条语句Do While stu < Val(n)age = age + (1) 1stu = (2) + age – 25 stuLoopfunc = ageEnd FunctionSub Main()If mand = "assess" ThenOpen "in、txt" For Input As #1Line Input #1, nClose #1Open "out、txt" For Output As #1Print #1, func(n)Close #1Else'请完善大学生数n得输入语句(3) = InputBox("请输入大学生数 n:", "Input") nMsgBox func(n)End IfEnd Sub4、操作要求:设计一个VB学习指导程序得窗口运行界面,界面设计如下图。

要求(1)打开“C:\MyExam\工程1、vbp”,设置窗体Form1属性值:将该窗体标题命名为“VB学习指导”;(2)添加一个标签控件Label1,并设置如下属性值:该控件填充内容“VB学习指导”;字体为隶书,字形为粗体,字号为三号,字体颜色为调色板中第5行第7列,并居中对齐; (3)对标签控件Label2(请输入口令:),设置如下属性值:根据字体大小自动调整;(4)添加一个文本框控件Text1,并设置如下属性值:文本框高度为650,宽度为2215;文本框内容为空;(5)添加一个命令按钮Option2,并设置如下属性值:将该按钮标题命名为“退出”;字体为黑体,字号为四号;按钮宽度1575,高度735;(5)保存并提交。

5、操作要求:打开"C:\MyExam\工程1、vbp”,补充完成程序。

实现当从键盘上输入x得值后,求函数y得值(当x<0时,y=|3x+1|;当x>=0时,y=4x+1)。

如:输入-2后,输出结果:5、Function func(x)If x < 0 Thenfunc = (1) abs(3*x+1)Elsefunc = (2) 4*x+1End IfEnd Function6、操作要求: 打开“C:\MyExam\工程1、vbp”补充完成程序并保存！该程序得功能就是:从键盘上输入两个数a与b,比较a与b得大小,并输出较小得数。

Function func(a, b)If (1) Then a<bfunc = aElseIf (2) Then a>bfunc = bElsefunc = "两数相等"End IfEnd IfEnd Function7、操作要求: 输入a、b、c得值,判断一元二次方程 ax^2+bx+c=0就是否有解,如果无解则输出“无解” ,如果两个解相同则输出“两解相同”,否则输出“两解不同”。

Function f(a, b, c)'请完成其它得判断语句If b * b - 4 * a * c < 0 Then f = "无解"If b * b - 4 * a * c = 0 Then (1) f="两解相同"(2) If b * b - 4 * a * c > 0 Then f = "两解不同" End FunctionSub Main()If mand = "assess" ThenOpen "in、txt" For Input As #1Line Input #1, aLine Input #1, bLine Input #1, cClose #1Open "out、txt" For Output As #1Print #1, f(a, b, c)Close #1Elsea = InputBox("请输入 a", "Input")b = InputBox("请输入 b", "Input")'请完成变量c得输入语句(3) c = InputBox("请输入 c", "Input")MsgBox f(a, b, c)End IfEnd Sub8、操作要求: 打开“C:\MyExam\工程1、vbp”补充完成程序并保存！该程序得功能就是: 求实数x得绝对值。

Function func(x)If x >= 0 (1) thenfunc = xElsefunc = (2) -x(3) end ifEnd Function9、操作要求: 打开“C:\MyExam\工程1、vbp”进行以下操作后并保存！填空完成程序,计算N!得值并在窗体上打印出结果,如输入:3,则输出:6。

(注:N!=1×2×…×N) Function func(n)Dim i As Integer(1) func=1For i = 1 To (2) nfunc = func * i '计算N!Next iEnd Function10、操作题:“提示信息”界面设计,如下图所示,要求(1)打开“C:\MyExam\工程1、Vbp”,对窗体Form1设置如下属性值:窗体标题为“提示信息”;背景色为调色板第1行第7列。

(2)添加一个标签控件Label,并设置如下属性值:标签标题为“要继续吗？”(注:“？”为中文标点符号);标签高度为495,宽度为1935;字体为楷体_GB2312,字形为常规,字号为三号,字体颜色为调色板第5行第8列,背景类型为0。

(3)添加一个按钮控件mandButton,并设置如下属性值:按钮标题为“否”;字号为小四。

(4)保存并提交。

11、操作要求:输入10位同学得英语成绩存放在数组score中,利用选择排序算法按照从大到小得顺序进行排序。

' 算法描述:'输入10位同学得英语成绩存放在数组score中'利用选择排序算法按照从大到小得顺序进行排序'定义数组score,下界为1,上界为10,数据类型为SingleDim (1) score(1 To 10) As SingleFunction f()'i为排序得次数,应该排序9次,为i添加初值与终值For i =(2) 1 To 9Min = score(i): m = i'j为每次排序得数得范围,应从i+1开始直到第10个数,为j添加初值与终值For j =(3) i + 1 To 10If score(j) > Min Then Min = score(j): m = jNext j'以k为中间变量,编写交换score(i)与score(m)得语句k = score(i)score(i) = score(m)(4) score(m) = kNext ist = "排序后得数列为:"For i = 1 To 10st = st + Str(score(i)) + " "Next if = stEnd FunctionSub Main()Dim i As Integer, m As Integer, k As Integer, j As IntegerDim st As StringIf mand = "assess" ThenOpen "in、txt" For Input As #1Dim x As StringFor i = 1 To 10Line Input #1, xscore(i) = Val(x)Next iClose #1Open "out、txt" For Output As #1Print #1, f()Close #1ElseFor i = 1 To 10'输入10位同学得英语成绩,在赋值号左侧添加变量(5) = InputBox("请输入第" & i & "个数据") score(i)Next iMsgBox f()End IfEnd Sub12、购物问题:购物满1000元,打7折,800到1000元,打8折,500到800元,打9折。

相关文档
最新文档