vb基本知识及选择、循环结构习题(1)
vb基础知识试题及答案
![vb基础知识试题及答案](https://img.taocdn.com/s3/m/19b427292a160b4e767f5acfa1c7aa00b42a9d01.png)
vb基础知识试题及答案一、选择题(每题2分,共10分)1. VB中,哪个关键字用于声明变量?A. DimB. ConstC. LetD. Option Explicit答案:A2. 在VB中,哪个函数用于将字符串转换为大写?A. UCaseB. LCaseC. StrConvD. Trim答案:A3. VB中,哪个循环结构用于重复执行代码块直到满足特定条件?A. Do LoopB. For EachC. While WendD. For Next答案:A4. 在VB中,如何表示逻辑“与”操作?A. AndB. OrC. NotD. Xor答案:A5. VB中,哪个关键字用于定义函数?A. FunctionB. SubC. PropertyD. Const答案:A二、填空题(每题2分,共10分)1. 在VB中,使用________关键字可以声明一个数组。
答案:Dim2. VB中的________函数用于计算两个日期之间的天数差。
答案:DateDiff3. VB中,________关键字用于声明一个过程,该过程不返回值。
答案:Sub4. 使用________函数可以将数字转换为字符串。
答案:Str5. 在VB中,________关键字用于声明一个类模块。
答案:Class三、简答题(每题5分,共15分)1. 描述VB中的事件驱动编程。
答案:事件驱动编程是一种编程范式,程序的执行流程由外部事件(如用户操作、系统消息等)触发。
在VB中,开发者可以为控件编写事件处理程序,当特定的事件发生时,如按钮点击,相应的事件处理程序会被调用执行。
2. 解释VB中的类和对象的概念。
答案:在VB中,类是一种模板,定义了一组属性、方法和事件,这些可以被实例化为对象。
对象是类的实例,每个对象拥有自己的状态和行为。
通过类,可以创建具有相同属性和方法的多个对象。
3. 什么是VB中的封装?答案:封装是面向对象编程中的一个核心概念,它指的是将数据(属性)和操作这些数据的方法(过程)捆绑在一起,形成一个对象。
VB循环结构上机题
![VB循环结构上机题](https://img.taocdn.com/s3/m/98dd093f83c4bb4cf7ecd185.png)
循环结构及常见算法
作业1:求1×1+2×2+…+100×100之和。
作业2:求1+(1×2)+(1×2×3)+…+(1×2×3×…×n)的值。
n 由用户指定。
作业3:输入任意一个正整数,将其反向输出。
如输入1234,输出4321。
作业4:求圆周率∏的近似值。
公式为4∏= 1-31+51-71…+(-1)(n+1)×121-n ,直到最后一项的绝对值小于0.0001 为止。
(累加算法)
提示:先用公式计算,最后乘个4就是圆周率∏的结果,结果为:3.141397 方法一:
方法二:
作业5:若口袋里放12个球,3个红的,3个白的,6个黑的,从中任取8 个,编写程序,列出所有可能的取法。
(穷举算法)
作业6:有一分数序列
12、23、35、5
8……,求这个数列前20 项之和。
(迭代/累加算法)
提示:运行结果为32.66026
作业7:求S=a+aa+aaa+…+aaa(n个a)。
其中a是一个随机函数产生的[1,9]的一个整数,n 是一个随机函数产生的[2,9]之间的一个整数。
如a=2,n=4,则求S=2+22+222+2222。
(迭代/累加算法)。
vb第四章选择结构和循环结构编程题
![vb第四章选择结构和循环结构编程题](https://img.taocdn.com/s3/m/b740d159804d2b160b4ec06a.png)
第四章编程题1.查询分数题Private Sub Form_Load()x = Val(InputBox("请输入分数", "输入", 0))Select Case xCase Is < 0Label1.Caption = "输入有误"Case Is > 100Label1.Caption = "输入有误"Case Is >= 90Label1.Caption = "优秀"Case Is >= 80Label1.Caption = "良好"Case Is >= 70Label1.Caption = "一般"Case Is >= 60Label1.Caption = "及格"Case Is < 60Label1.Caption = "不及格"End SelectEnd Sub2.求最大公约数题Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m < 0 Or n < 0 ThenMsgBox "数据错误!"EndEnd Ifp = m Mod nDo While p <> om = nn = pp = m Mod nLoopText3.Text = nEnd Sub2.1最小公倍数Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integer, t As Integerm = Val(Text1.Text)n = Val(Text2.Text)t = m * nIf m < 0 Or n < 0 ThenMsgBox "数据错误!"EndEnd IfIf m = 0 Or n = 0 ThenText3.Text = 0ElseDop = m Mod nIf p = 0 ThenExit DoEnd Ifm = nn = pLoop Until FalseText3.Text = t / nEnd IfEnd Sub3.九九乘法表Private Sub Command1_Click()Dim I As Integer, J As Integer, M As Integer, s As String For I = 1 To 9s = ""For J = 1 To IM = I * Js = s & J & "*" & I & "=" & M & " "Next JList1.AddItem sNext IEnd Sub4.求ABCD—CDC=ABC题Private Sub Command1_Click()For a = 1 To 9: For b = 0 To 9For c = 1 To 9: For d = 0 To 9x = a * 1000 + b * 100 + 10 * c + dy = c * 100 + d * 10 + cz = a * 100 + b * 10 + cIf x - y = z ThenPrint x; y; zEnd IfNextNextNextNextEnd Sub5.求前100项和,平均数题Private Sub Form_click()n = 1: s = 0Do While n <= 100s = s + nn = n + 1LoopPrint s, n - 1, s / (n - 1), s * (n - 1)End Sub6.输入10个数找出正数,负数,零的个数Private Sub Command1_Click()Dim i, t, x1, x2, x3 As IntegerFor i = 1 To 10t = Val(InputBox("请输入第" & i & "个数:", "显示", 0))If t > 0 Thenx1 = x1 + 1ElseIf t < 0 Thenx2 = x2 + 1Elsex3 = x3 + 1End IfNextPrint "正数的个数:" & x1Print "负数的个数:" & x2Print "零的个数:" & x3End Sub7.Fibonacci数列(用数组做)Private Sub Form_Load()For i = 1 To 30List1.AddItem Fib(i)NextEnd SubPrivate Function Fib(n)If n < 3 ThenFib = 1ElseFib = Fib(n - 1) + Fib(n - 2)End IfEnd FunctionPrivate Sub List1_Click()List1.AddItem = FibEnd Sub8.输入十个数打印并找出最大数,最小数Private Sub Command1_Click()Dim a(9), i, max, min As IntegerFor i = 0 To 9a(i) = Val(InputBox("请输入第" & i + 1 & "个数:"))Print a(i);Nextmax = a(0)For i = 0 To 9If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)NextPrintPrintPrintPrint "最大数为:" & max; "最小数为:" & minEnd Sub9.100元换成40张等值的10,5,2,1的钱的题Private Sub Command1_Click()For x = 1 To 10For y = 1 To 20For z = 1 To 50w = 40 - x - y - zIf 10 * x + 5 * y + 2 * z + w = 100 And x * y * z * w > 0 Thenh = Format(x, "@@@@") & Format(y, "@@@@@") _& Format(z, "@@@@@") & Format(w, "@@@@@")List1.AddItem hEnd IfNext zNext yNext xEnd Sub10.找出三位数的回文数并打印,并求其个数Private Sub Command1_Click()Dim n As IntegerFor n = 101 To 999a = Int(n / 100)b = Int((n - a * 100) / 10)c = n - a * 100 - b * 10If a = c Then List1.AddItem nNextPrint List1.ListCountEnd Sub10-2回文字判断1)按定义判断先求出字符串的反序字符串,然后和原字符串比较,如果相等则是回文,否则不是回文。
VB循环结构及数组练习
![VB循环结构及数组练习](https://img.taocdn.com/s3/m/4faac6d026fff705cc170a8c.png)
VB循环结构及数组练习一、单选题1.执行以下程序段后,i的值为(B)For i = 1 To 10 Step 2y = y + iNext iA)10 B)11 C)12 D)252.假定有如下语句:Private Sub Command1_Click()Counter = 0For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后,结果为(B)A)11 B)12 C)16 D)203. 假定有如下语句:Private Sub Command1_Click()For i = 1 To 4If i = 1 Then x = iIf i <= 4 Then x = x +1Print x;End Sub程序运行后,结果为A)1 2 3 4 B)2 3 4 5 C)2 3 4 4 D)3 4 5 64.哪个程序段不能分别正确显示1!、2!、3!、4!的值(B)A)For i = 1 To 4n = 1For j = 1 To in = n * jNext jPrint nNext iB)For i = 1 To 4For j = 1 To in = 1n = n * jNext jPrint nNext iC)n = 1For j = 1 To 4n = n * jPrint nNext jD)n = 1: j = 1Do While j <= 4n = n * jPrint nj = j + 1Loop5. 编写如下的事件过程:Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后,在窗体上显示的内容是(A)A)BB B)A C)B D)AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD6. 编写如下的事件过程:Private Sub Command1_Click()Dim x,n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str (x)Text2.Text = Str (n)End Sub运行程序后,在2个文本框中显示的值分别是(B)A)20和1 B)27和3 C)195和3 D)600和47. 编写如下的事件过程:Private Sub Command1_Click()Dim i,n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str (n)End Sub运行后,文本框中显示的值是(B)A)2 B)3 C)4 D)58. 编写如下的事件过程:Private Sub Command1_Click()c = 1234c1 = Trim (Str(c))For i = 1 To 4Print ________NextEnd Sub运行程序后,窗体上显示如下11 21 2 31 2 3 4则应该在________处填写的表达式是(B)A)Right (c1,n) B)Left (c1,i) C)Mid (c1,n,1) D)Mid (c1,n,n)9. 编写如下的事件过程:Private Sub Command1_Click()n = Val (Text1.text)For i = 2 To nFor j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是:(C)A)输出n以内的奇数B)输出n以内的偶数C)输出n以内的素数D)输出n以内能被j整数的数10. 编写如下的事件过程:For i = 1 To 3For j = 5 to 1 Step -1Print i*jNext j,i则语句Print i*j 的执行次数是(A)A)15 B)16 C)17 D)1811.以下程序段输出结果为(B)x = 1y = 4Do Until y > 4x = x * yy = y + 1LoopPrint xA)1 B)4 C)8 D)2012.执行下面的程序段后,x的值为(A)x = 5For i = 1 To 20 Step 2x = x + i\5Next iA)21 B)22 C)23 D)2413. 编写如下的事件过程:Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后,输出结果是(B)A)7 B)15 C)157 D)538 14.有如下的程序段:For i = 1 To 3For j = 1 To ia = a + 1Next jNext i执行上面程序后,a的值为(C)A)3 B)9 C)6 D)2115.有如下的程序段:n = 0For i = 1 To 3For j = 1 To iFor k = j To 3n = n + 1Next kNext jNext i执行上面程序段后,n的值为:(B)A)3 B)14 C)9 D)2116.阅读程序Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox (“请输入1个整数”)y = Val (y)If y Mod 5 = 0 Thena = a + yx = yElsea = a + xEnd IfNext iPrint aEnd Sub程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为(A)A)100 B)50 C)120 D)701.如有以下程序代码:Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后,在窗体上输出的内容为(C)A)89 B)99 C)23 D)772.下面语句定义的数组元素个数中(C)Dim arr(3 To 5, -2 To 2)A)20 B)12 C)15 D)243. 下面语句定义的数组元素个数中(D)Dim a(-3 To 4, 3 To 6)A)18 B)28 C)21 D)324. 如有以下程序代码:Private Sub Command1_Click()Dim arr1(10), arr2(10)For i = 1 To 10arr1(i) = 3 * iarr2(i) = arr1(i) * 3Next iText1.Text = Str(arr2(i / 2 - 0.1))End Sub程序运行后,在文本框显示的是(B)A)36 B)45 C)54 D)635. 如有以下程序代码:Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 1 To 4s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行程序后,在窗体上输出的内容为(D)A)1234 B)12 C)34 D)43216. 如有以下程序代码:Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub运行程序后,在窗体上输出的内容为(A)A)12 B)13 C)14 D)157.假设通过复制、粘贴建立了一个命令按扭数组Command1,则以下说法错误的是(D)A)数组中每个命令按扭的名称(Name属性)均为Command1B)数组中每个命令按扭的大小都一样C)数组中每个命令按扭可以使用同一个时间过程D)用名称Command1可以访问数组中每个命令按扭8. 如有以下程序代码:Private Sub Command1_Click()Dim arr1(10), arr2(10) As Integern = 3For i = 1 To 5arr1(i) = iarr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub运行程序后,在窗体上输出的内容为(A)A)11 3 B)3 11 C)13 3 D)3 139.如有以下程序代码:Private Sub Command1_Click()Dim arr(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3If j = i Or j = 3 - i + 1 Thenarr(i, j) = 1Elsearr(i, j) = 0End IfNext jNext iPrint arr(1, 1) + arr(2, 2) + arr(3, 3)End Sub运行程序后,在窗体上输出的内容为(D)A)0 B)1 C)2 D)310.如有以下程序代码:Option Base 1Dim a() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim a(3, 2)For i = 1 To 3For j = 1 To 2a(i, j) = i * jNext jNext iReDim Preserve a(3, 4)For i = 3 To 4a(3, i) = i + 5Next iPrint a(3, 2); a(3, 4)End Sub运行程序后,在窗体上输出的内容为(B)A)0 0 B)6 9 C)7 12 D)8 1311.在窗体上话3个单选按扭,组成1个名为chkOption的控件数组。
vb循环结构练习题
![vb循环结构练习题](https://img.taocdn.com/s3/m/3fdbc470336c1eb91a375ddf.png)
1.打印有规律图形Private Sub Form_Click()For i = 1 To 9Print Tab(20 - i); String(2 * i - 1, Trim(Str(i))) Next iPrint Tab(10); String(19, Right(Str(i), 1)) End Sub2.近似计算pi的值;Private Sub Command1_Click()n = Text1pi = 2For i = 1 To na = (2 * i) * (2 * i) / ((2 * i - 1) * (2 * i + 1)) pi = pi * aNext iText2 = piEnd Sub3.显示图形Private Sub Picture1_Click()Dim se As StringFor i = 1 To 6s = 0For j = 1 To is = 10 * s + jIf i Mod 2 = 0 Thense = "-" & sPicture1.Print Tab(j * 9 + 1); se; Else: se = sPicture1.Print Tab((j) * 9 + 2); se; End IfNext jPicture1.PrintNext iEnd Sub4.显示水仙花数,三位数的Private Sub Form_Click()For s = 100 To 999a = s \ 100b = (s - 100 * a) \ 10c = s - 100 * a - 10 * bIf s = a * a * a + b * b * b + c * c * c Then Print sEnd IfNext sEnd Sub5.求sn=a+aa+aaa……+aaaa(n个a)a是1到9的随机数,n是5到10的随机数Private Sub Command1_Click()m = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)temp = 0s = 0For i = 1 To ntemp = temp * 10 + ms = s + tempNext iPrint sPrint mPrint nEnd Sub6.规范文字句子开头大写,其他都小写,句子结束符号位“.”“!”“?”Option ExplicitPrivate Sub Command1_Click()Dim T As String, i, S As String, zf As StringDim OutPut As StringT = "."zf = Trim(Text1.Text)For i = 1 To Len(zf)S = Mid(zf, i, 1)OutPut = OutPut & IIf(InStr("?.!?。
vb练习题及答案
![vb练习题及答案](https://img.taocdn.com/s3/m/1ac58f752bf90242a8956bec0975f46526d3a775.png)
vb练习题及答案VB练习题及答案一、选择题1. 在VB中,以下哪个是正确的数据类型?A. IntegerB. IntC. Both A and BD. None of the above答案:C2. VB中,哪个关键字用于声明变量?A. DimB. DeclareC. DefineD. Set答案:A3. 在VB中,以下哪个是正确的循环结构?A. ForB. WhileC. RepeatD. All of the above答案:D4. VB中,以下哪个是正确的条件语句?A. IfB. SwitchC. CaseD. A and B only答案:A5. 在VB中,以下哪个是正确的数组声明方式?A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案:A二、填空题1. 在VB中,使用________关键字可以定义一个类。
答案:Class2. VB中,使用________方法可以为控件添加事件处理程序。
答案:AddHandler3. 在VB中,________方法用于结束程序的执行。
答案:End4. VB中,________属性用于获取或设置一个控件的文本。
答案:Text5. 在VB中,________方法用于打开一个文件。
答案:Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案:在VB中,事件是用户或程序触发的特定动作,如按钮点击或键盘敲击。
事件处理程序是一个过程,当特定的事件发生时,会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案:在VB中,For循环用于重复执行一段代码直到满足特定条件。
基本语法是:```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承,并给出一个简单的示例。
VB选择结构 习题
![VB选择结构 习题](https://img.taocdn.com/s3/m/dd87cae20975f46527d3e124.png)
• 一、选择题 • 1、VB提供了结构化程序设计的三种基本结构,三种基本结构是() • A.递归结构、选择结构、循环结构 • B.过程结构、输入/输出结构、转向结构 • C.顺序结构、选择结构、循环结构 • D.选择结构、过程结构、顺序结构 • 2、数学表达式1<x<=2或10<=x<15,在VB中应写成条件表达式() • A.X>1 AND X<=2 OR X>=10 AND X<15 • B.X>1 OR X<=2 OR X>=10 OR X<15 • C.X>1 OR X<=2 AND X>=10 OR X<15 • D.X>1 AND X<=2 AND X>=10 AND X<15 • 3、选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的
间隔,可通过()属性来设置
• A. interval B.value
• C.enabled D.text
• 二、填空题 • 1、在条件语句中,条件表达式分为两类: ____
和_______。条件表达式的结果为布尔值:______ 或______ • 2、条件判断结构可以使用_____语句、______ 语句和_____语句 • 3、在select case 语句中,当不止一个case后面 的取值与表达式的值相匹配时,只执行第_____ 个与表达式匹配的case后面的语句序列 • 4、单选按钮的enabled属性为false 时,表示 _____复选框的value属性取值为0时,表达_____, 为1时表示______,为2时表示______ • 5、设A=5,B=6,C=7,D=8,表达式3>2*B OR A=C AND B>C OR C>D的值为__________
VB-选择题及答案
![VB-选择题及答案](https://img.taocdn.com/s3/m/6e013764f5335a8102d22035.png)
一、分支结构(一)选择1、下列关于块if语句的叙述中,正确的是。
A.Then后面的语句组不能省略B.Else后面的语句不能省略C.Then和Else后面的语句组都不能省略D.Then和Else后面的语句组都可以省略2、下列Case语句中表示错误的是。
A.Case 0 To 10 B.Case Is>10C.Case Is>10 And Is<50D.Case 3,5,8,123、下列Case语句中表示错误的是。
A.Case 2,4,6,8,10 B.Case 10 To 1C.Case Is<10 D.Case "a" To "z"4、下列关于块If…Then…ElseIf语句结构的叙述中,正确的是。
A.可以有多个elseif语句B.可以有多个Else语句C.整个结构必须以一个End If语句结束D.Elseif语句、Else语句都是可选的5、关于下列所示的选择结构中,叙述正确的是。
If <条件1> Then[<语句组1>]ElseIf <条件2>[<语句组2>]ElseIf <条件3>[<语句组3>]End IfA.如果条件设置不当,则所有分支都可能被执行到B.如果条件设置不当,则所有分支都可能不被执行到C.无论条件怎样设置,都至少有一个分支被执行到D.无论条件怎样设置,都有且只有一个分支被执行到6、关于下列所示的选择结构中,叙述正确的是。
If <条件1> Then[<语句组1>]Else[<语句组2>]End IfA.如果条件设置不当,则所有分支都可能被执行到B.如果条件设置不当,则所有分支都可能不被执行到C.无论条件怎样设置,所有分支都会被执行到D.无论条件怎样设置,都有且只有一个分支被执行到7、下列程序段用于求x的绝对值,并存储在y中,正确的是。
vb考试试题及答案
![vb考试试题及答案](https://img.taocdn.com/s3/m/7533f2ba760bf78a6529647d27284b73f2423608.png)
vb考试试题及答案VB考试试题及答案VB(Visual Basic)是一种面向对象的编程语言,广泛应用于Windows平台的应用程序开发中。
对于学习VB的人来说,参加考试是一种检验自己掌握程度的方式。
下面将为大家提供一些VB考试试题及答案,希望对大家的学习有所帮助。
一、选择题1. VB是以下哪种类型的编程语言?A. 面向过程编程语言B. 面向对象编程语言C. 函数式编程语言D. 混合编程语言答案:B. 面向对象编程语言2. VB中的变量声明关键字是?A. DimB. VarC. IntD. Public答案:A. Dim3. VB中的循环结构中,以下哪个关键字用于跳出当前循环?A. ExitB. BreakC. ContinueD. End答案:A. Exit4. VB中的条件语句中,以下哪个关键字用于多个条件的判断?A. IfB. ElseC. ElseIfD. Switch答案:C. ElseIf5. VB中的函数定义关键字是?A. SubB. FunctionC. MethodD. Procedure答案:B. Function二、填空题1. VB中的注释符是()。
答案:'2. VB中的数组下标是从()开始的。
答案:03. VB中的字符串连接符是()。
答案:&4. VB中的逻辑与运算符是()。
答案:And5. VB中的模块化编程可以通过()来实现。
答案:函数和子程序三、简答题1. VB中的控件是什么?请举例说明。
答:VB中的控件是用于与用户进行交互的可视化组件。
例如,按钮(Button)、文本框(TextBox)、标签(Label)等都是VB中常见的控件。
通过控件,我们可以实现用户输入、数据展示、按钮点击等功能。
2. VB中的事件是什么?请举例说明。
答:VB中的事件是指在特定条件下发生的操作或响应。
例如,按钮的点击事件(Click Event)是指当用户点击按钮时触发的事件,我们可以在该事件中编写相应的代码来实现按钮的功能。
VB循环程序例题100道附答案(精编文档).doc
![VB循环程序例题100道附答案(精编文档).doc](https://img.taocdn.com/s3/m/1869842733687e21af45a982.png)
【最新整理,下载后即可编辑】VB循环程序例题附答案1.素数1. [100,999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字;⑵该数是素数; 求有多少个这样的数?15n = 0For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2. [300,800]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字;⑵该数是素数;求满足上述条件的最大的三位十进制数。
761 For i = 300 To 800a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3. 除1和它本身外,不能被其它整数整除的正整数称为素数(注:1不是素数,2是素数)。
若两素数之差为2 ,则称两素数为双胞胎数,问[31,601]之间有多少对双胞胎数。
22n = 0For i = 31 To 601 - 2x = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4. 数学家哥德巴赫曾猜测:任何大于6的偶数都可以分解成两个素数(素数对)的和。
VB第6章循环结构
![VB第6章循环结构](https://img.taocdn.com/s3/m/66b7a31eb7360b4c2e3f6446.png)
松山区职教中心2010-2011学年度上学期计算机专业第六章循环结构VB试题班级:________考号:________姓名:________总分:_____第一部分:vb(184分)一、单项选择1、某人设计了如下程序用来计算并输出7!(7的阶乘)private sub command1_click( )t=0for k = 7 to 2 step -1t=t*knextprint tend sub执行程序时,发现是错误的,下面修改方案中能够得到正确结构的是( )(2分)A、把"t=0"改为"t=1"B、把"for k = 7 to 2 step -1"改为"for k = 7 to 1 step -1"C、把"for k =7 to 2 step -1"改为"for k=1 to 7"D、把"next"改为"next k"2、窗体上有一个名称为List的列表框,其中已经输入了若干个项目,分别为“北京、上海、南京、杭州、广州”,还有2个文本框,名称分别为Text 1 、text 2、 1个名称为Command1 的命令按钮,并有一下程序:Priveate sub command1 _ Click()Dim str As string, s As String ,K As IntegerS=Text1str =""for k= List.Listcount -1 to 0 step-1if InStr (Lsit .list (k), s )>0 thenstr =str&lList1.List (k)&“ ”End ifNext kif str =" " thentext2="没有配备的项目"ElseText2 = strEnd ifEnd Sub程序运行时,在text1.中输入”京”,单击命令按钮,则在text2 中显示的内容 ( )(2分)A、京B、北京南京C、南京北京D、没有匹配的项目3、在窗体上画一个名称为LIST1的列表框,一个名称为LABEL1的标签,列表框中显示若干城市的名称,当单击列表框中的某个城市名时,在标签中显示选中城市的名称。
vb for循环练习题
![vb for循环练习题](https://img.taocdn.com/s3/m/21b4499281eb6294dd88d0d233d4b14e85243eb6.png)
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循环结构选择题共24页
![vb循环结构选择题共24页](https://img.taocdn.com/s3/m/a3ca9d3f16fc700aba68fc2b.png)
一、选择题1、无条件转移GoTo语句后面是(A)A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头,后跟(A)A、冒号B、分号C、逗号D、空格3、无条件转移GoTo语句后面的行号或标号在同一过程中(A)A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为(A)A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为(A)时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与(A)匹配使用,不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为(A)A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为(A)A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为(B)A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是(B)A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时,条件为(B)执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时,条件为(A)执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时,条件为(A)终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时,条件为(B)终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中(C)用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制(D)A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为(A)A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为(A)A、负数C、正整数D、正数19、For…Next循环结构中next后的循环变量(A)A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是(A)A、ToB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是(A)A、ToB、InC、gotoD、private22、执行下面的程序段后,s的值为(C)Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间(包含100、200)的随机数,打印其中为5的倍数的数将程序补充完整(A)Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If()ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=024、设有如下程序:Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后,单击窗体,则在窗体上显示的是(A)A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1,然后编写如下事件过程:Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n!的程序是(C)A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<nPrint xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<nPrint xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1,标签Label1然后编写如下事件过程:Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1,然后编写如下事件过程:Private sub command1_click()For i=1 to 4For j =0 to iPrint chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1,text2的文本框和一个名称为command1的命令按钮,然后编写如下事件过程:Private sub command1_click()Dim x as integer,n as integerX=1 :n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后,单击命令按钮,在文本框中显示( B )A、25B、18C、36D、3530、下面程序运行时,内层循环的循环总次数是(A)For m = 1 To 3For n = 0 To m - 1Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer,定义数组的元素个数是(D)A、6B、3C、0D、732、执行下面的程序段后,X的值为(C)X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1,则下列语句中循环体的执行次数是(D )For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是(D )A、do while …loop循环和do…loop until循环至少都执行一次B、do while …loop循环和do…loop until循环可能都不执行C、do while …loop循环至少执行一次,do…loop until循环可能不执行D、do while …loop循环可能不执行,do…loop until循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后,单击命令按钮,则在窗体上显示的内容是(A )A、14B、15C、16D、1736、设有如下程序:Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后,单击窗体,则在窗体上显示的内容是( B )A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next i运行上面的程序,单击命令按钮,则在窗体上显示的内容是(B )A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后,如果单击命令按钮,窗体中显示的内容是(B )A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量,下列程序段的输出结果为(C)Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框(其中Name属性为Text1),然后编写如下代码:Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = Sum上述程序运行后,单击窗体,则运行的结果(A )A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮,然后编写如下代码:Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入1<CR>2<CR>3<CR>4<CR>5<CR>-1<CR>,则输出结果为(A)A、8B、9C、14D、1542、设有如下程序:Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后,单击窗体,则在窗体上显示的是(A )A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮,然后编写如下代码:Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后,如果单击命令按钮,则窗体上显示的内容是(A )A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮,名称为Command1。
vb循环结构选择题
![vb循环结构选择题](https://img.taocdn.com/s3/m/09aa800d2bf90242a8956bec0975f46527d3a794.png)
vb循环结构选择题vb循环结构选择题一、选择题1、无条件转移GoT o语句后面是(A)A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头,后跟(A)A、冒号B、分号C、逗号D、空格3、无条件转移GoT o语句后面的行号或标号在同一过程中(A)A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为(A)A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为(A)时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与(A)匹配使用,不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为(A)A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为(A)A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为(B)A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是(B)A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时,条件为(B)执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时,条件为(A)执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时,条件为(A)终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时,条件为(B)终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中(C)用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制(D)A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为(A)A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为(A)A、负数C、正整数D、正数19、For…Next循环结构中next后的循环变量(A)A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是(A)A、T oB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是(A)A、T oB、InC、gotoD、private22、执行下面的程序段后,s的值为(C)Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间(包含100、200)的随机数,打印其中为5的倍数的数将程序补充完整(A)Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If()ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=024、设有如下程序:Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后,单击窗体,则在窗体上显示的是(A)A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1,然后编写如下事件过程:Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n!的程序是(C)A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<n< p="">Print xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<n< p="">Print xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1,标签Label1然后编写如下事件过程:Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1,然后编写如下事件过程:Private sub command1_click()For i=1 to 4For j =0 to iPrint chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1,text2的文本框和一个名称为command1的命令按钮,然后编写如下事件过程:Private sub command1_click()Dim x as integer,n as integerX=1 :n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后,单击命令按钮,在文本框中显示( B )A、25B、18C、36D、3530、下面程序运行时,内层循环的循环总次数是(A)For m = 1 To 3For n = 0 To m - 1Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer,定义数组的元素个数是(D)A、6B、3C、0D、732、执行下面的程序段后,X的值为(C)X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1,则下列语句中循环体的执行次数是( D )For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是( D )A、do while …loop 循环和do…loop until循环至少都执行一次B、do while …loop循环和do…loop until循环可能都不执行C、do while …loop循环至少执行一次,do…loop until循环可能不执行D、do while …loop循环可能不执行,do…loopuntil循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后,单击命令按钮,则在窗体上显示的内容是( A )A、14B、15C、16D、1736、设有如下程序:Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后,单击窗体,则在窗体上显示的内容是( B )A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序,单击命令按钮,则在窗体上显示的内容是( B )A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后,如果单击命令按钮,窗体中显示的内容是( B )A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量,下列程序段的输出结果为(C)Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框(其中Name属性为Text1),然后编写如下代码:Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = SumEnd Sub上述程序运行后,单击窗体,则运行的结果( A )A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮,然后编写如下代码:Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入12345-1,则输出结果为(A)A、8B、9C、14D、1542、设有如下程序:Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后,单击窗体,则在窗体上显示的是( A )A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮,然后编写如下代码:Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后,如果单击命令按钮,则窗体上显示的内容是( A )A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮,名称为Command1。
VB循环结构测试题及答案
![VB循环结构测试题及答案](https://img.taocdn.com/s3/m/8bc7222ba417866fb94a8e4d.png)
V B循环结构测试题及答案内部编号:(YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128)循环结构测试题(四)一:选择题1:以下()是正确的for….next结构。
(A)for x=1 to step 10 (B) for x=3 to –3 step -3….. …..next x next x(C ) for x=1 to 10 (D) for x=3 to step 3re: …. ……Next x next yIf I=10 then goto re2:下列循环语句能正常结束循环的是()(A)I=5 (B) I=1do doI=I+1 I=I+2Loop until I<0 loop until I=10(C) I=10 (D) I=6do doI=I-1 I=I-2Loop until I<0 loop until I=13:下面程序段的运行结果为()for I=3 to 1 step –1print spc(5-I);for j=1 to 2*I-1 print “*”; next j print next I4下列程序在文本框输入“ABCD ”四个字符时,窗体上显示的是( ) private sub text1_change( ) print ; end sub(A) ABCD (B) ( C ) AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的( ) 二:填空题1:要使下列For 语句循环执行20次,循环变量的初值应当是: for k=( ① ) to –5 step –2 2:下面程序段显示( ② )个“*”。
For I=1 to 5For j=2 to IPrint “*”; Next j Next I* * * * (B) * * * * * * * * (C) * * * * * * * *(D) * * * * ** * *A BCD(D) AAB ABCABCD(A )for I=1 to 4n=1 for j=1 to (B ) for I=1 to 4for j=1 toI(C) N=1for j=1 to 4 (D)N=1 J=1 Do whilej<=430for j=1 to 12 step 340for k=6 to 2 step –241print j,k42next k43next j4: 以下程序运行后,si,sj,I,j,k的结果分别是(⑤),(⑥),(⑦),(⑧),(⑨),(⑽)private sub command1_click( )for I=1 to 2for j=1 to Isk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next Iprint si,sj,sk,I,j,kend sub5:下面程序运行后输出的结果是(⑾)private sub command1_click()print tab(5*I+1);”2”+I;”2”&I;next Iend sub6:下面程序运行后输出的结果是(⑿) private sub command1_click()a$=”*”;b$=”$”for I=2 to 4if I mod 2=0 thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end ifprint x$;next Iend sub7: 执行下面程序,打印结果是(⒀)option explicitprivate sub form_click( )dim I as integer,j as integerj=10for I=1 to j step 2I=I+1Next IPrint I,jEnd sub8:输入任意长度的字符串,要求将字符顺序倒置,例如:将输入“ABCDEFG”变换成“GFEDCBA”private sub command1_click()dim a$,I%,c$a=inputbox(“输入字符串”)n=( ⒁ )for I =1 to ( ⒂)c=mid(a,I,1)mid(a,I,1)=( ⒃ )( ⒄ )=cnext Iprint aend sub9:找出被3,5,7除,余数为1的最小的5个正整数。
VB习题集(1)(1)
![VB习题集(1)(1)](https://img.taocdn.com/s3/m/134b907083c4bb4cf6ecd12c.png)
一、单项选择题1、以下说法错误的是_____C____。
A. Visual Basic是一种可视化编程工具B. Visual Basic是结构化程序设计语言C. Visual Basic是面向过程的编程语言D. Visual Basic采用事件驱动编程机制2、窗体和控件的描述及其属性的设置保存在_____B____文件中。
A. 工程B. 窗体C. 窗体二进制数据D. 标准模块3、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序,以下正确的操作是____B_____。
A. 只保存窗体模块文件B. 分别保存窗体模块、标准模块和工程文件C. 只保存窗体模块和标准模块文件D. 只保存工程文件4、以下叙述中错误的是____C_____。
A.在Visual Basic的窗体中,一个命令按钮是一个对象B.事件是能够被对象识别的状态变化或动作C. 事件都是由用户的键盘操作或鼠标操作触发的D. 不同的对象可以具有相同的方法5、以下叙述中,错误的是____C_____。
A. 一个Visual Basic应用程序可以含有多个标准模块文件B. 一个Visual Basic工程可以含有多个窗体文件C. 标准模块文件可以属于某个指定的窗体文件D. 标准模块文件的扩展名为.bas6、Visual Basic的窗体设计器主要是用来____A_____。
A. 建立用户界面B. 添加图形、图像、数据等控件C. 编写程序源代码D. 设计窗体的布局7、Visual Basic是一种结构化高级程序设计语言,它采用的是_____C____驱动方式。
A.键盘B.鼠标C.事件D.函数8、Visual Basic是一种面向对象的程序设计语言,构成对象的三要素是____A_____。
A.属性、事件、方法B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块9、Visual Basic主要用于_____D____。
VB循环结构测试题及答案
![VB循环结构测试题及答案](https://img.taocdn.com/s3/m/31e2e85c178884868762caaedd3383c4ba4cb470.png)
VB循环结构测试题及答案循环结构测试题(四)一:选择题1以下()是正确的for….nex结构(A)for x=1 to step 10(B)for x=3 to -3 step-3next x(C ) for x=1 to 10 re: … .Next xIf I=10 then goto re2:下列循环语句能正常结束循环的是( ( A)I=5 doI=I+1Loop until I<0(C)I=10doI=I-1Loop until I<03:下面程序段的运行结果为()for I=3 to 1 step -1print spc(5-I);next x(D) for x=3 to step3next y)(B) I=1doI=I+2loop until I=10(D) I=6doI=I-2loop untilfor j=1 to 2*1-1 print “ *' next j print n ext I___________________ ll _________________________________________________4下列程序在文本框输入B)“* * ABCD ”四个字符时,窗体上显示的是**(* *)* * ** *_* * ** * * * * *private sub text1_cha nge()* *print text1.text; end sub2:下面程序段显示=i(②)个“ * ”。
for j=1 to 4 For I=1 to n 5n* pri nt nFor n =2j to I Print Next j Next I3:下列第40句共执行了(③)次,第41句共执行(④ )次(A) ABCD (B)(D) A(C )AABABCABCDAB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的CABC(A)二:填空题1:要使下列 for I=1 to 4 n=1for j=1 to I n=n*jFO F X语句循环执行pri nt n20次,循环变量for k=(next i① )to -5 step —for I=1 to 4for j=1 to I n=1 n=n*j的初值应当是:print nn ext i(B)ABCD(D)N=1 J=1Do while j<=4n=n*j pri nt n j=j+1loop30 for j=1 to 12 step 340for k=6 to 2 step —41 print j,k42 next k43 next j4:以下程序运行后,si,sj,l,j,k的结果分别是(⑤),(⑥),(⑦),(⑧),(⑨ ),(⑽)private sub command1_click()for l=1 to 2for j=1 to lsk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next lprint si,sj,sk,l,j,kend sub5:下面程序运行后输出的结果是((11))private sub command1_click()for l=0 to 3print tab(5*I+1); ”2” +I; ”2”&Inext I end sub6:下面程序运行后输出的结果是( (12))private sub command1_click() a$=”*”;b$= ”$”for I=2 to 4 if I mod 2=0 thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end if print x$;next Iend sub7:执行下面程序,打印结果是((13)) option explicit private sub form_click( ) dim I as integer,j as integerj=10for I=1 to j step 2I=I+1J=j-INext IPrint I,jEnd sub8:输入任意长度的字符串,要求将字符顺序倒置,例如:将输入ABCDEFG ”变换成“ GFEDCBA”private sub command1_click()dim a$,I%,c$a=inputbox( 输“入字符串”)n=( (14) )for I =1 to ( (15))c=mid(a,I,1)mid(a,l,1)=( (16))((17) )=cnext Iprint aend sub9:找出被3,5,7 除,余数为 1 的最小的5个正整数。
(完整版)VB循环结构练习题
![(完整版)VB循环结构练习题](https://img.taocdn.com/s3/m/92da26bf31126edb6e1a105a.png)
VB循环结构练习题一、分析程序的运行结果(每题2分,共60分)1、以下循环的执行次数是_____。
K=0Do While k<=10k=k+1Loop2、下列程序段的执行后输出的结果为_____。
I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print "A=";A3、下列程序的执行结果是____。
T = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t : m = m + 2Loop While m <= 9Print Sum4、下列程序段的执行时,共循环____次。
For a=0 To 1For b=1 To 2For c=1 To 3I=I+1Next c Next bnext a5、下列程序段的运行结果是:Sub sele()Dim n as IntegerI=21:n=3Do While I>nI=I-nLoopPrint IEnd Sub打印结果_____。
6、执行下面的程序段后,s的值为____。
S=5For I=2.6 To 4.9 Step 2s=s+1Next I7、下列程序段的执行后输出的结果为_______。
K = 1For I = 1 To 3A = I ^ I ^ KNext IPrint A8、下列程序的执行结果是_____。
M1 = 1:m2 = 1Do While m2<>6m1 = m1*m2 : m2 = m2+1LoopPrint m19、下列程序的执行结果是_____。
Private Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub10、以下程序用来输出1到100所有奇数的和,请补充完该程序。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
一、VB 基本知识及选择、循环结构习题一、基本概念题(1) 说明下列哪些是Visual Basic 合法的直接常量,并分别指出它们的类型。
%100 1E1 123D3 123,456 0100“ASDF” “” #2004/10/7# 100# π&O78 &H123 True T -1123! #(2)下列数据哪些是变量,哪些是常量是什么类型的常量Name “name” False ff “11/16/99” cj“120” n #11/12/2004#(3) 下列符号中,哪些可以是Visual Basic 的合法变量名A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π(4)把下列数学表达式写成Visual Basic 表达式:(1)5||z y x ++ (2)6)1(xy +(3)xy y x 310+ (4)a acb b 242-+-(5)3211111r r r ++ (6)110ln 45sin 10++++y x e(5)写出下列表达式的值:(1)123 + 23 Mod 10 \ 7 + Asc("A")(2)Int * 100 + / 100(3)#11/22/2004# - 10(4)"ZXY" & 123 & "abc"(6)设a=7,b=3,c=4,求下列表达式的值:(1)a + 3 * c (2)a ^ 2 / 4(3)a / 2 + 3 \ 2 (4)a Mod 3 + b ^ 3 / c \ 5(7)写出下列函数的值:(1)Int (2)Fix(3)Sqr(Sqr(81)) (4)Len("Visual Basic 程序设计")(5)Int(Abs(99 - 100) / 2) (6)Sgn(7 * 3 + 2)(7)LCase("Hellow VB!") (8)Mid("Hellow VB!", 4, 3)(9)Left("Hellow VB!", 3) (10)Val("16个加23个")(11)Str (12)UCase("Visual Basic")二、 选择题(1)可以同时删除字符串前导和尾部空格的函数是 。
A. LtrimB. RtrimC. TrimD. Mid(2)函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。
A. (0,1)B. (0,9)C. (1,10)D. (1,9)(3)数学式子sin25º写成Visual Basic 表达式是 。
B. Sin(25)C. Sin(25º)D. Sin(25*180)(4)表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。
A. 14B. 4C. 20D. 2(5)数学关系式103<≤x 表示成正确的VB 表达式为 。
A. 3<= x <10B. x >= 3 And x<10C. x>=3 Or x<10D. 3<= x And <10(6)已知A=””,则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是。
A. 123456B. 123445C. 8D. 6(7)表达式Len("123程序设计ABC")的值是。
A. 10B. 14C. 20D. 17(8)下面正确的赋值语句是。
A. x+y=30B. y=3π*r*rC. y=x+30D. 3y=x+1(9)为了给x,y,z三个变量赋初值1,正确的赋值语句是。
A. x=1: y=1: z=1B. x=1, y=1, z=1C. x=y=z=1D. x,y,z=1(10)赋值语句g = 123 + Mid("123456", 3, 2)执行后,变量g中的值是。
A. “12334”B. 123C. 12334D. 157(11)表达式Not(a+b=c-d)是_______。
A. 逻辑表达式B. 字符表达式C. 算术表达式D. 关系表达式(12)如果x是一个正实数,对x的第3位小数四舍五入的表达式是。
A. * Int(x +B. * Int(100 * (x + )C. * Int(100 * (x + )D. * Int(x +(13)下列哪组语句可以将变量a,b的值互换。
A. a=b: b=aB. a=a+b: b=a-b: a=a-bC. a=c: c=b: b=aD. a=(a+b)/2: b=(a-b)/2(14)下列四个字符串进行比较,最小的是。
A. “9977”B. “B123”C. “Basic”D. “DATA”(15)下列逻辑表达式中,其值为True的是。
A. “b” > “ABC”B. “THAT” > “THE”C. 9 > “H”D. “A” > “a”(16)表达式a+b=c是。
A. 赋值表达式B. 字符表达式C. 算术表达式D. 关系表达式(17)在下列表达式中,非法的是。
A. a=b+cB. a>b+cC. a≠b>cD. a<b+c(18)语句Print Format (“HELLO”, “<”) 的输出结果是。
A. HELLOB. helloC. HeD. he(19)MsgBox函数的返回值的类型是。
A. 整数B. 字符串C. 逻辑值D. 日期(20)用语句Dim A(-3 to 5) As Long定义的数组元素个数是。
A. 7B. 8C. 9三、判断题(1) 中&H12是8进制的数值常数。
(2) 设A="123",B=123,则A+B的结果为246,A-B的结果为0。
(3) 已知A$="",则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值是:876554。
(4) Rnd函数产生的是(0,1)之间不包括0、1的随机小数。
(5) 表示x是5的倍数或是9的倍数的逻辑表达式为:x Mod 5=0 OR x Mod 9=0。
(6) Len("等级考试")和LenB("等级考试")的结果相同。
(7) 中字符串常量是用双引号或单引号括起来的字符串。
(8) Print InStr("Visual Basic", "I")的结果为0。
(9) 固定数组中的数组元素个数一旦定义好后,在程序运行过程中不再会发生变化,并且数组中数组元素的值也不会变化。
(10)数组元素的下标可以是常数、变量或表达式。
(11)在For…Next循环中,其中Step步长可以是正数,也可以是负数。
(12)在Do…Loop[While|Until]循环中,While关键字或Until关键字必须选择其中之一。
(13)在For...Next循环中,Exit For子句是可选项,它可以放置在循环体语句中的任何位置。
(14)动态数组在定义时已被分配存储空间。
(15) 在中,Option Base语句的参数只能是0或1。
四、程序阅读题(2)执行下面程序段后,变量x的值为。
Dim x As Integerx = 5For i = 1 To 20 Step 3x = x + i \ 5Next i(3)执行下面程序后,输出的结果是。
Private Sub Form_Click()Dim x As IntegerFor i = 1 To 3For j = 1 To iFor k = j To 3x = x + 1Next kNext jNext iPrint xEnd Sub(4)执行下面程序后,输出的结果是。
Private Sub Form_Click()Dim x As Integerx = 0Do While x < 50x = (x + 2) * (x + 3)n = n + 1LoopPrint "x="; x; "n="; nEnd Sub(5)执行下面程序后,输出的结果是。
Private Sub Form_Click()Dim x As Integer, a As Integerx = 0For j = 1 To 5a = a + jNext jx = jPrint x, aEnd Sub(6)以下程序的循环次数是。
For j = 8 To 35 Step 3Print j;Next j(7)执行下面程序输入4后,程序输出的结果是。
Private Sub Form_Click()x = InputBox(x)If x ^ 2 < 15 Then y = 1 / xIf x ^ 2 > 15 Then y = x ^ 2 + 1Print yEnd Sub(8)执行下面程序后,输出的结果是。
Private Sub Form_Click()Dim sum As Integersum% = 19sum =Print sum%; sumEnd Sub(9)执行下面程序后,输出的结果是。
Private Sub Form_Click()a = 100Dos = s + aa = a + 1Loop Until a > 100Print aEnd Sub(10) 执行下面程序后,输出的结果是。
Private Sub Form_Click()a = "ABCD"b = "efgh"c = LCase(a)d = UCase(b)Print c + dEnd Sub(11)执行下面程序后,输出的结果是。
Private Sub Form_Click()x = 2: y = 4: z = 6x = y: y = z: z = xPrint x; y; zEnd Sub(12)执行下面程序后,输出的结果是。
Private Sub Form_Click()Dim count As Integercount = 0While count < 20count = count + 1WendPrint countEnd Sub(13)执行下面程序后,输出的结果是。
Private Sub Form_Click()a = "*":b = "$"For k = 1 To 3x = Str(Len(a) + k) & bPrint x;Next kEnd Sub(14)执行下面程序后,输出的结果是。