当前位置：文档之家 › VB编程题及答案

VB编程题及答案

  • 格式：doc
  • 大小：91.00 KB
  • 文档页数：20

1定义一个下标上界为10整型数组，并用随机函数为其赋值（值处于[0,100]之间），计算数组中所有偶数的和。

Private Sub Command1_Click()RandomizeDim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint "所有偶数的和为", s2设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。

结果取小数点后面7位。

C/1!-C^3/3!+C^5/5!- … +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ …参考答案如下：Private Sub Command1_Click()Dim n As IntegerDim x As Doublex = 0.3Dim item As DoubleDim sum As DoubleDim fac As DoubleFor n = 1 To 35fac = 1Dim i As IntegerFor i = 1 To 2 * n - 1fac = fac * iNextitem = (-1) ^ (n - 1) * x ^ (2 * n - 1) / facsum = sum + itemNextsum = Int(sum * 10000000 + 0.5) / 10000000MsgBox (sum)End Sub' sum = 0.4794263定义一个下标上界为30的单精度数组，设置好其初值（值处于[20，90]），计算数组中所有元素的均值。

Dim i, sum, ave As IntegerDim a(30) As SingleFor i = 0 To 30a(i) = 20+Int(Rnd() * 71)NextFor i = 0 To 30sum = sum + a(i)Nextave = sum / 31print sum4 在窗体上放置文本框Text1、Text2，放置一个按钮Command1。

在Text1里写入一个整数，点击按钮时，对Text1内的数据进行判断，如果是偶数，则在Text2里显示“该数是偶数”。

Dim x As Integerx = Val(Text1.Text)If x Mod 2 = 0 Then TText2.Text = "该数是偶数"ElseText2.Text = "该数是奇数"End If5 输入一个三位数，分别输出它的百位数字、十位数字和个位数字。

Dim a, baiwei, gewei, shiwei As Integera = Val(InputBox(""))gewei = a Mod 10baiwei= a \ 100shiwei = (a \ 10) Mod 10MsgBox(gewei)MsgBox(shiwei)6. 计算sum=2+4+6+...+1000Dim sum, i As IntegerFor i = 2 To 1000 Step 2sum = sum + iNextprint sum7 求下面级数前S项中奇数项的和sum。

在求和过程中，以第一个奇数项的数值大于 10000 的项为末项。

1!-2!+3!-4!+ … +(-1)^(S-1)*S!+ …参考答案如下：Private Sub Command1_Click()Dim n As IntegerDim item As DoubleDim i As IntegerDim sum As DoubleDim fac As Doublesum = 0n = 1Do While Trueitem = 1For i = 1 To nitem = item * iNext isum = sum + itemIf Abs(item) > 10000 ThenExit DoElsen = n + 2End IfLoopMsgBox (sum)End Sub8. 已知A、B为整数，A和B的立方和为1000，求所有的A、B。

Dim x, y As IntegerFor x = 0 To 10For y = 0 To 10If x ^ 3 + y ^ 3 = 1000 ThenMsgBox(x & " " & y)End IfNextNext9建立一个 5×5的整型二维数组，由Rnd函数产生[25，95）的随机整数对该数组赋初值，输出数组中的最大元素。

参考答案如下：Dim A(4, 4) As IntegerDim i, j As IntegerFor i = 0 To 4For j = 0 To 4A(i, j) = 25+Int(Rnd() * 71)NextNextDim max As Integermax = A(0, 0)For i = 0 To 4For j = 0 To 4If A(i, j) > max Thenmax = A(i, j)End IfNext10.的项为末项，计算并输出和SUM。

1!-2!+3!-4!+ … +(-1)^(s-1)*s!+ ……Private Sub Command1_Click()Dim n As IntegerDim item As DoubleDim sum As Doublesum = 0n = 2Do While Trueitem = 1Dim i As IntegerFor i = 2 To nitem = item * iNextsum = sum + itemIf item > 10000 ThenExit DoElsen = n + 2End IfLoopsum = -1*sumMsgBox (sum)End Sub'sum = 36804711.建立一个9×9的整型二维数组（由Rnd函数产生[10，60）的随机整数对数组初始化），输出数组中所有奇数行元素的和。

Dim A(8, 8) As IntegerDim i, j As IntegerFor i = 0 To 8For j = 0 To 8A(i, j) = 10+Int(Rnd() *51)NextNextDim sum As IntegerFor i = 0 To 8 Step 2For j = 0 To 8sum = sum + A(i, j)NextNextText1.Text = sum'所有奇数行元素的和为：50612.编写一个函数，判断某整数是否为素数。

调用该函数，输出区间[1000，2000] 内所有素数的和。

Private Function isprime(ByVal n As Integer) As BooleanDim i As IntegerFor i = 2 To n - 1If n Mod i = 0 Thenisprime = FalseExit FunctionEnd IfNextisprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerDim sum As LongFor i = 1000 To 2000If isprime(i) = True Thensum = sum + iEnd IfNextText1.Text = "sum=" & sumEnd Sub'sum= 41968413.编写一个函数，求某个数的阶乘。

调用该函数计算22!。

Public Function fact(ByVal n As Integer) As LongDim i As Integer, f As Longf = 1For i = 1 To nf = f * iNext ifact = fEnd FunctionPrivate Sub Command1_Click()Dim m As Integer, i As Integer, s As Longm = InputBox("输入一个正整数：")s = fact(m)MsgBox (s)End Sub‘47900160014.编写子过程，计算并输出3000-4000之间的素数之和C与其中最小的素数MIN。

Private Sub Command1_Click()Dim sum, i, min As Integermin=0For i = 3000 To 4000Dim isprime As Boolean = TrueDim j As IntegerFor j = 2 To i - 1If i Mod j = 0 Thenisprime = FalseExit ForEnd IfNextIf isprime = True ThenIf min = 0 Thenmin = iEnd IfIf i<min Thenmin=iEnd IfC = C + iEnd IfNextMsgBox(sum)MsgBox(min)End Sub'sum=1617104 mi=1600115.定义下标上界为35的整型数组，并赋初值（用Rnd函数初始化数组，使各个元素的值处于[200，300]之间），求数组中所有不大于350的元素之和。

Dim a(35), i, sum As IntegerFor i = 0 To 35a(i) = 200+Int(Rnd() * 101)NextFor i = 0 To 35If a(i) <=350 Thensum = sum + a(i)End IfNextprint sum16编写函数，计算S=1/1!+1/3!+1/5!+...+1/9!Private Function Fact(ByVal x As Integer) As IntegerDim sum, i, f As Doublef = 1For i = 1 To 9f = f * iIf i Mod 2 = 1 Thensum = sum + 1/fEnd IfNextFact = sumEnd Function17编写一个函数（参数为一维整型数组），求所有数组元素中最小值的下标。

Public Function max(ByRef a() As Integer) As IntegerDim t As Integert = 0Dim i As IntegerFor i = 1 To UBound(a)If a(i) < a(t) Thent = iEnd IfNextmax = tEnd Function18计算并输出下面级数中奇数项的和SUM，要求在第一次出现SUM的绝对值大于100时结束。

合集下载

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. DimB. PublicC. PrivateD. Property答案：D2. VB中的“Option Explicit”语句用于做什么？A. 声明变量类型B. 强制变量声明C. 定义过程D. 创建对象实例答案：B3. 下列哪个不是VB的控件事件？A. ClickB. LoadC. ChangeD. Hover答案：D4. 在VB中，以下哪个不是标准数据类型？A. IntegerB. StringC. BooleanD. Pointer答案：D5. VB中的“With”语句用于什么？A. 初始化对象B. 创建对象实例C. 引用对象的多个属性或方法D. 循环遍历集合答案：C6. 在VB中，如何将一个表达式的结果赋值给一个变量？A. 使用“=”运算符B. 使用“==”运算符C. 使用“:=”运算符D. 使用“->”运算符答案：A7. 下列哪个是VB中的循环结构？A. IfB. For EachC. Select CaseD. While答案：D8. 在VB中，如何表示一个空引用？A. NullB. NothingC. EmptyD. Undefined答案：B9. VB中的“Handles”关键字用于什么？A. 过程定义B. 事件处理C. 类定义D. 属性声明答案：B10. 在VB中，以下哪个不是集合的属性或方法？A. AddB. ItemC. CountD. Sort答案：D二、填空题（每题2分，共20分）11. VB中的________关键字用于定义一个方法或属性的访问级别。

答案：Private12. 当你想要在VB中创建一个新类时，你需要使用________关键字。

答案：Class13. 在VB中，________方法用于在运行时创建对象。

答案：New14. 如果你想要在VB中捕获并处理异常，你应该使用________语句。

vb试题及答案一

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程序设计试题及答案一、选择题（每题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的函数，返回值为整数，应该使用语句________。