vb函数练习题

合集下载

vb常用内部函数及习题

把这几个例子抄到课本
1
数学函数
• Sin(x) 返回正弦值 Cos(x) 返回余弦值。 Tan(x) 返回正切值。 Atn(x) 返回反正切值。 Abs(x) 返回绝对值。 Abs(-5)=5
2
Sgn(x) 返回自变量的符号。即：值为负数时，函数返回-1 值为0时，函数返回0 值为正数时，函数返回1 Sgn(-12)=-1,Sgn(12)=1,Sgn(0)=0 • 表达式Sgn(-6)-4.5的值是______。 • A. -1.5 B. -5.5 C. -3.5 D. -4.5
15
“/”和“\”的区别：1/2=0.5，1\2=0
• \ 取整 • / 除以
16
• 1.表达式23/5.8、 23\5.8、 23 Mod 5.8的运算结果分别是_______。 • A. 3、 3.9655、3 B. 3.9655、 3、 5 • C. 4、 4、 5 D. 3.9655、 4、 3
25
3.关系运算符
关系运算符属于双目运算符，又称比较运算符，用来对两个表
达式的值进行比较，比较的结果是一个逻辑值，True或者False
即若关系成立则返回True，否则返回False。在VB中，分别用-1和0表示True和False。表3-5列出了VB中的关系运算符。
表2-4关系运算符实 "abc"="ABC" "abc">" ABC " "abc">=“ab" 2<3 1<=3 "abc"<>"ABC" 关系运算符 = > >= < <= <> 含等于大于大于等于小于小于等于不等于义例结 False True False True True True 果

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试题1（4）1

Visual Basic练习题1、当文本框的内容发生变化时，必将触发（ C ）事件。

A、LostFocusB、KeyPressC、ChangeD、Click2、在Visual Basic中，下列（ D ）函数的值只为1，0，-1。

A、INT(X)B、ABS(X)C、SQR(X)D、SGN(X) 即“取正负号函数”3、下列Visual Basic程序段运行后，变量a、b、c的值为（）。

a = 1 :b = 1 :c = 1Do While a + b + c < = 10a = a + 1b = b * 2c = b / 2LoopA、2 2 1B、3 4 2C、4 8 4D、4 4 24、当程序在运行过程中因某种原因中断时，VB进入（ C ）模式。

A、设计B、运行C、中断D、工具5、要改变控件的高度，应改变（A）属性。

A、HeightB、WidthC、TopD、Left6、下列Visual Basic程序段运行后，变量x的值为（ C ）。

x = 3y = 77Dox = x + 2Loop Until x > Sqr (y)A、 7B、8C、9D、107、在Visual Basic中，建立一个文本编辑区域，可采用下列（ C ）。

A、命令按钮B、标签控件C、文本控件D、定时器控件8、下列（ D ）表达式的值不等于4。

A、Int (4.1)B、Int (4.9)C、Abs (int (-3.9))D、Abs (int (-4.5))9、下列Visual Basic程序段运行后，变量m 的值为（ B ）。

a = 2 :b = 1 :c = 5If a < b Then m = a Else m = bIf c < m Then m = cA、2B、1C、5D、三项答案均不是10、窗体模块文件的扩展名是（A）。

A、frmB、basC、vbpD、txt11、对象的三个要素是（A）。

vb试题解析及答案

vb试题解析及答案一、单项选择题（每题2分，共20分）1. VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A解析：在VB中，Dim关键字用于声明变量。

2. 下列哪个选项是VB中的合法变量名？A. 2numberB. number2C. $numberD. number$答案：B解析：在VB中，变量名必须以字母开头，并且不能包含空格或特殊字符。

3. 在VB中，以下哪个数据类型用于存储字符串？A. IntegerB. StringC. DoubleD. Boolean答案：B解析：String数据类型用于存储字符串。

4. VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A解析：CInt函数用于将字符串转换为整数。

5. 在VB中，以下哪个语句用于结束一个循环？A. ContinueB. ExitC. BreakD. Loop答案：B解析：Exit语句用于立即结束循环。

6. VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A解析：Label控件用于显示文本。

7. 在VB中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A解析：Click事件用于响应鼠标单击。

8. VB中，以下哪个关键字用于定义过程？A. FunctionB. SubC. PropertyD. Const答案：B解析：Sub关键字用于定义过程。

9. 在VB中，以下哪个数据类型用于存储日期？A. DateB. TimeC. DateTimeD. Currency答案：C解析：DateTime数据类型用于存储日期和时间。

10. VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. PlusD. Val答案：A解析：Sum函数用于计算两个数的和。

vb基础函数试题及答案

vb基础函数试题及答案一、选择题（每题2分，共20分）1. 在VB中，哪个函数用于计算字符串的长度？A. LenB. StrC. UCaseD. LCase答案：A2. 下列哪个函数可以将数字转换为字符串？A. ValB. StrC. IntD. CInt答案：B3. 在VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D4. 如果变量x的值为5，那么表达式"x * 2"的结果是什么？A. 10C. 5D. 2答案：A5. 在VB中，哪个函数用于获取系统时间？A. NowB. DateC. TimeD. Today答案：C6. 下列哪个函数用于将字符串转换为数字？A. ValB. StrC. IntD. CInt答案：A7. 在VB中，哪个函数用于计算两个数的和？A. SumB. AddC. +D. =答案：C8. 如果变量x的值为10，那么表达式"x Mod 3"的结果是什么？B. 0C. 3D. 10答案：A9. 在VB中，哪个函数用于计算两个数的差？A. DiffB. SubtractC. -D. =答案：C10. 下列哪个函数用于将数字四舍五入到最接近的整数？A. RoundB. IntC. CIntD. Fix答案：A二、填空题（每题2分，共20分）1. VB中，使用________函数可以将字符串转换为大写。

答案：UCase2. 使用________函数可以获取当前的日期和时间。

答案：Now3. 使用________函数可以将数字格式化为货币格式。

答案：FormatCurrency4. 使用________函数可以获取系统当前的年份。

答案：Year(Date)5. 使用________函数可以获取系统当前的月份。

答案：Month(Date)6. 使用________函数可以将数字格式化为百分比。

答案：FormatPercent7. 使用________函数可以获取系统当前的星期几。

VB常量、变量、表达式及运算、内部函数练习题(带答案)

VB常量、变量、表达式及运算、内部函数练习题(带答案)VB程序设计基础练习题（常量及变量、内部函数、表达式及运算）1．下面表达式的值是False的有：(A) “n“ "969""n97"(B) InStr("visualbasic","b")Len("basic")(C) Str(2021) "1997"(D) UCase("aBC")"aBC"2．设s1和s2都是字符串型变量，s1="Visual Basic" : s2="b"，则下列表达式中结果为True的是：(A) Mid(s1,8,1) s2(B) Len(s1)2*Instr(s1, "l")(C) Chr(66) Right(s1,4) = "Basic"(D) Instr(Left(s1,6), "a")+60 Asc(UCase(s2))3、下列为单精度变量的是（A）x$ （B）x （C）x! （D）x#4、Dim a,c As Integer，a和c的数据类型分别为(A) 都是整型(B) a是变体，b是整型(C) a是整型，b是变体5．下列函数中，返回值是字符串的有：(A) Chr (B) InStr (C) Val (D) Asc6．下列函数中，返回值不是字符串的是：(A) Trim (B) Left (C) Rnd (D) Str7．下列7个表达式中，表达式的值不是数值5或5.0的是：① Sqr(25)；② 25 ^ 0.5；③ 55 Mod 10；④ 5.5 \ 1.2；⑤ 5 *3 / 15 * 5；⑥ Abs(5 - 10)；⑦ (3 * 3 +4 * 4) ^ (1 / 2)。

vb考试试题和答案

vb考试试题和答案**VB考试试题和答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above**答案：D**2. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs**答案：A**3. 下列哪个选项是VB中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**4. 在VB中，下列哪个选项用于声明一个变量？A. ConstB. DimC. FunctionD. Sub**答案：B**5. VB中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**6. 在VB中，下列哪个选项用于循环遍历数组中的每个元素？A. For EachB. ForC. WhileD. Do**答案：A**7. VB中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim**答案：B**8. 在VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案：A**9. VB中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**10. 在VB中，下列哪个选项用于声明一个过程？A. FunctionB. SubC. ClassD. Module**答案：B**二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是________。

**答案：Integer**2. VB中，用于定义一个函数的关键字是________。

**答案：Function**3. VB中，用于定义一个子程序的关键字是________。

vb函数与表达式练习题

函数与表达式练习题一、选择题1、\,/,Mod,*四个算术符中.优先级最低的是().(A)\ (B) / (C) Mod(D) *2.下列字符串常量中,最大的是().(A) "北京" (B) "上海" (C) "天津"(D) "广州"3.表达式Int(8*sqr(36)*10^(-2)*10+0.5)/10的值是().(A) .48 (B) .048 (C) .5(D) .054.表达式Val(".123E2CD")的值是().(A).123 (B) 12.3 (C) 0(D) .123E2CD5.系统符号常量的定义可以通过()获得.(A)对象浏览器(B)代码窗口(C)属性窗口 (D)工具箱6.表达式(7\3+1)*(18\5-1)的值是().(A)8.67 (B)7.8 (C) 6(D)6.677.表达式5^2Mod 25\2^2的值是().(A)1 (B)0 (C)6(D)48.表达式25.28 Mod 6.99的值是().(A)1 (B)5 (C)4(D)出错9.下面表达式中,()的运算结果与其他三个不同.(A) Exp(-3.5) (B) Int(-3.5)+0.5(C) -Abs(-3.5) (D) Sgn(-3.5)-2.510.Int(100*Rnd(1))产生的随机整数的闭区间是().(A) [0,99] (B) [1,100] (C) [0,100](D) [1,99]11.产生[10,37]之间的随机整数的Visual Basic表达式是().(A) Int(Rne(1)*27)+10 (B)Int(Rnd(1)*28)+10(C) Int(Rnd(1)*27)+11 (D)Int(Rnd(1)*28)+1112.表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是().(A) 1 (B) 0 (C) 01 (D) 213.表达式Int( - 17.8) +Sgn(17.8)的值是().(A) 18 (B)-17 (C) -18 (D) -1614.表达式Int( - 17.8) +Abs(17.8)的值是().(A) 0 (B) 0.8 (C) - 0.2(D) 0 34.815.表达式Left("how are you",3)的值是().(A) how (B) are (C) you(D) how are you16.表达式Right("Biejing",4)的值是().(A) Bei (B) jing (C) eiji(D) ijin17.表达式Abs( - 5) +Len("ABCDE")的值是().(A) 5ABCDE (B) 0 5ABCDE (C) 10(D) 018.表达式Mid("SHANGHAI",6,3)的值是().(A) SHANGH (B) SHA (C) ANGH(D) HAI19.函数Len(Str(Val("123.4")))的值为().(A) 11 (B) 5 (C) 6(D) 820.设A="12345678",则表达式Val(Left(A,4) + Mid(A,4,2))的值为().(A) 123456 (B) 123445 (C) 8(D) 621.设A="abcdefghijklm",下面()的函数值为"jklm".(多选)(A) Mid(A,10,14) (B) Right(A,4)(C) Mid(A,10,4) (D) Left(A,10,4)22.函数InStr("VB程序设计教程","程序")的值为().(A) 1 (B) 2 (C) 3(D) 423.函数Ucase(Mid("Visual basic",8,5))的值为().(A) Visual (B) basic (C) VISUAL(D) BASIC24.表达式Str(Len("123")) + Str(77.7)的值为().(A) 377.7 (B) 3 77.7 (C) 80.7(D) 12377.725.表达式( - 1)*Sgn( - 100 +Int(Rnd*100))的值是().(A) 0 (B) 1 (C) - 1(D) 随机函数26.Visual Basic布尔运算符Xor,Or,Eqv,And中,级别最高的运算符是().(A) Xor (B) Or (C) Eqv(D) And27.在下面各关系中,当X取任意数值时都能成立的式子是().(A) Int(X) >= Abs(X) (B) Int(X) =Abs(X)(C) Int(X) <=Abs(X) (D) Int(X) <>1Abs(X)28. 设有如下声明:Dim X As Integer如果Sgn(X) 的值为-1,则X的值是( )A) 整数B) 大于0的整数C) 等于0的整数D) 小于0的数29.在一个语句行内写多条语句时,语句之间应该用()分隔.(A) 逗号(B) 分号(C) 顿号(D) 冒号30.设a=3,b=5,则以下表达式值为真的是( )A) a>=b And b>10 B) (a>b)Or(b>0)C) (a<0)Eqv(b>0) D)(-3+5>a)And(b>0)31.设a=“Visual Basic”,下面使b=“Basic”的语句是( )A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Rigth(a,5,5) D) b=Left(a,8,5)32.函数String(n,“str”)的功能是( )A)把数值型数据转换为字符串B)返回由n个字符组成的字符串C)从字符串中取出n个字符D)从字符串中第n个字符的位置开始取子字符串33.以下声明语句中错误的是( )A)Const var1=123 B)Dim var2 = 'ABC'C)DefInt a_z D)Static var3 As Integer34. 以下合法的Visual Basic标识符是( )A) ForLoop B) Const C) 9abcD) a#x35. 表达式 5 Mod 3+3\5*2的值是( )A) 0 B) 2 C)4D) 636. 设x=4,y=8,z=7,以下表达式的值是( )x<y And (Not y>z) Or z<xA) 1 B) -1 C) TrueD) False37.设a=5,b=4,c=3,d=2下列表达式的值是( )。

vb函数与表达式练习题

函数与表达式练习题一、选择题1、X=，表达式INT(X)+FIX(－X)的值是( )D.－12. 执行A＝9\4后，A的值为( 2 )4 表达式Int(8*sqr(36)*10^(-2)*10+/10的值是（）.(A) .48 (B) .048 (C) .5 (D) .054.表达式Val(".123E2CD")的值是（）.(A).123 (B) (C) 0 (D) .123E2CD5. 表达式SQR(2^3^2) MOD 7的值为( )6.表达式(7\3+1)*(18\5-1)的值是（）.(A) (B) (C) 6 (D)7.表达式5^2 Mod 25\2^2的值是（）.(A)1 (B)0 (C)6 (D)48.表达式 Mod 的值是（）.(A)1 (B)5 (C)4 (D)出错9.下面表达式中,（）的运算结果与其他三个不同.(A) Exp (B) Int+(C) -Abs (D) Sgn(100*Rnd(1))产生的随机整数的闭区间是（）.(A) [0,99] (B) [1,100] (C) [0,100] (D) [1,99]11.产生[10,37]之间的随机整数的Visual Basic表达式是（）.(A) Int(Rne(1)*27)+10 (B) Int(Rnd(1)*28)+10(C) Int(Rnd(1)*27)+11 (D) Int(Rnd(1)*28)+1112.表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（）.(A) 1 (B) 0 (C) 01 (D) 213.表达式Int( - +Sgn的值是（）.(A) 18 (B)-17 (C) -18 (D) -1614.表达式Int( - +Abs的值是（）.(A) 0 (B) (C) - (D) 015.表达式Left("how are you",3)的值是（）.(A) how (B) are (C) you (D) how are you16.表达式Right("Biejing",4)的值是（）.(A) Bei (B) jing (C) eiji (D) ijin17.表达式Abs( - 5) +Len("ABCDE")的值是（）.(A) 5ABCDE (B) 0 5ABCDE (C) 10 (D) 018.表达式Mid("SHANGHAI",6,3)的值是（）.(A) SHANGH (B) SHA (C) ANGH (D) HAI19.函数Len(Str(Val("")))的值为（）.(A) 11 (B) 5 (C) 6 (D) 820.设A="",则表达式Val(Left(A,4) + Mid(A,4,2))的值为（）.(A) 123456 (B) 123445 (C) 8 (D) 621.设A="abcdefghijklm",下面（）的函数值为"jklm".(多选)(A) Mid(A,10,14) (B) Right(A,4)(C) Mid(A,10,4) (D) Left(A,10,4)22.函数InStr("VB程序设计教程","程序")的值为（）.(A) 1 (B) 2 (C) 3 (D) 423.函数Ucase(Mid("Visual basic",8,5))的值为（）.(A) Visual (B) basic (C) VISUAL (D) BASIC24.表达式Str(Len("123")) + Str的值为（）.(A) (B) 3 (C) (D)25.表达式( - 1)*Sgn( - 100 +Int(Rnd*100))的值是（）.(A) 0 (B) 1 (C) - 1 (D) 随机函数26. \2的结果是__ ___。

Vb常用内部函数练习题加答案

Vb常用内部函数练习题加答案1、编写一个计算器，在text1和text2中输入数字，text3中输出结果。

实现的功能为“加、减、乘、除、绝对值、符号函数、平方根函数、取余、乘方、负号、整除”2、编写一个程序，在text1中输入，text2中输出结果。

实现的功能为“int（x）、asc（x）、chr（x）、val（s）、str（s）”3、编写一个程序，在text1中输入一个身份证号码，先去除该数字前的空格（ltrim（s））从该身份证号码中截取此身份证号码的出生年月日4、编写以一下程序，实现如下的效果5、编写一个程序，在text1和text2中输入一串字符开始查找，如果text2中找到text1中的字符，text3返回位置，如果找不到text3则返回06、编写一个程序，在text1中输入一段英文语句，text2中返回其大写或小写7、编写一个程序，获取当前系统时间8、编写一个随机函数，产生1-20之间的5组随机函数，且第二次初始化时不能重复出现答案1、Private Sub Command1_Click()Dim a As SingleDim b As Singlea = Text1.Textb = Text2.TextText3.Text = a + bPrivate Sub Command10_Click()Text3.Text = Sgn(Text3.Text)End SubPrivate Sub Command11_Click()Text3.Text = Sqr(Text3.Text)End SubPrivate Sub Command2_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a - bEnd SubPrivate Sub Command3_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a * bEnd SubPrivate Sub Command4_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a / bEnd SubPrivate Sub Command5_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a Mod bPrivate Sub Command6_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a \\ bEnd SubPrivate Sub Command7_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a ^ bEnd SubPrivate Sub Command9_Click() Dim a As Single Text3.Text = Abs(Text3.Text)End Sub2、Private Sub Command1_Click() Dim a As Singlea = Text1.TextText2.Text = Int(a)End SubPrivate Sub Command2_Click() Dim a As Stringa = Text1.TextText2.Text = Asc(a)End SubPrivate Sub Command3_Click() Dim a As Stringa = Text1.TextText2.Text = Chr(a)End SubPrivate Sub Command4_Click() Dim a As Singlea = Text1.TextText2.Text = Str(a)End SubPrivate Sub Command5_Click() Dim a As Stringa = Text1.TextText2.Text = Val(a)End Sub3、Private Sub Command1_Click() Dim a As String Dim b As Stringa = Text1.Textb = LTrim(a)Text2.Text = Mid(b, 7, 6)End Sub4、Private Sub Form_Click()Print String(1, "*")Print String(2, "*")Print String(3, "*")Print String(4, "*")Print String(5, "*")Print String(6, "*")Print String(6, "*")Print String(5, "*")Print String(4, "*")Print String(3, "*")Print String(2, "*")Print String(1, "*")End Sub5、Private Sub Command1_Click()Dim a As StringDim b As Stringa = Text1.Textb = Text2.TextText3.Text = InStr(a, b)End Sub6、Private Sub Command1_Click()Dim a As Stringa = Text1.TextText2.Text = LCase(a)End SubPrivate Sub Command2_Click()Dim a As Stringa = Text1.TextText2.Text = UCase(a)End Sub7、Private Sub Command1_Click()Dim a As StringText1.Text = Now()End Sub8、Private Sub Form_Click()Dim a As IntegerDim b As Integera = 1b = 20RandomizePrint Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a)End Sub。

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中类和对象的区别，并给出一个使用类和对象的简单示例。

vba试题及答案

vba试题及答案1. 题目一：编写一个VBA函数，该函数接受一个字符串作为参数，并返回该字符串中每个字符出现的次数。

答案：```vbaFunction CountCharacters(str As String) As DictionaryDim dict As New DictionaryDim i As IntegerDim char As StringFor i = 1 To Len(str)char = Mid(str, i, 1)If Not dict.Exists(char) Thendict.Add char, 1Elsedict(char) = dict(char) + 1End IfNext iSet CountCharacters = dictEnd Function```2. 题目二：编写一个VBA宏，用于在Excel工作表中查找并高亮显示所有与指定条件相匹配的单元格。

答案：```vbaSub HighlightCells()Dim rng As RangeDim criteria As StringDim cell As Range' 用户输入条件criteria = InputBox("请输入要高亮显示的条件：")' 遍历工作表中的所有单元格For Each cell In edRangeIf cell.Value = criteria Thencell.Interior.Color = RGB(255, 255, 0) ' 黄色高亮 End IfNext cellEnd Sub```3. 题目三：编写一个VBA程序，用于计算Excel工作表中指定列的总和。

答案：```vbaFunction SumColumn(col As Range) As DoubleDim sum As DoubleDim cell As Rangesum = 0For Each cell In colIf IsNumeric(cell.Value) Thensum = sum + cell.ValueEnd IfNext cellSumColumn = sumEnd Function```4. 题目四：编写一个VBA宏，用于将Excel工作表中的数据复制到另一个工作表中。

vb考试试题及答案

vb考试试题及答案一、选择题1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Option答案：A2. 在VB中，下列哪个选项不是合法的变量名？A. _myVarB. var2C. 123variableD. my$Var答案：C3. VB中，下列哪个选项是正确的条件语句？A. If condition ThenB. If condition Then ElseC. If condition Then Else IfD. If condition Then Else Else答案：A4. VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Length()C. StrLen()D. Size()答案：A5. 在VB中，下列哪个选项是正确的循环结构？A. For i = 1 To 10B. Do While i < 10C. For Each i In arrD. All of the above答案：D二、填空题1. 在VB中，声明一个整型变量并赋值为100的语句是：________。

答案：Dim myVar As Integer = 1002. VB中，用于输出信息到立即窗口的函数是：________。

答案：Debug.Print3. VB中，用于暂停程序执行的函数是：________。

答案：Sleep4. VB中，用于获取当前日期的函数是：________。

答案：Date5. VB中，用于将字符串转换为整型的函数是：________。

答案：CInt三、简答题1. 简述VB中事件驱动编程的概念。

答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而不是由程序内部的逻辑顺序决定。

2. 描述VB中如何实现多线程编程。

答案：在VB中，可以使用Thread类或BackgroundWorker组件来实现多线程编程。

vb考试题及答案解析

vb考试题及答案解析一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. FunctionC. SubD. Class答案：A2. 下列哪个选项是Visual Basic中的保留字？A. MainB. IfC. ElseD. My答案：B3. 在Visual Basic中，以下哪个函数用于将字符串转换为数字？A. StrB. ValC. ChrD. Asc答案：B4. 以下哪个控件用于在Visual Basic中显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox5. 在Visual Basic中，如何表示“或”逻辑运算？A. AndB. OrC. NotD. Xor答案：B6. Visual Basic中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A7. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyPress答案：A8. Visual Basic中，以下哪个关键字用于循环结构？A. ForB. WhileC. DoD. All of the above答案：D9. 在Visual Basic中，以下哪个函数用于获取当前系统时间？B. DateC. TimeD. Timer答案：A10. 以下哪个选项是Visual Basic中的错误处理语句？A. TryB. CatchC. FinallyD. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。

答案：Dim2. 如果需要在Visual Basic中创建一个自定义函数，应该使用________关键字。

大学vb试题及答案

大学vb试题及答案大学VB试题及答案一、选择题（每题2分，共20分）1. VB中，以下哪个函数用于计算字符串的长度？A. LenB. StrC. UCaseD. LCase答案：A2. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. DimD. Const答案：B3. VB中，以下哪个控件用于显示文本信息？A. TextBoxB. ButtonC. LabelD. ComboBox答案：C4. 在VB中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. BackColor答案：A5. VB中，以下哪个语句用于结束当前的过程执行？A. EndB. ExitC. ReturnD. Stop答案：B6. VB中，以下哪个关键字用于定义一个类？A. ClassB. ModuleC. InterfaceD. Namespace答案：A7. 在VB中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A8. VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. BackColorD. ForeColor答案：A9. 在VB中，以下哪个语句用于创建一个新的对象实例？A. NewB. CreateObjectC. DimD. Set答案：D10. VB中，以下哪个关键字用于定义一个数组？A. DimB. ReDimC. EraseD. Option Base答案：A二、填空题（每题2分，共20分）1. VB中，使用________关键字可以定义一个变量。

答案：Dim2. 如果要在VB中创建一个包含10个元素的整数数组，可以使用________语句。

答案：Dim arr(9) As Integer3. VB中，使用________函数可以获取当前系统时间。

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选择题练习(函数)

选择题1．下列字符不属于Visual Basic字符集。

A：A B：# C：ξD：@2．Visual Basic允许的常量有[ ]（多选）A：E7 B：4.8E2 C：2.5*10 D：E-5E：1/2 F：1.1e-2 G：πH：False3．以下[ ]不是合法的常量。

[ ]是逻辑常量，[ ]是字符串常量，[ ]是日期常量。

A：true B：“100.0”C：11-03-99 D：FE：AN’F：#11/05/1998#4．常量-0.00013579的科学记数法是[ ]。

(多选)A：-1，3579E+0.4 B：1.3579E-4C：-13.579E-5 D：-1.3579E-045．\、/、Mod 、*四个算术运算符中，优先级最低的是[ ]。

A：\ B：/ C：Mod D：*6．以下[ ]是字符串常量，[ ]可以作为变量名。

A：m B：#01/01/99# C：“m”D：true 7．下列[ ]日期型常量。

A：“2/1/02”B：2/1/02 C：#2/1/02# D：{2/1/02} 8．表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是[ ]。

A：.48 B：.048 C：.5 D：.059．表达式Val(“.123E2CD”)的值是[ ]。

A：.123 B：12.3 C：0 D：.123E2CD 10．Variant是一种特殊的数据类型，除了[ ]和[ ]类型外，可以包含任何种类的数据。

A：固定长度字符串B：字节C：实型D：单精度E：可变长度字符串F：整型G：货币H：自定义11．下列符号常量的声明中，[ ]是不合法的。

A：Const a As Single=1.1B：Const a As Integer=“12”C：Const a As Double=Sin（1）D：Const a=“OK”12．下列叙述中不正确的是[ ]。

A：变量名的第一个字符必须是字母。

B：变量名的长度不超过255个字符。

VB常量、变量、函数与运算符(附参考答案)

《VB常量、变量、函数与运算符》练习附参考答案1．在Visual Basic中，变量a中的数值是整数而且可能在-40000~42767范围之内，则变量a 的数据类型应定义为（）（A）Integer （B）Long （C）Single （D）String2．常量是指在程序执行过程中其值不能改变的存储单元或数据。

下列选项中不是VB常量的是（）（A）2008 （B）”BeiJing”（C）True （D）China3．下面声明语句中，错误的是（）（A）Dim x As Integer （B）Dim b(1 to 50) As String（C）Dim True As Boolean （D）Const pi=3.144．下列选项中不是直接常量的是（）（A）3.14159 （B）”False”（C）abc （D）False5．下列常量说明符合Visual Basic中语法的是（）（A）Const color=red（B）Const const=10*5（C）Const x1:=3.9（D）Const color=”abed”6．在Visual Basic中，下列属于正确变量名的是（）（A）a1 （B）3y （C）x-y （D）then7．在Visual Basic中，用语句Dim A(0 To 5) As Integer所定义的数组的元素个数是（）（A）5 （B）6 （C）7 （D）88．以下函数运算结果不是4的是（）（A）Int(4.6) （B）Fix(4.1) （C）Abs(Int(-4.1)) （D）Len(“北京奥运”)9．Str(Sqr(b^2-4*a*c))运算结果的数据类型是（）（A）String （B）Integer （C）Double （D）Boolean10．随机数函数Rnd()可以产生一个大于等于0且小于1的随机数，现在想产生一个[6，24]的随机整数，可行的表达式是（）（A）Rnd()*24（B）int(6+Rnd()*18)（C）6+int(Rnd()*18+1)（D）6+int(Rnd()*19)11．在Visual Basic中，表达式Abs(-5)+len(“ABCDEFGH”)的值是（）（A）5ABCDEFGH （B）-5ABCDEFGH （C）13 （D）312．在Visual Basic中，表达式Int(-2.3)*Fix(3.5)的值是（）（A）-6 （B）-8 （C）-9 （D）-1213．Visual Basic表达式Len(Mid(“Beijing2008lucky!”,8,4))的计算结果是（）（A ）”2008” （B ）”2008luck ” （C ）8 （D ）414．设x=901，下列能得到百位数字“9”的Visual Basic 表达式是（）（A ）Int(x/10) （B ）x mod 10 （C ）x\100 （D ）x/10015．能正确表示数学表达式yx acb -+-342 的VB 表达式是（）（A ）Exp(b*b-4*a*c)/(Abs(x+3)-y) （B ）Exp(b*b-4*a*c)/Abs(x+3)-y （C ）Sqr(b*b-4*a*c)/(Abs(x+3)-y) （D ）Sqr(b*b-4*a*c)/Abs(x+3)-y16．下列能表示“K 大于等于0且K 小于等于10”的Visual Basic 表示式（）（A ）0≤K And K ≤10 （B ）0<=K Or K<=10 （C ）0<=K And K<=10 （D ）0<=K<=10 17．在VB 中，假设a 和c 都是字符串型，b 是整数型，并且a=”beijing ”，b=2008，下列赋值语句中正确的是（）（A ）c=a+b （B ）c=a+Str(b) （C ）c=a+Val(b) （D ）c=Str(a+b)18．在VB 中，已知x ，y 均是正整数，关系表达式Int(x/y)=x/y 为真时，则表示（）（A ）x 不能被y 整除（B ）x 能被y 整除（C ）x 与y 一定相等（D ）x 小于y19．假设a ，b 都是数值型变量，a=123，b=456，则下列语句运行后变量c 的值为“123456”的是（）（A ）c=a*1000+b （B ）c=a+b （C ）c=Str(a)+Str(b) （D ）c=Str(a+b) 20．能完全正确表示“year 是闰年”的逻辑表达式是（）（A ）year Mod 4=0 （B ）year Mod 400=0（C ）(year Mod 400=0) Or (year Mod 4=0) And (year Mod 100<>0) （D ）(year Mod 400=0) And (year Mod 4=0) Or (year Mod 100<>0)参考答案：。

VB多选题

1. 下列属于VB字符串函数的是_ABCDE___。

A. TRIM()B. LEFT()C. RIGHT()D. MID()E. LEN()F. SIN()2. 下列属于VB转换函数的是_ABCD___。

A. ASC()B. STR()C. CHR()D. VAL()3. 下列属于VB数学函数的是_ABCE___。

A. SIN()B. INT()C. EXP()D. LEN()E. ABS()4. 日期函数Now可以取得系统当前的_AB___。

A. 日期B. 时间C. 属性D. 方法5. 实现大小写字母互相转换的函数是__AB__。

A. Lcase()B. Ucase()C. LOG()D. EXP()6. 实现数值、字符串相互转换的函数是_AB___。

A. STR()B. VAL()C. ABS()D. LOG()7. 下列函数中，用于取子串的函数是__BCD__。

A. INT()B. LEFT()C. MID()D. RIGHT()8. 能够删除字符串中空格的函数是_ABC___。

A. Ltrim()B. Rtrim( )C. Trim()D. Lcase()9. 一般来说好的算法具备哪些特点_ABCD 32___。

A. 有穷性B. 确定性C. 有输出结果D. 有效性10. 描述算法的方法是多种多样的，可以用_ABD___来描述算法。

A. 文字B. 符号C. 高级语言D. 流程图11. 程序设计的三种基本算法结构是__ABD__。

A. 顺序结构B. 分支结构C. 函数结构D. 循环结构12. 以下叙述中正确的是_ABC___。

A. 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B. 以.BAS为扩展名的文件是标准模块文件C. 窗体文件包含该窗体及其控件的属性D. 一个工程中可以含有多个标准模块文件13. 以下叙述中正确的是_ABCD___。

A. 打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B. 保存VisualBasic程序时，应分别保存窗体文件及工程文件C. VisualBasic应用程序只能以解释方式执行D. 事件可以由用户引发，也可以由系统引发14. VB目前使用广泛的版本是6.0，这个版本又分ABC____。