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程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
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期末考试编程试题及答案VB期末考试编程试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. 以上都是答案：B2. VB中，用于循环遍历数组的关键字是：A. ForB. WhileC. DoD. Repeat答案：A3. 下列哪个是VB中的条件语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C4. 在VB中，以下哪个不是内置数据类型？A. IntegerB. StringC. ObjectD. Array答案：D5. VB中，以下哪个是正确的函数调用方式？A. Call MyFunction()B. MyFunction()C. Both A and BD. None of the above答案：C二、简答题（每题10分，共30分）1. 解释VB中的类和对象的区别。
答案：类是对象的蓝图，它定义了对象的结构和行为。
对象是类的实例，是类的具体实现。
一个类可以创建多个对象，每个对象具有自己的状态和行为。
2. 描述如何使用VB中的事件。
答案：在VB中，事件是一种由对象引发的通知，用于通知其他对象发生了某些事情。
事件通常与事件处理器（也称为事件处理程序）一起使用。
事件处理器是响应事件的代码块。
要使用事件，首先需要定义一个事件，然后在对象上引发该事件，并编写事件处理器来处理该事件。
3. 解释VB中的继承和多态性。
答案：继承允许一个类（子类）继承另一个类（父类）的属性和方法。
这使得代码重用成为可能。
多态性是指允许不同类的对象对同一消息做出响应，但具体的行为会根据对象的实际类型而有所不同。
在VB中，多态性可以通过重载（方法名相同，参数不同）和重写（子类重写父类的方法）来实现。
三、编程题（每题25分，共50分）1. 编写一个VB程序，该程序可以接收用户输入的三个整数，并计算它们的平均值，然后输出结果。
VB程序设计题库(全)
程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
VB程序设计30道编程题
V B程序设计30道编程题------------------------------------------作者xxxx------------------------------------------日期xxxx'1.输入3个数，输出最大的数Private Sub Command11_Click()Dim max%X1=Val(InputBox("input"))X2=Val(InputBox("input"))x3=Val(InputBox("input"))max=X1If max<=X2 Thenmax=X2End IfIf max<=x3 Thenmax=x3End IfMsgBox("3个数之中的最大数max="&max)End SubPrivate Sub Command12_Click()'2.'有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根a=Val(InputBox("input"))B=Val(InputBox("input"))c=Val(InputBox("input"))s=B^2-4*a*cIf a<>0 ThenIf s=0 ThenMsgBox("两个相等实根")ElseIf s>0 ThenMsgBox("两个不相等实根")ElseIf s<0 ThenMsgBox("两个不相等虚根")End IfElseMsgBox("无解")End IfEnd SubPrivate Sub Command13_Click()'3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示"恭喜！成绩通过！"，若小于60，则弹出消息框，显示"抱歉！成绩没有通过！"X=Val(InputBox("input"))If X>=60 ThenMsgBox("恭喜！成绩通过！")ElseMsgBox("抱歉！成绩没有通过！")End If End SubPrivate Sub Command14_Click()'4.输入一年份，判断它是否为闰年，并显示有关信息。
vb试题及答案基础
vb试题及答案基础一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. SetD. Const答案：A2. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D3. VB中，用于实现条件判断的语句是：A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案：A4. 下列哪个选项是VB中的过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C5. VB中，用于实现循环的语句是：A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D6. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(10)B. Dim arr(10) As IntegerC. Both A and BD. None of the above答案：C7. VB中，用于创建用户界面的控件是：A. LabelB. TextBoxC. ButtonD. All of the above答案：D8. 在VB中，下列哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：D9. VB中，用于实现错误处理的语句是：A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. All of the above答案：D10. 在VB中，下列哪个选项是正确的事件处理？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. VB中，声明全局变量的关键字是________。
vb考试试卷
vb考试试卷VB考试试卷一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a = 5C. Dim a As IntegerD. Dim a As String = "Hello"2. 下列哪个是VB中的循环结构？A. IfB. ForC. SubD. Function3. VB中的数组声明方式是：A. Dim numbers(1 To 10)B. Dim numbers As Integer(1 To 10)C. Dim numbers(10)D. Dim numbers As Array = New Integer(10)4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If x > 0 ElseD. If x > 0 End If5. VB中，以下哪个是正确的函数定义方式？A. Function Add(x, y) As IntegerB. Function Add(x, y) = x + yC. Function Add(x, y) = Return x + yD. Function Add(x, y) = x + y End Function...（此处省略其他选择题）二、填空题（每空2分，共20分）1. 在VB中，使用________关键字来声明常量。
2. VB中的________结构用于执行一系列动作，直到满足某个条件。
3. 要声明一个包含10个整数的数组，可以使用________。
4. 当需要在VB中调用另一个窗体时，可以使用________方法。
5. VB中的________属性用于设置控件的可见性。
...（此处省略其他填空题）三、简答题（每题10分，共20分）1. 简述VB中的事件驱动编程的概念及其重要性。
2. 解释VB中类和对象的区别，并给出一个使用类和对象的简单示例。
vb考试试题题库及答案
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
vb考试题及答案
vb考试题及答案一、选择题（每题2分，共20分）1. VB中的“Dim”关键字用于声明什么？A. 变量B. 常量C. 类型D. 过程答案：A2. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable-nameC. variable$nameD. variable name答案：B3. VB中的“Sub”过程可以返回值吗？A. 是B. 否答案：B4. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Date答案：C5. VB程序中，以下哪个语句用于结束程序？A. Exit SubB. End SubC. Exit ForD. End答案：D6. VB中，以下哪个是正确的条件语句？A. If (x > 10)B. If x > 10C. If x = 10 ThenD. If x = 10答案：C7. 在VB中，以下哪个是正确的循环结构？A. DoB. WhileC. ForD. All of the above答案：D8. VB中的“With”语句用于什么？A. 条件判断B. 循环控制C. 简化代码D. 错误处理答案：C9. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(0 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(1) As Integer答案：D10. VB中，以下哪个是正确的事件处理程序声明？A. Sub Button1_Click()B. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Sub Button1_Click(ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案：B二、填空题（每空2分，共20分）1. 在VB中，使用________关键字可以定义一个类。
vb编程45道
45道1 产生1－100以内的素数Private Sub Command1_Click()Dim i%, j%, tag As BooleanFor j = 1 To 100tag = TrueFor i = 2 To j - 1If j Mod i = 0 Then tag = FalseNext iIf tag Then Print j;Next jEnd Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
Private Sub Form_Click()Dim i, a, b, n As Stringn = InputBox("输入字符")i = Len(n)For a = 1 To i / 2b = Mid(n, a, 1)Mid(n, a, 1) = Mid(n, i + 1 - a, 1)Mid(n, i + 1 - a, 1) = bNext aPrint nEnd Sub3.0到200 被5 或11 整除的数的和Private Sub Command1_Click()Dim i%For i = 0 To 200If i Mod 11 = 0 Or i Mod 5 = 0 ThenSum = Sum + iEnd IfNext iPrint "总和是"; SumEnd Sub4输入一年份，判断他是否为闰年，并现实是否是闰年的有关信息。
Private Sub Command1_Click()Dim y%y = Val(Text1)If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenMsgBox (y & "年是闰年")ElseMsgBox (y & "年是平年")End IfEnd Sub5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。
(完整版)Vb专题习题
Vb专题习题一、选择题1. 将数学表达式写成Visual Basic表达式，正确的是（）（A）Sqr(abs(b*b-4ac)) （B）Sqr(abs[b*2-4*a*c])（C）Sqr(abs(b*b-4*a*c))（D）Sqr[abs(b*b-4*a*c)]2. 在Visual Basic中，若要将窗体中某个命令按钮设置成无效状态，应对该按钮的（）属性值进行修改。
（A）Value （B）Visible （C）Enabled （D）Caption3. 执行如下Visual Basic程序段时，出现了如下图所示的错误：Private Sub Command1_Click()Dim a As Integer, b As Integera = 5:b = 8b = a + blabel1.Caption = Str(b)End Sub引发此错误的语句可能为（）（A）Dim a As Integer, b As Integer（B）a = 5: b = 8（C）b = a + b（D）label1.Caption = Str(b)4. 已知a=5，b=9，c=11，则下列Visual Basic表达式的值为False的是（）（A）a > b And a > c（B）a < b Or a > c（C）a < b + c （D）a > c – b5. 有下列Visual Basic程序段：某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print若程序要实现“求100内能被3整数的自然数个数”的功能，则方框中正确的语句是（）（A）i / 3 = 0（B）i mod 3 = 0（C）i \ 3 = 0（D）int(i/3) = 06. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim a As Integera = Int(5 * Rnd + 1) * Int(5 * Rnd - 1)Print aEnd Sub执行程序后，a的值范围是（）（A）[0，15] （B）[－1，15] （C）[－4，15] （D）[－5，15]7.在Visual Basic中，表达式3 ^ 2 Mod 14 \ 2 ^ 3的值是（）（A）1 （B）0 （C）2 （D）38. 某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print9. 下列Visual Basic程序段中，能实现输出变量a、b、c三个数中最大数的是（）10、有如下Visual Basic程序段：x = 3y =5Text1.Text = "x+y"该程序运行后，要文本框Text1中显示的是（）（A）3+5（B）x+y（C）8（D）3+5=811.在Visual Basic中，下列表达式的值为5的是（）（A）Int(Sqr(9) + 1.28)（B）(19 \ 2) Mod 5（C）Abs(-7) + Sqr(4)（D）Len("x+y+2")12.在Visual Basic中，下列语句定义的数组元素为10个的是（）（A）Dim a(0 To 10) As Integer（B）Dim b(1 To 9) As String（C）Dim c(2 To 10) As Boolean（D）Dim d(0 To 9) As Date13.某Visual Basic工程的代码窗口如图所示：从图中可以看出，当前正在编辑的是（）A. Command1的Click事件过程代码B. Timer1的Timer事件过程代码C. Label1的Click事件过程代码D. Image1的Click事件过程代码14. 在Visual Basic中，下列能作为变量名的是（）A. MyB. IfC. a+yD. 2nd15. 已知字符A～Z的ASCII码值分别对应65～90。
VB超全编程题
Private Sub Command1_Click() For i = 1 To 4
Print Tab(20 - 3 * i); For t = 1 To 2 * i - 1 Print t; Next Next End Sub 四、编程题（4道小题，共60分） 1、输入一串数字，求其中各位数字之和。例如输入123456，则求1＋2 ＋3＋4＋5＋6。 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分 计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、勾股定理中三个数的关系是：a^2 + b^2 =c^2 编写程序，输出100以 内满足上述关系的整数组合，例如3，4，5就是一个整数组合。 （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 3、编写程序，用普通迭代法求方程f(x)=x+lgx-1.7=0的近似实根r，迭代 初值为1.5，精确到0.0001。 〔提示：必须把方程f(x)=0化成其等价形式x=g(x)〕。（允许使用其他 迭代法） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分 计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 4、编写程序，输出下列三角形： (要求用循环做，非循环不给分。) G FG EFG DEFG CDEFG BCDEFG ABCDEFG （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 四、编程题（4道小题，共60分） 1、编写程序，计算并输出下面级数前n项(n=80)的部分和。 1-1/2+1/3-1/4+1/5+……＋1/n (n由键盘输入 ，要求用循环做，非循环不给分。) 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分 计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、勾股定理中三个数的关系是：a^2 + b^2 =c^2 编写程序，输出100以 内满足上述关系的整数组合，例如3，4，5就是一个整数组合。 （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 3、编写程序，用普通迭代法求方程f(x)=x+lnx-1.7=0的近似实根r，迭代 初值为1.5，精确到0.0001。 〔提示：必须把方程f(x)=0化成其等价形式x=g(x)〕。（允许使用其他 迭代法） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分 计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 4、 编写程序，输出下列三角形： (要求用循环做，非循环不给 分。)
VB 编程题汇编
• • • • • • • •
Private Sub Command1_Click() Dim i As Integer Open "zfwj.txt" For Output As #1 For i = 0 To Val(Text1.Text) Print #1, String(i + 1, "*") Next i Close #1 End Sub
Private Sub Command2_Click() '''不得删除本行注释 Dim x As String, y As String * 1, n As Integer, i As Integer, p As Integer x = Trim(Text1.Text) n = Len(x) p=0 For i = 1 To n y = UCase(Mid(x, i, 1)) If y >= "A" And y <= "Z" Then p=p+1 End If Next i Label1.Caption = "共" & p & "个字母" End Sub
Private Sub Command1_Click() Dim char As String * 1 char = Trim(Text1.Text) If Not IsNumeric(char) Then If (Asc(char) >= 65 And Asc(char) <= 90) Or _ (Asc(char) >= 97 And Asc(char) <= 120) Then Label1.Caption = "输入的是字母" Else: Label1.Caption = "输入的是其它符号" End If Else: Label1.Caption = "输入的是数字" End If End Sub
18个VB经典例题
18个VB经典例题18个VB经典例题1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。
Dim x As Integer, y As Integer, z As IntegerDim c As Single, s As Singlex = Int(Rnd * 201 + 100)y = Int(Rnd * 201 + 100)z = Int(Rnd * 201 + 100)If x + y > z And x + z > y And y + z > x Thenc = (x + y + z) / 2s = Sqr(c * (c - x) * (c - y) * (c - z))Print "三角形面积是：" & sElsePrint "构不成三角形"End If2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[]90、之间的学生人100,数。
Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%Dim x As SingleFor m = 1 To 60 '产生60名学生的分数x = Rnd * 101 '产生0－100的分数Print x;If x >= 90 Thena = a + 1ElseIf x >= 80 Thenb = b + 1ElseIf x >= 70 Thenc = c + 1ElseIf x >= 60 Thend = d + 1ElseIf x >= 50 Thene = e + 1ElseIf x >= 40 Thenf = f + 1ElseIf x >= 30 Theng = g + 1ElseIf x >= 20 Thenh = h + 1ElseIf x >= 10 Theni = i + 1Elsej = j + 1End IfNext mPrint a, b, c, d, e, f, g, h, i, j3、我国有13亿人口，按照人口年增长0.8%计算，多少年以后我国人口超过26亿。
计算机VB设计题汇编含答案
THANKS
列表框&组合框控件应用
添加两个list控件和一个Caption属性为剪切的按钮. Private Sub Command1_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Form_Load() List1.AddItem "AAA" List1.AddItem "BBB" List1.AddItem "CCC" List1.AddItem "DDD" List1.AddItem "EEE" End Sub
单击添加大标题
控件属性设置如题
Private Sub Form_Load() Image1.Picture =LoadPicture("k:\fjexam95\Tree.jpg") Image2.Picture = LoadPicture("k:\fjexam95\dog.jpg") Image3.Visible = False End Sub Private Sub Command1_Click() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture Image3.Visible = False End Sub
文本框&按钮&标签控件
相关代码如下：
单击此处添加大标题内容
Private Sub Command1_Click() If Text1.Text = "student" Then Label2.Caption = "欢迎使用本系统" Else Label2.Caption = "口令错，请重新输入“ Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End If End Sub Text1属性：PassWordChar---*
VB编程20题
1.求随机10个整数的最大值，最小值，平均值以和Option ExplicitOption Base 1Dim i%, a(10) As Integer, s%, min%, max%Private Sub Command1_Click()Randomizemin = 100For i = 1 To 10a(i) = Rnd * 90 + 10s = s + a(i)Text1 = Text1 & a(i)Text1 = Text1 & vbCrLfIf a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd SubPrivate Sub Command2_Click()Text2 = maxEnd SubPrivate Sub Command3_Click()Text3 = minEnd SubPrivate Sub Command4_Click()Text4 = s / 10End SubPrivate Sub Command5_Click()Text5 = sEnd Sub2.求水仙花数Private Sub Form_click()Dim i As IntegerFor i = 100 To 999If (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i Next iEnd Sub3.百元买鸡问题Option ExplicitDim a!, b!, c!, i%, j%, k%Private Sub Form_click()a = InputBox("公鸡的单价")b = InputBox("母鸡的单价")c = InputBox("小鸡的单价")For i = 0 To 100 / aFor j = 0 To 100 / bk = 100 - i – jIf a * i + b * j + c * k = 100 Then Print i; j; k Next j, iEnd Sub4.求1000以内的所有完数Private Sub Form_click()Dim s As Integer, i As Integer, j As Integer For i = 2 To 1000s = 0For j = 1 To i / 2If i Mod j = 0 Then s = s + jNext jIf i = s Then Print iNext iEnd Sub5，求各位数字之和Option ExplicitDim i%, a%, s%Private Sub Form_click()s = 0a = InputBox("请输入随机数")For i = 1 To Len(CStr(a))s = s + Mid(CStr(a), i, 1)Next iMsgBox a & " 的数字和为:" & sEnd Sub6.求最小公倍数Option ExplicitDim a%, b%, i%Private Sub Form_click()a = InputBox("请输入第一个数")b = InputBox("请输入第二个数")If a > b Then i = a: a = b: b = iFor i = a To 1 Step -1If a Mod i = 0 And b Mod i = 0 Then Exit For Next iMsgBox "最小公倍数为" & a * b / iEnd Sub7.求逆序数Option ExplicitDim a&, b&, i%Private Sub Form_click()a = InputBox("请输入随机数"):b = 0For i = 1 To Len(CStr(a))b = b & Mid(CStr(a), Len(CStr(a)) + 1 - i, 1)Next iMsgBox a & "的逆序数为:" & bEnd Sub8.级数有限项求和问题Option ExplicitDim s#, a!, i%Private Sub Form_click()s = 0: i = 2: a = 1 / 2Dos = s + ai = i + 2a = a / iLoop Until a < 0.000001Print sEnd Sub9.求质因子问题Option ExplicitDim a%, b%, s$, i%Private Sub Command1_Click()a = Text1i = 2DoIf a Mod i = 0 Then s = s & " " & i: a = a / i: i = i - 1i = i + 1Loop Until a = 1Text2 = sEnd Sub10.字符统计Option ExplicitDim i%, a(26) As Integer, x$Private Sub Command1_Click()x = Text1x = UCase(x)For i = 1 To Len(x)a(Asc(Mid(x, i, 1)) - 64) = a(Asc(Mid(x, i, 1)) - 64) + 1Next iFor i = 1 To 26If a(i) <> 0 Then Picture1.Print Chr(i + 64) & "的个数为:" & a(i) Next iEnd Sub判定素数过程Option ExplicitDim a As Integer, i As Integer, x As IntegerPrivate Sub Form_click()a = InputBox("请输入数字")If prime(a) ThenMsgBox a & "是素数"ElseMsgBox a & "不是素数"End IfEnd SubPrivate Function prime(x As Integer) As BooleanFor i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i = x Then prime = TrueEnd Function求最大公约数过程Option ExplicitDim a As Integer, b As Integer, i As Integer, m As Integer, n As Integer, t As Integer Private Sub Form_click()a = InputBox("请输入第一个数")b = InputBox("请输入第二个数")MsgBox a & "和" & b & "的最大公约数是" & zdgys(a, b)End SubPrivate Function zdgys(ByVal m As Integer, ByVal n As Integer) As IntegerDoIf m < n Then t = m: m = n: n = tm = m - nLoop Until m Mod n = 0zdgys = nEnd Function冒泡排序过程Option ExplicitOption Base 1Dim a() As Integer, i As Integer, j As Integer, m As Integer, n As Integer, t As Integer Private Sub Form_click()n = InputBox("请输入数组的项数")ReDim a(n)RandomizeFor m = 1 To na(m) = Int(Rnd * 90) + 10Print a(m)Next mCall maopao(a())PrintFor m = 1 To nPrint a(m)Next mEnd SubPrivate Sub maopao(a() As Integer)For i = LBound(a) To UBound(a) - 1For j = LBound(a) To UBound(a) - iIf a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = tNext j, iEnd Sub顺序查找过程Option Base 1Option ExplicitDim a() As Integer, i As Integer, j As Integer, m As Integer, n As Integer, x As Integer, t As Integer Private Sub Form_click()n = InputBox("请输入数组的项数")x = InputBox("请输入需要查找的数字")ReDim a(n)For i = 1 To na(i) = Int(Rnd * 90) + 10Print a(i)Next iPrintCall search(a(), x)End SubPrivate Sub search(a() As Integer, x As Integer)t = 0For i = 1 To nIf a(i) = x Then Print "第" & i & "个数为" & x: t = 1Next iIf t = 0 Then Print "找不到数字" & xEnd Sub判断回文数过程Option ExplicitDim a As String, x As Long, i As IntegerPrivate Sub Form_click()x = InputBox("请输入数字串")If huiwen(x) ThenMsgBox x & "是回文数"ElseMsgBox x & "不是回文数"End IfEnd SubPrivate Function huiwen(ByVal x As Long) As Booleana = CStr(x)For i = 1 To (Len(a)) \ 2If Mid(a, i, 1) <> Mid(a, Len(a) + 1 - i, 1) Then Exit ForNext iIf i = (Len(a)) \ 2 + 1 Then huiwen = TrueEnd Function递归函数求阶乘Private Sub Form_click()n = InputBox("请输入数字")MsgBox n & "的阶乘为" & jc(n)End SubPrivate Function jc(ByVal n As Integer) As LongIf n = 0 Or n = 1 Thenjc = 1Elsejc = jc(n - 1) * nEnd IfEnd Function递归函数求fibonacci数列Option ExplicitDim a() As Integer, n As Integer, x As Integer, i As IntegerPrivate Sub Form_click()n = InputBox("请输入显示的项数")For i = 1 To nPrint fi(i);Next iEnd SubPrivate Function fi(ByVal n As Integer) As IntegerIf n = 1 Or n = 2 Thenfi = 1Elsefi = fi(n - 1) + fi(n - 2)End IfEnd Function矩阵靠边元素之和Option ExplicitOption Base 1Dim a() As Integer, m As Integer, n As Integer, i As Integer, j As Integer Private Sub Form_click()Call shuruCall shengchengCall shuchuPrint "靠边元素之和为" & bs(a())End SubSub shuru()m = InputBox("请输入矩阵行数")n = InputBox("请输入矩阵列数")ReDim a(m, n)End SubSub shengcheng()For i = 1 To mFor j = 1 To na(i, j) = Int(Rnd * 9) + 1Next j, iEnd SubSub shuchu()For i = 1 To mFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd SubFunction bs(a() As Integer) As Integerbs = 0For i = 1 To m Step m - 1For j = 2 To n - 1bs = bs + a(i, j)Next j, iFor j = 1 To n Step n - 1For i = 1 To mbs = bs + a(i, j)Next i, jEnd Function矩阵不靠边元素之和Option ExplicitOption Base 1Dim a() As Integer, m As Integer, n As Integer, i As Integer, j As Integer Private Sub Form_click()Call shuruCall shengchengCall shuchuPrint "不靠边元素之和为" & cs(a())End SubSub shuru()m = InputBox("请输入矩阵行数")n = InputBox("请输入矩阵列数")ReDim a(m, n)End SubSub shengcheng()For i = 1 To mFor j = 1 To na(i, j) = Int(Rnd * 9) + 1Next j, iEnd SubSub shuchu()For i = 1 To mFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd SubFunction cs(a() As Integer) As Integercs = 0For i = 2 To m - 1For j = 2 To n - 1cs = cs + a(i, j)Next j, iEnd Function矩阵转置Option ExplicitOption Base 1Dim a() As Integer, n As Integer, i As Integer, j As Integer, t As Integer Private Sub Form_click()Call shuruCall shengchengCall shuchuCall rearrangeCall shuchuEnd SubSub shuru()n = InputBox("请输入矩阵行列数")ReDim a(n, n)End SubSub shengcheng()For i = 1 To nFor j = 1 To na(i, j) = Int(Rnd * 9) + 1Next j, iEnd SubSub shuchu()For i = 1 To nFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd SubSub rearrange()PrintFor i = 1 To nFor j = 1 To it = a(i, j): a(i, j) = a(j, i): a(j, i) = t Next j, iEnd Sub。
vb精选试题及答案
vb精选试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. VB中数组的默认下标是从哪个数字开始的？A. 0B. 1C. -1D. 2答案：B3. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. VB中，哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A5. 在VB中，以下哪个事件用于响应鼠标单击窗体？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题3分，共15分）1. 在VB中，声明一个整型变量的正确语法是________。
答案：Dim myVar As Integer2. VB中，用于定义一个过程的关键字是________。
答案：Sub 或 Function3. VB中，用于读取用户输入的函数是________。
答案：InputBox4. VB中，用于打开文件的语句是________。
答案：Open5. VB中，用于关闭文件的语句是________。
答案：Close三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、信号等）触发。
在VB中，用户可以通过编写事件处理程序来响应这些事件。
2. VB中如何实现循环结构？答案：在VB中，可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。
四、编程题（每题10分，共20分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
答案：请参考以下代码：```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是：" & sum```2. 编写一个VB程序，判断一个给定的年份是否为闰年。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub command1_Click() ''' 不得删除本行注释 Dim a As Integer, b As Integer, c As Integer Dim max As Integer, min As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) max = a + b + Abs(a - b) max = max / 2 min = a + b - Abs(a - b) min = min / 2 max = max + c + Abs(max - c) max = max / 2 min = min + c - Abs(min - c) min = min / 2 Text4.Text = max Text5.Text = min End Sub
课本有完整代码
Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) If (a Mod 4 = 0 And a Mod 100 <> 0) Or a Mod 400 = 0 Then Text2.Text = "闰年" Else: Text2.Text = "非闰年" End If Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub
VB 编程题汇编
• • • • • • • • • • • •
Private Sub command1_Click() '''不得删除本行注释 Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text) a=0 b=0 For i = 1 To n a=a+i b=b+a Next i Text2.Text = b End Sub
Private Sub Command1_Click() „产生按钮的代码 i = List1.ListIndex For i = 0 To 9 List1.AddItem Int(90 * Rnd + 10) Next i End Sub
Private Sub Command3_Click() ‟清除按钮的代码 List1.Clear List2.Clear End Sub
Private Sub Command1_Click() ''' 不得删除本行注释 Dim sum As Single, i As Integer Open App.Path & "\" & "Jsdata.txt" For Input As #1 For i = 1 To 15 Input #1, Arr(i) Next i Close #1 If Op1 Then T1.Text = Aaa End If If Op2 Then T1.Text = Bbb End If End Sub
• • • • • • • •
Private Sub Command1_Click() Dim i As Integer Open "zfwj.txt" For Output As #1 For i = 0 To Val(Text1.Text) Print #1, String(i + 1, "*") Next i Close #1 End Sub
课本有完整代码
Private Sub Command1_Click() Text1.Text = UCase(Text1.Tag) End Sub
Private Sub Command2_Click() Text1.Text = LCase(Text1.Tag) End Sub Private Sub Command3_Click() Text1.Text = Text1.Tag End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) '对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存 Text1.Tag = Text1.Text '用Text1.Tag属性作为保存textbox控件文本内容的临时存储区 End Sub
Private Sub Command1_Click() ''' 不得删除本行注释 Dim i As Integer For i = 1 To 200 If i Mod 3 = 0 And i Mod 7 = 0 Then Text1.Text = Text1.Text + Str(i) End If Next End Sub
Private Sub Command1_Click() Dim char As String * 1 char = Trim(Text1.Text) If Not IsNumeric(char) Then If (Asc(char) >= 65 And Asc(char) <= 90) Or _ (Asc(char) >= 97 And Asc(char) <= 120) Then Label1.Caption = "输入的是字母" Else: Label1.Caption = "输入的是其它符号" End If Else: Label1.Caption = "输入的是数字" End If End Sub
Private Sub Command1_Click() „”读入数据”按钮代码 '''不得删除本行注释 Dim st As String Text1.Text = "" Open App.Path & "\" & "yy.txt" For Input As #1 While Not EOF(1) Input #1, st Text1.Text = Text1.Text + st + vbCrLf Wend Close #1 End Sub
Private Sub Command2_Click() '''不得删改本行注释 Dim n As Double i = List1.ListIndex For i = 0 To List1.ListCount - 1 n = Val(List1.List(i)) If n Mod 2 = 1 Then List2.AddItem n List1.RemoveItem I „代码有误 End If Next i End Sub
Private Sub Command1_Click() ''' 不得删除本行注释 Dim a As Integer a = Val(Text1.Text) Text2.Text = zh(a) „ zh过程在原本的程序代码中已经有了～直接可用 End Sub
课本有完整代码
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Val(Text1.Text) b = Val(Text2.Text) Label1.Caption = Int(Rnd() * (b - a + 1) + a) Label2.Caption = Int(Rnd() * (b - a + 1) + a) Label3.Caption = Int(Rnd() * (b - a + 1) + a) End Sub
Private Sub Command1_Click() „”读取文件”按钮代码 '''不得删除本行注释 Dim st As String Text1.Text = "" Open App.Path & "\" & “jmwb.txt" For Input As #1 While Not EOF(1) Input #1, st Text1.Text = Text1.Text + st + vbCrLf Wend Close #1 End Sub
Private Sub Command2_Click() Dim s As String, co As String, c As String, Dim n As Integer, i As Integer, p As Integer s = Trim(Text1.Text) n = Len(s) co = "" For i = 1 To n c = Mid(s, i, 1) p = Asc(c) + 5 co = co + Chr(p) Next i Text2.Text = Байду номын сангаасo End Sub
Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) s=0 For i = 1 To n s=s+i^2 Next i Text2.Text = s End Sub
Private Sub Text1_Change() If Not IsNumeric(Text1.Text) Then MsgBox "请输入数字！", 48, "输入的不是数字" Command1.Enabled = False Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else: Command1.Enabled = True End If