VB基本知识及选择、循环结构习题

合集下载

VB笔试知识题理解练习

第一章环境和程序设计初步一.选择题1.在Visual 的集成开发的环境中，下面不属于该环境编程语言的是（C）。

A.V B.C++C. PascalD. J#2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D）。

A.工具箱窗口B.属性窗口C.解决方案管理器窗口D.窗体窗口3.在中，在窗体上显示控件的文本，用（A）属性设置。

A. T extB. NameC. EnabledD. Image4.不论何种控件，共同具有的属性是( B)。

A. T extB. Name C．ForeColor D．Text5．对于窗体，可改变窗体的边框性质的属性是（B）。

A.MaxButtonB. FormBorderStyleC. NameD. Left6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（A）属性进行设置。

A．BackColor B. BorderStyle C．ForeColor D.BackStyle7．若要使命令按钮不可操作，要对（A）属性进行设置。

A. EnabledB.VisibleC. BackColorD. Text8.要使文本框中的文字不能被修改，应对（D）属性进行设置。

A. LockedB. VisibleC. EnabledD. ReadOnly9.要使当前Form1 窗体的标题栏显示“欢迎使用”，以下（B）语句是正确的。

A.Form1.T ext=“欢迎使用V”B. Me. Text=“欢迎使用”=“欢迎使用”D. Name=“欢迎使用”10.当运行程序时，系统自动执行启动窗体的（A）事件过程。

A. LoadB. ClickC. UnLoadD. GotFocus11.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（B）。

A.文本框没有内容B.框的MulitLine属性为FalseC.框的MulitLine属性为TrueD.本框的Locked属性True12．要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。

vb基础知识试题及答案

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三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。

输入小明买电池的数量，输出小明应付的钱数。

（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。

（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。

2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。

编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。

3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。

编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。

当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。

4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。

VB循环结构上机题

循环结构及常见算法
作业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第四章选择结构和循环结构编程题

第四章编程题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循环结构练习题

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循环结构练习题一、分析程序的运行结果（每题2分，共60分）1>以下循环的执行次数是______ OK=0Do While k<=10k=k+1Loop2、 _____________________________________ 下列程序段的执行后输出的结果为____________________ ol=4:A=5Do1=1+1 :A=A+2Loop Until l>=7Print "A=";A3、__________________________ 下列程序的执行结果是oT = 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 31=1+1 Next cNext bnext a5、下列程序段的运行结果是：Sub sele()Dim n as Integer1=21 :n=3Do While l>nl=l-nLoopPrint IEnd Sub打印结果_____ o6、___________________________________ 执行下面的程序段后，s的值为_________________ oS=5For l=2.6 To 4.9 Step 2s=s+1Next I7、下列程序段的执行后输出的结果为__________K= 1For I = 1 To 3A=I A I A KNext IPrint A8、___________________________ 下列程序的执行结果是_______________________ o M1 = 1:m2 = 1Do While m2<>6ml = m1*m2 : m2 = m2+1LoopPrint ml9、下列程序的执行结果是_____ oPrivate Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command 1_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）执行下面程序段后，变量ｘ的值为。

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）执行下面程序输入４后，程序输出的结果是。

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）执行下面程序后，输出的结果是。