vb计算题
VB
1、》输入长方形的长和宽,计算长方形的面积,并输出。
Private Sub command1_click()Dim a%, b%, s%a = Val(InputBox("a"))b = Val(InputBox("b"))s = a * bPrint sEnd Sub2、输入正方形的边长,计算正方形的对角线长,并输出。
Private Sub command1_click()Dim a!,l!a=val(inputbox("输入边长"))l=sqr(2)*aPrint "对角线长度为:";lEnd sub3、输入圆的半径,计算圆的周长,并输出。
Private sub command1_click()Const pi=3.14Dim s#,i%r=val(inputbox("请输入半径"))s=2*pi*rprint "圆的周长为:";send sub4、》计算sum=1/2!+1/4!+1/6!+...+1/10!Private sub command1_click()Dim i%,f#,s#F=1:s=0For i=1 to 10F=f*iIf i mod 2=0 thenS=s+1/fEnd ifNext iPrint "sum=1/2!+1/4!+1/6!+...+1/10!";"=";sEnd sub5、计算sum=2!+4!+6!+...+10! 《计算、sum=1!+3!+5!+...+9!》Private sub command1_click()Dim i%,f#,s#F=1:s=0For i=1 to 10F=f*iIf i mod 2=0 thenS=s+fEnd ifNext iPrint "sum=2!+4!+6!+...+10!";"="sEnd sub6、计算sum=2+4+6+...+100Private Sub Command1_Click()Dim i%, sum%sum = 0For i = 2 To 100 Step 2sum = sum + iNext iText1.Text = sumEnd Sub7、计算sum=1+3+5+...+99Private Sub command1_click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNextPrint sumEnd Sub8、编写程序,建立一个6×6的整型二维数组(数据由程序调用Rnd函数产生[0,15 )的随机整数数),输出数组中的最小元素。
VB编程题答案
Vb编程题1.求自然数1~100之间奇数之和。
Private Sub Form_Click()Dim s As Long, i As Integers = 0For i = 1 To 100 Step 2s = s + iNextPrint sEnd Sub2.求自然数1~100之间偶数之和。
Private Sub Form_Click()Dim s As Long, i As Integers = 0For i = 2 To 100 Step 2s = s + iNextPrint sEnd Sub3.编写程序,在窗体上随机输出一个10--99之间的两位整数。
Private Sub Form_Click()clRandomizePrint Int(Rnd() * 90) + 10End Sub4.编程计算从200到1000之间的所有4的倍数之和。
Private Sub Form_Click()clsSum = 0For i = 200 To 1000 Step 4Sum = Sum + iNextPrint "200-1000中4的倍数和是:"; SumEnd Sub5. 编程计算从300到1000之间的所有7的倍数之和。
Private Sub Form_Click()Dim i As Integer, sum As Longsum = 0For i = 300 To 1000If i Mod 7 = 0 Thensum = sum + iEnd IfNextPrint "300-1000中7的倍数和是:"; sumEnd Sub6.编写程序在窗体上计算:5/6+4/5+3/4+2/3+1/2Private Sub Form_Click()Dim s As Single, i As Integer, t As Singles = 0For i = 5 To 1 Step -1t = i / (i + 1)s = s + tNextPrint sEnd Sub7.在窗体的单击事件中编写程序,从键盘上任意输入3个数,输出最大数。
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、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零",并根据输入的数用消息框显示"正数"、"负数〞或"零"。
2、题目:(事件)单击窗体。
(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中3、题目:单击窗体。
(响应)S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。
4、题目:(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和,将和保存在变量s中。
5、题目:(事件)双击窗体。
(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚〕,求出其所有的换法,把结果输出在窗体上。
将所有的换法的数目存入变量N中6、题目:单击窗体。
)求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中7、题目:(事件)单击窗体。
(响应)生成一个一维数组(10个数组元素依此为:' 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。
将最大值,最小值,平均值分别存入变量Ma*,Min,Aver中8、题目:(事件)单击窗体。
(响应)在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。
9、题目:(事件)单击窗体。
(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L 中。
10、题目:(事件)单击窗体。
(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。
将结果存入变量J中。
1题n = InputBo*("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"ElseIf n = 0 Thenresult = "零"End IfMsgBo* "输入的数据" & n & "为:" & result2题Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNe*tPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)Ne*tPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + mNe*t5题Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNe*tNe*tNe*t6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNe*ts = s + kNe*tPrint (CStr(s))7题Dim a(9) As IntegerDim i, s As Integera(0) = 15:a(1) = 23:a(2) = 72 a(3) = 43:a(4) = 96:a(5) = 23 a(6) = 3:a(7) = 65:a(8) = 88a(9) = 17:ma* = a(0):min = a(0) s = 0For i = 0 To 9If a(i) > ma* Thenma* = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Ne*taver = Int(s / 10)Print (CStr(ma*))Print (CStr(min))Print (CStr(aver))8题Dim i, j, s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i))sum = sum + iE*it ForEnd IfNe*tNe*tPrint sum9题Dim i%,j%,b As Booleanl = 1:b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNe*tIf b = False Thenl = l * iEnd Ifb = FalseNe*tPrint Str(l)10题Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Then j = j - 1 / iEnd IfNe*tPrint j11、题目: (事件)单击窗体。
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 考点整理,期末复习
程序设计:1.题目:(事件)双击窗体(响应)求1+5+10+15+……+500的和,并将结果输出到窗体上。
将结果存入到SUM中Private Sub Form_dblClick()Dim sum As Longsum = 1'**************Begin************For i = 5 To 500 Step 5sum = sum + iNext iPrint sum'**************end************TestFunc (sum)End Sub2.题目:求两个数m,n的最大公约数p和最小公倍数q注意:在指定的事件内编写代码。
Private Sub Form_Load()ShowDim p, q As IntegerDim m, n, As IntegerDim t, r As Integerm = 21n = 28'**************Begin************If m <n Then t = m: m= n: n = tDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopp = nq = 28 * 21 / p'**************end************Print "最大公约数=", pPrint "最小公倍数=", qtestfunc p, qEnd Sub3.题目:(事件)单击窗体(响应)我国现有人口13亿,设年增长率为1%,计算多少年后增加到20亿。
并将结果输出在窗体上,将结果存入变量year中。
使用do while……loop语句完成程序。
Private Sub Form_dbClick()Dim year As Integer'**************Begin************n = 13Do While n < 20n = n * 1.01year = year + 1LoopPrint year'**************end************4.题目:以下程序段用于求∑n!Private Sub Form_Click()Dim sum As Long, n As Longn = InputBox("请输入一个正整数")sum = 0For i = 1 To nsum = sum + mul(i)Next iPrint sumEnd SubPrivate Function mul(ByVal x As Long)Dim s As Long, i As Longs = 1For i = 1 To xs = s * iNext imul = sEnd Function5.题目:(事件)双击窗体。
20道 vb习题答案
If a > 0 Then
Select Case a
Case Is < 10
page = 30
Case Is < 60
page = a * 2
If a + b > c And a + c > b And b + c > a Then
Print "能构成三角形"
s = (a + b + c) / 2
area = Sqr(s * (s–a) * (s–b) * (s-c )
Print "该阶梯至少有"; i; "阶"
Exit Do
End If
Loop
End Sub
4. 一个球从100 m高度自由下落,每次落地后反跳回原高度的一半,再落下。求它在第10次落地时,共经过多少m?最后一次反弹高度多少?
Private Sub Command1_Click()
15
16
17
18
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Print " * 3 6 9 12"
For i = 15 To 18
Private Sub Command1_Click()
Dim i As Integer, x As Integer, j As Boolean
x = InputBox("请输入一个数")
Do While True
x = x + 1
For i = 2 To Sqr(x)
VB程序题p
Visual Basic编程题题型一:根据文字提示,找出数列的组成规律,即如何由已知项求出下一项,这样,经过若干次更迭,可求出数列中任何项,也可以求出前若干项的和。
1、已知数列前3项为0、0、1,以后每项为前3项的和,求此数列的第36项。
(334745777)方法一:Private Sub Form_Click() Dim a&, b&, c&, d&, n% a = 0: b = 0: c = 1For n = 1 To 36d = a+b+ca = bb = cc =dNext nPrint dEnd Sub 方法二:Private Sub Form_Click()Dim d(36) As Double, n As Integer d(1) = 0d(2) = 0d(3) = 1For n = 4 To 36d(n) = d(n - 1) + d(n - 2) + d(n - 3) Next nPrint d(36)End Sub2、计算y=1+2/3+3/5+4/7+…+n/(2*n-1) (n=50), 要求:按四舍五入的方式精确到小数点后第二位。
(26.47) Private Sub Form_Click()Dim s As Single, n as integers = 0For n = 1 To 50s = s + n / (2 * n - 1)Next nPrint Round(s, 2)End Sub3、求数列2/1,3/2,5/3,8/5,……,的前10项的和。
(16.47991)方法一:private sub form_click() dim I%,a%,b%,t%,s!a=2:b=1for I=1 to 10s=s+a/bt=aa=a+bb=tnext Iprint send sub 方法二:Private Sub Form_Click()Dim d(10) As Single, n As Integer, s As Single d(1) = 2 / 1s = 2 / 1For n = 2 To 10d(n) = 1 + 1 / d(n - 1)s = s + d(n)Next nPrint sEnd Sub4、编程求fibonacci数列:1,1,2,3,5,8……的前30个数的和。
【精选】VB编程题目及答案
1.输入3个数,输出最大的数2.有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根3.输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜!成绩通过!”,若小于60,则弹出消息框,显示“抱歉!成绩没有通过!”4.输入一年份,判断它是否为闰年,并显示有关信息。
(判断闰年的条件是:年份能被4整除但不能被100整除,或者能被400整除)5.输入学生的百分制成绩,转换输出为五级制成绩,90~100分转换为优秀,80~89转换为良好,70~79转换为中等,60~69转换为及格,0~60转换为不及格。
6.随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。
例如,产生246,输出是642。
7.输入两个整数,求它们的最大公约数。
8.编程求200--400范围内5的倍数或7的倍数之和。
(一个数如果同时是7和5的倍数,则只能加一次。
9.计算100~300之间所有能被3和7整除的数之和10.分别统计1-100中,满足3的倍数、7的倍数的数各有多少。
11.某次歌曲大奖赛,有7个评委。
如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。
12.输入一串字符,统计其中字母A(不区分大小写)出现的次数。
13.我国目前有13亿人口,按人口年增长率0.8%计算,多少年后我国人口将超过26亿。
14.小猴有桃若干,第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个;以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少?15.求100以内的素数16.百元买百鸡问题。
假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案。
17.编程求斐波那契数列前11项。
(斐波那契数列:F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 )18.将输入的字符串以反序显示。
例如:输入“ASDFGT”,显示“TGFDSA”19.随机产生10个[30,100]内的整数,求最大值及所对应的下标20.随机产生10个[30,100]内的整数,求最大值、最小值和平均值。
历年计算机二级vb考试试题及答案
历年计算机二级vb考试试题及答案一、单选题1. 在VB中,以下哪个选项不是有效的数据类型?A. IntegerB. StringC. DateD. Boolean答案:C2. VB中,以下哪个关键字用于声明一个过程?A. FunctionB. SubC. ClassD. Property答案:B3. 在VB中,以下哪个选项是正确的字符串连接操作?A. "Hello" + "World"B. "Hello" & "World"C. "Hello" || "World"D. "Hello" / "World"答案:B4. VB中,以下哪个选项不是控制结构?A. If...ThenB. For...NextC. While...WendD. Dim答案:D5. 在VB中,以下哪个选项用于声明一个变量?A. DimB. ConstC. FunctionD. Sub答案:A二、多选题1. 在VB中,以下哪些选项是合法的数组声明?A. Dim numbers(10) As IntegerB. Dim names() As StringC. Dim matrix(2, 3) As DoubleD. Dim matrix(3) As Double答案:A, B, C2. VB中,以下哪些选项是合法的循环结构?A. For...NextB. Do...LoopC. While...WendD. Repeat...Until答案:A, B, C, D三、判断题1. VB中,所有的变量都必须在程序开始之前声明。
(对/错)答案:错2. VB中,可以使用“=”来比较两个字符串是否相等。
(对/错)答案:错3. VB中,可以使用“&”来连接两个字符串。
vb for循环练习题
vb for循环练习题VB(Visual Basic)是一种基于对象的程序设计语言,它被广泛应用于Windows操作系统的应用程序开发中。
VB中的循环结构提供了一种方便快捷的方式来重复执行代码块。
在本篇文章中,我们将介绍一些VB的for循环练习题,帮助您熟悉并掌握for循环的用法。
练习题一:输出1到10的数字请编写一个程序,使用for循环输出1到10的数字,并在每个数字后面加上一个换行符。
```Sub Main()For i As Integer = 1 To 10Console.WriteLine(i)NextEnd Sub```练习题二:计算1到10的累加和请编写一个程序,使用for循环计算1到10的累加和,并将结果输出。
```Sub Main()Dim sum As Integer = 0For i As Integer = 1 To 10sum += iNextConsole.WriteLine("1到10的累加和为:" & sum)End Sub```练习题三:输出10到1的数字请编写一个程序,使用for循环从10输出到1的数字,并在每个数字后面加上一个换行符。
```Sub Main()For i As Integer = 10 To 1 Step -1Console.WriteLine(i)NextEnd Sub```练习题四:输出九九乘法表请编写一个程序,使用for循环输出九九乘法表。
```Sub Main()For i As Integer = 1 To 9For j As Integer = 1 To iConsole.Write(j & " x " & i & " = " & i * j & " ")NextConsole.WriteLine()NextEnd Sub```练习题五:计算阶乘请编写一个程序,使用for循环计算给定数字的阶乘。
期末VB练习题含答案
计算机与程序设计基础(VB)练习题一.单选题(每小题1分,共27分)1.根据冯·诺依曼1946年提出的计算机的程序存储原理而设计了现代的计算机。
下面的说法正确的是_________。
A.计算机能够智能地自动编制好程序,并执行B.计算机内的程序和数据,都是用十进制数表示C.计算机内的程序和数据,都是用二进制表示的D.笔记本电脑不是冯•诺依曼结构的计算机2.计算机硬件主要由运算器、_________、存储器、输入设备及输出设备等构成。
A.屏幕B.控制器C.键盘D.打印机3.断电会使存储数据丢失的存储器是_________。
A.ROM B.U盘C.硬盘D.RAM4.下列存储器中读写速度最快的存储器是_________。
A.光盘B.内存储器C.硬盘D.高速缓冲存储器5.1MB = _________。
A.1000B B.1024B C.1000KB D.1024KB6.下列设备中,属于计算机输入设备的是_________。
A.鼠标B.音箱C.打印机D.显示器7.下面的_________不是操作系统。
A.Java B.Mac OS C.Linux D.Windows8.下面4个不同进制的数中,最小的是_________。
A.(200)10B.(11000111)2C.(306)8D.(C9)169.十进制数125所对应的八进制数为_________。
A.177 B.157 C.161 D.17510.二进制数10110110所对应的十六进制数为_________。
A.C6 B.D6 C.B6 D.E611.下面不属于对象的基本特征的是_________。
A.属性B.事件C.方法D.函数12.以下能在窗体的标题栏显示“窗体”的语句是_________。
A. = "窗体" B.Form1.Title = "窗体"C.Form1.Text = "窗体" D.Form1.Caption = "窗体"13.下列可作为变量名的是_________。
VB大题题库
a(i) = Val(InputBox("输入第" & i & "条边的边长:"))
Next i
If a(0) + a(1) > a(2) And a(0) + a(2) > a(1) And a(1) + a(2) > a(0) Then
p = (a(0) + a(1) + a(2)) / 2
If Prime(i) Then
j = j + 1
Print CStr(i) & " ";
If j Mod 5 = 0 Then Print
sum = sum + i
End If
Next i
Print "总和:"
Print f(i)
Next i
End Sub
Private Function f(a)
If a = 1 Or a = 2 Then
f = 1
Else
f = f(a - 1) + f(a - 2)
End If
End Function
4编写程序,产生一个整型二维数组A(N ,N),(N 取5),数组元素的取值范围为[0,20 ),计算数组中每一列数据的和
1输入圆的半径,计算圆的面积,并输出。
Private Sub Command1_Click()
Dim r!, s!
r = InputBox("请输入半径", "输入框")
s = 3.1415926 * r ^ 2
vb100例(上)
VB 基础程序设计100例(上)注意:1. 除非题目要求,不要使用控件(如按钮,文本框等),也不添加其他窗体和标准模块。
一律在Form_Click()过程中编写代码,用inputbox 函数输入数据,在窗体上输出结果。
2. 每个程序只保存一个窗体文件(例如第1题为t001.frm ),不保存.vbp 工程文件。
3. 只有在使用外部过程(Sub 子过程、Function 函数过程)可以提高效率,或题目要求使用外部过程的情况下,才使用外部过程。
4. 所有代码都应按缩进的格式书写。
待有了一定的程序设计经验之后,在学习第5章时,再根据需要进行应用程序界面设计,即进入VB 编程的第二阶段。
有了第一阶段的基础,第二阶段困难不大。
第一部分 该部分习题不使用数组1.用Inputbox 函数输入一个整数,判断其能否被2,3,和5整除,若能则输出该数及它的平方值2.输入一个年份,判断是否闰年。
闰年的条件是该数能被4整除且不能被100整除,或该数能被400整除3.交换两个变量的值,在程序中只允许出现这两个变量4.依次输入一元二次多项式的二次项、一次项和常数项系数,输出它的两个根,例如 x1=2 x2=-3.5 或 x1=3+2*i x2=3-2*i 这里 i 是虚数单位5.计算 s=1+2+3+…+n 和c=1*2*3*…*n6.计算下式之和首次大于10000时的n 的值:s=1+2+22+…+2n +…7.计算下式之和不超过10000时的n 的最大值:s=12+22+…+n 2+…8.计算 s=1*21 (51)311-++++n9.计算 s=n n 1)1( (31)211--+-+-10.计算 t=1+(1+2)+(1+2+3)+…+(1+2+…+n)11.计算 t=1!+2!+…+n!12.计算 t=!1...!31!211n ++++13.计算 s=)!1(...!32!2++++n nx x x14.同上题,要求用Sub 过程计算每项的分子,用Function 过程计算每项的分母15.编写Function 过程计算n!,调用该过程计算组合数16.编写Sub 过程计算n!,调用该过程计算组合数17.编写程序,打印斐波那契(Fibonacci)数列的前30项。
VB-编程题(1)
编程题(40题)1、在文本框Text1中输入一个正整数N ,按“计算”命令按钮Command1,产生N 个0 ~ 100之间的随机整数,计算这N 个随机整数的平均数,显示在标签Label1中。
将编写的程序存盘,工程文件名为Ex12nnnn.Vbp ,窗体文件名为Ex12nnnn.Frm 。
(当N 足够大时,该平均值应趋向于50)。
Ex12nnnn.Vbp Ex12nnnn.FrmPrivate Sub Command1_Click ( )N = Val (Text1.Text)Sum = 0For k = 1 To NV = Int ( Rnd * 101 )Sum = Sum + VNext kLabel1.Caption = Sum / NEnd Sub2、在文本框Text1中输入一正整数N ,按“计算”命令按钮Command1,计算该数的阶乘N !,结果显示在标签框Label1中。
按“结束”命令按钮Command2 结束程序。
Private Sub Command1_Click () Private Sub Command2_Click () N = Val (Text1.Text) EndP = 1 End SubFor k = 1 To NP = P * kNext kLabel1= PEnd Sub3、 在文本框 Text1中输入一个字符串,按“排列”按钮 Command1, 将输入字符串中每两个相邻的字符之间插入一个空格,结果显示在标签框Label1 中。
按“结束”命令按钮Command2结束程序。
Private Sub Command1_Click () Private Sub Command2_Click ()X = Text1.Text EndL = Len (X) End SubW = “”For k = 1 To L-1V = Mid (X, k, 1)W = W + V + “ ”Next kW = W + Right (X,1)Label1.Caption = WEnd Sub4、编写程序,从键盘输入任一x 的值,求分段函数的值(可用InputBox 函数)。
初三vb考试试题及答案
初三vb考试试题及答案初三VB考试试题及答案一、选择题(每题2分,共20分)1. 在VB中,以下哪个关键字用于声明变量?A. DimB. IfC. ForD. Sub答案:A2. VB中的哪种循环结构可以用于重复执行代码块,直到条件不再满足?A. WhileB. Do WhileC. ForD. Select Case答案:B3. 在VB中,以下哪个函数用于计算两个数的和?A. Sum(a, b)B. Add(a, b)C. +(a, b)D. None of the above答案:D4. 如果需要在VB中弹出一个包含文本的对话框,应该使用哪个方法?A. MsgBoxB. PrintC. WriteD. Show答案:A5. 以下哪个是VB中合法的变量名?A. 2variableB. variable2C. variable@2D. variable-2答案:B6. 在VB中,以下哪个不是控制结构?A. If...Then...ElseB. Select CaseC. For...NextD. Print答案:D7. 在VB中,以下哪个不是数组的声明方式?A. Dim arr(1 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer() = New Integer(10)D. Dim arr As Integer = New Integer(10)答案:D8. VB中的哪个属性可以设置控件是否可见?A. VisibleB. EnabledC. CaptionD. Text答案:A9. 在VB中,以下哪个不是事件?A. ClickB. LoadC. ChangeD. Print答案:D10. 在VB中,以下哪个不是控件的属性?A. NameB. TextC. TypeD. Caption答案:C二、填空题(每空2分,共20分)11. 在VB中,使用_______关键字可以定义常量。
VB经典例题(附答案)
实验4:编写一个程序。
要求在窗体内设置7个标签(Label)及7个文本框(TextBox),将每个标签的Text属性值设置为如下表达式。
在程序运行时,单击窗体空白区,可在对应的文本框中输出这些表达式的值。
1)8*3*6\22)7/6*3.2/2.15*(5.5+3.5)3)34\4+4.0^5/124)65\3 mod 3.4*fix(3.8)5)“abg”+”34” & “erert”6)true or not (8+3>=23)7)7>2 or 4<9实验目的:学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5:编写一个程序。
设a=2,b=3,c=4,d=5,S="ABCDEFGHI]K",求下列表达式的值:(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的:学习VB中函数的使用。
VB编程题及答案
VB编程题1、求100以内的素数。
2、从键盘输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的“ABCDEFG变换成“ GFEDCBA。
3、计算0~200之间所有能被11或5整除的数之和4、输入一年份,判断它是否为闰年,并显示有关信息。
(判断闰年的条件是:年份能被4整除但不能被100整除,或者能被400整除)5、已知x,y,z 3个变量中存放了3个不同的数,比较它们的大小并进行调整,使得x<y<z。
6、求s=a+aa+aaa+…aaaaa (n 个a),其中a和n的值随机产生,a的范围是[1,9]的整数,n的范围是[5,10]。
如a=3 ,n=6,则s=3+33+333+3333+33333+333333 编程确定n和a的值,并计算s。
7、计算100~300之间所有能被3和7 整除的数之和。
8、编程求200--400范围内5的倍数或7的倍数之和。
(一个数如果同时是7和5的倍数,则只能加一次。
)9、找出被3、5、7除,余数为1的最小的5个正整数。
10、某次歌曲大奖赛,有7个评委。
如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。
11、编程显示100~500之间所有的水仙花数之和。
(水仙花数是3位数,其各位数之和等于该数本身)12、随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。
例如,产生246,输出是642。
13、从键盘输入三角形的三条边a,b, c的值,根据其数值,判断能否构成三角形。
14、已知数组a(),编程删除a中第5 个元素。
数组a中的元素分别为{12,6,4, 89, 75, 63, 100, 20, 31}。
15、随机生成一个整型的二维数组,范围在[10,20]之间,以上三角形式输出该数组。
16、利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标。
计算机vb基础知识试题及答案
计算机vb基础知识试题及答案一、选择题(每题1分,共10分)1. VB(Visual Basic)是一种______。
A. 操作系统B. 编程语言C. 网页浏览器D. 数据库管理系统答案:B2. 在VB中,以下哪个是正确的变量声明方式?A. Dim xB. Declare xC. Define xD. Let x答案:A3. VB中的“Sub”过程用于______。
A. 执行代码,但不需要返回值B. 执行代码,并返回一个值C. 声明变量D. 定义类答案:A4. 下列哪个是VB中的循环结构?A. IfB. ForC. SubD. Function答案:B5. VB中的“Option Explicit”语句的作用是______。
A. 声明变量类型B. 强制变量声明C. 定义常量D. 指定默认属性答案:B6. 在VB中,以下哪个是数组的正确声明方式?A. Dim arr(5) As IntegerB. Declare arr(5)C. Define arr(5)D. Let arr(5)答案:A7. VB中的“MsgBox”函数用于______。
A. 显示消息框B. 计算数学表达式C. 打开文件D. 连接数据库答案:A8. 在VB中,以下哪个是正确的条件语句?A. If x = 10 ThenB. If x = 10C. Condition x = 10 ThenD. If x = 10 End If答案:A9. VB中的“Select Case”语句用于______。
A. 条件判断B. 循环控制C. 定义类D. 声明变量答案:A10. 在VB中,以下哪个是正确的函数声明方式?A. Function myFunction As IntegerB. Declare myFunctionC. Define myFunctionD. Let myFunction答案:A二、填空题(每题1分,共5分)11. 在VB中,使用________关键字来声明常量。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
1对象的特征称_________,对象能够执行的操作称为___________,对象能够识别的操作称为______。
属性方法事件方法属性事件事件属性方法属性事件方法答案:A2面向对象的程序设计语言的基本编程模式是___________驱动。
事件对象方法类驱动答案:A3要改变Form窗体的背景色,要对其__________属性进行设置。
ForecolorFontBackColorSize答案:C4决定一个控件不可见,要将该控件的哪个属性设置为False。
EnablVisibleWidthText答案:B5文本框TextBox在默认情况下只能显示和输入单行文本,要将其设置为多行显示,要将哪个属性设置为True。
PasswordCharReadOnlyScrollBarsMultiline答案:D6用于设定文本框TextBox是否用于输入口令。
要对哪个属性进行设置。
PasswordCharReadOnlyScrollBarsMultiline7下列哪个控件用于显示用户无法更改或指导用户操作的提示性信息。
ButtonLabelFormTextBox答案:B8下列说法有错误的是默认情况下,属性Visible的值为True。
如果设置控件的Visible属性为False,则运行时控件会隐藏。
Visible的值可设为True或False设置Visible属性同设置Enable属性的功能是相同的,都是使控件处于失效状态。
答案:D9下列各控件不包含滚动条的控件是。
ListBoxComboBoxTextBoxLabel答案:D10在Visual 中,被称为对象的是:窗体控件控件和窗体窗体、控件和属性答案:C11如果在程序中要将变量a定义为整形变量,则应使用的语句是Dim a as DoubleDim a as StringDim a as IntegerDim a as Boolean答案:C12以下的数据类型当中,哪种不属于整数类型ShortLongIntegerSingle答案:D13以下的数据类型当中,哪种不属于数字数据类型StringDecimalSingleShort答案:A第二章1下面哪个函数可以把数字转换成字符串ValStrIntRnd~B~~~2下面哪个函数可以从字符串中提取出数值ValFormatIntRnd答案:A2可以实现从键盘输入一个作为双精度变量a的值的语句是a=InputBox()a=InputBox("请输入一个值")a=Val(InputBox("请输入一个值"))a=Val(InputBox())答案:C3下列常量“a”的声明中,不合法的是Const a As integer=7Const a as string="OK"Const a As Double=3.14Const a As Integer="12"答案:D4下列日期型数据正确的是@January 10,1985@#January 10,1985#"January 10,1985"&January 10,1985&答案:B5下面说法不正确的是变量名的长度不能超过255个字符变量名可以包含小数点或者内嵌的类型声明字符变量名不能使用关键字变量名的第一个字符必须是字母或下划线答案:B6由表达式x=cint(rnd()*90+10) ,则x所可能得到的随机整数范围是:0---10010 --- 9010 --- 9910 --- 100答案:C7表达式(3/2+1)*(5/2+2)的值是11.2536.1254答案:A8下列语句正确的是( )If x<3*y And x>y Then y=x^3If x<3*y And x>y Then y=3xIf x<3*y : x>y Then y=x^3If x<3*y And x>y Then y=x**3答案:A第三章1不能脱离(包括客体)而独立存在的过程是事件过程通用过程Sub过程函数过程答案:A2Sub过程和Function过程最根本的区别是Sub过程可以用Call语句直接使用过程名调用,而Function过程不可以Function过程可以有形参,而Sub过程不可以Sub过程不能返回值,而Function过程能返回值两种过程参数的传递方式不同答案:C4对于语言的过程,下列叙述中正确的是过程的定义不能嵌套,但过程调用可以嵌套过程的定义可以嵌套,但过程调用不能嵌套过程的定义和调用不能嵌套过程的定义和调用可以嵌套答案:A5有过程定义如下:Private Sub fun(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) 则下列调用语句不正确的是Call Fun(a,b,c)Call Fun(3,4,c)Fun a,b,cFun(3,4,c)答案:C6在过程内定义的变量(不在语句块中)为全局变量模块变量局部变量静态变量答案:C7下面的过程定义语句中不合法的是Sub Para(ByVal n as integer )Sub Para(n) As IntegerFunction Para(ByVal n as integer)as integerFunction Para(proc1) as integer答案:B8以下关于函数过程的叙述中,正确的是函数过程形参的类型和函数返回值的类型没有关系在函数过程中,过程的返回值可以有多个当数组作为函数过程的参数时,只能以传值方式传递,不能以传址方式传递如果不指明函数过程参数的类型,则该参数没有数据类型答案:A9以下叙述中错误的是事件过程是响应特定事件的一段程序不同的对象可以具有相同名称的方法对象的方法是执行指定操作的过程对象事件的名称可以由编程者指定答案:D第四章1以下属于合法的数组元素是:a8a(8)a{8}答案:C2在下面的数组声明语句中,正确的是:dim a[3,4] as integerdim a(3,4) as integerdim a(3;4) as integerdim a(3:4) as integer答案:B3在中,对数组的声明语句中不正确的是:dim a() as integerdim a(3) as integerdim a(3) as integer={1,2,3}dim a() as integer={1,2,3}答案:C4在中,对数组的声明语句中正确的是:dim a(1,2) as integer={{1,2,3},{4,5,6}}dim a(,) as integer={{1 },{2,3},{4,5,6}}dim a(1,2) as integer={1,2,3},{4,5,6}dim a(,) as integer={{1,2,3},{4,5,6}}答案:D5在中,对数组的声明语句中不正确的是:dim a(2) as integer={1,2,3}dim a() as integer={1,2,3}dim a(1,2) as integerdim a(,) as integer={{1,2,3},{4,5,6}}答案:A6使用语句Dim A(2) As Integer 声明数组A之后,以下说法正确的是A数组中的所有元素都不确定A数组中的所有元素值为0A数组中所有元素值都为Empty执行Erase A后,A数组中所有元素值都不为0答案:B7在中,声明数组语句Dim a(6,6) as integer,则数组a中共含有()个元素。
121436答案:D第五章1在Visual 中,按文件的数据性质的不同,可将文件分为:()数据文件和程序文件文本文件和数据文件顺序文件和随机文件ACSII文件和二进制文件答案:A2在Visual 中,根据数据的存取方式和结构,可将文件分为:()数据文件和程序文件文本文件和数据文件顺序文件和随机文件ACSII文件和二进制文件答案:C3在Visual 中,按文件的编码方式的不同,可将文件分为:()数据文件和程序文件文本文件和数据文件顺序文件和随机文件ACSII文件和二进制文件答案:D4下面叙述不正确的是:()对顺序文件中的数据操作只能按一定的顺序操作顺序文件结构简单能同时对顺序文件进行读写操作顺序文件不能灵活地存取数据答案:C5要在D盘根目录下建立一个名为InfoBase.dat的顺序文件,应使用的语句是()FileOpen(1,"InfoBase.dat",Openmode.Output)FileOpen (1, "d:\InfoBase.dat", Openmode.Output)FileOpen(1 , "d:\InfoBase.dat", Openmode.Input)FileOpen( 1, "InfoBase.dat" , Openmode.Input)答案:B6在Visual 中,要在顺序文件的末尾追加一条记录,应使用哪种模式()OutputInputRandomAppend答案:D7在读写顺序文件时,为了防止出现“输入超出文件尾”的错误,可使用()函数来测试文件的结束状态.EOFLOFLOCLEN答案:A8要从顺序文件中读出一个数据项,可以用()函数InputWriteLineInputInputString答案:A9以下关于FileClose函数的说法,错误的是()FileClose函数用来关闭文件FileClose函数可以释放和文件相关联的文件号当读写操作结束后,必须将文件关闭FileClose函数中的“文件号”是必选的答案:D。