vb复习题选择结构
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property答案：D2. VB中的“Option Explicit”语句用于做什么？A. 声明变量类型B. 强制变量声明C. 定义过程D. 创建对象实例答案：B3. 下列哪个不是VB的控件事件？A. ClickB. LoadC. ChangeD. Hover答案：D4. 在VB中，以下哪个不是标准数据类型？A. IntegerB. StringC. BooleanD. Pointer答案：D5. VB中的“With”语句用于什么？A. 初始化对象B. 创建对象实例C. 引用对象的多个属性或方法D. 循环遍历集合答案：C6. 在VB中，如何将一个表达式的结果赋值给一个变量？A. 使用“=”运算符B. 使用“==”运算符C. 使用“:=”运算符D. 使用“->”运算符答案：A7. 下列哪个是VB中的循环结构？A. IfB. For EachC. Select CaseD. While答案：D8. 在VB中，如何表示一个空引用？A. NullB. NothingC. EmptyD. Undefined答案：B9. VB中的“Handles”关键字用于什么？A. 过程定义B. 事件处理C. 类定义D. 属性声明答案：B10. 在VB中，以下哪个不是集合的属性或方法？A. AddB. ItemC. CountD. Sort答案：D二、填空题（每题2分，共20分）11. VB中的________关键字用于定义一个方法或属性的访问级别。
答案：Private12. 当你想要在VB中创建一个新类时，你需要使用________关键字。
答案：Class13. 在VB中，________方法用于在运行时创建对象。
答案：New14. 如果你想要在VB中捕获并处理异常，你应该使用________语句。
VB选择题
《VB》期末考试选择题复习（共180题）1. Visual Basic集成开发环境中不包括下列哪些窗口( )。
A、工具箱窗口B、工程资源管理器窗口C、属性窗口D、命令窗口参考答案是：D2. 在设计应用程序时，通过( )窗口可以查看到应用程序工程中的所有组成部分。
A、代码窗口B、窗体设计窗口C、属性窗口D、工程资源管理器窗口参考答案是：D3. 在正常安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。
以下方式中不能启动Visual Basic的是：( )。
A、通过“开始”菜单中的“程序”命令B、通过“我的电脑”找到vb6.exe，双击该文件名C、通过“开始”菜单中的“运行”命令D、进入DOS方式，执行vb6.exe文件参考答案是：D4. Visual Basic 6.0工程文件的扩展名是( )。
A、.vbpB、.frmC、.basD、.cls参考答案是：A5. Visual Basic6.0是面向( )的程序设计语言。
A、过程B、工程C、事件D、对象参考答案是：D6. 下列关于 Visual Basic编程特点的叙述中，错误的是( )。
A、Visual Basic 是采用事件驱动编程机制的语言B、构成 Visual Basic 程序的多个过程没有固定的执行顺序C、Visual Basic 程序既可以编译运行，也可以解释运行D、Visual Basic 程序不是结构化程序，不具备结构化程序的 3 种基本结构参考答案是：D7. Visual Basic 6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是( )。
A、设计状态B、编写代码状态C、运行状态D、运行状态参考答案是：B8. 在Visual Basic 6.0中要获取上下文相关帮助，只需将光标定位在相应位置，再按( )键即可。
A、F1B、F2C、F3D、F4参考答案是：A9. Visual Basic 6.0集成开发环境的主窗口中不包括( )。
VB第四章选择结构测试题
高一第二学期VB测试题一、选择题（每题2分，共20分）1.在条件语句If x=1Then y=2中，下列说法正确是______。
A.x=1和y=2均为赋值语句B.x=1和y=2均为关系表达式C.x=1为关系表达式，y=2为赋值语句D.x=1为赋值语句，y=2为关系表达式2.下面程序段运行后，显示的结果是_______。
Dim xIf x Then Print x Else Print x+1A.1B.0C. -1D.显示出错信息3.运行下列程序段，显示的结果是____。
x=Int(Rnd)+5Select Case xCase5Print"优秀"Case4Print"良好"Case3Print"通过"Case ElsePrint"不通过"End SelectA.优秀B.良好C.通过D.不通过4.执行如下程序段时，从键盘输入-5，输出的结果是_____。
x=-5s=Val(InputBox("请输入s的值:"))Select Case sCase Is>0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrint x;yA. -5-2B. -5-4C. -5-3D. -5-5第1页/共6页5.用Select Case语句选择|x|<=10情况的语句为：Case_______。
A.Not(-10To10)B.-10To10C.Is Abs(x)>10D.Is<-10Or>106、有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a<>3Or b<>3Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是（）A）16B）3C）6D）87、有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a<>3Or b<>3Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是（）A）16B）3C）6D）88、执行下列程序，从键盘输入10，运行结果是_________。
《Visual BASIC程序设计》期末考试编程题复习及答案
第2章1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。
“改变颜色”按钮代码：Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体”。
“改变字体”按钮代码：Label1.FontName = "黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。
2.设计一个留言薄。
新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。
要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text = ""Text2.Text = ""图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:\EX文件夹下。
3.设计一个程序，程序界面如图2-7所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
“显示”按钮代码：Text1.Text = "欢迎使用VB!"“清除”按钮代码：Text1.Text = ""“退出”按钮代码：End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹下。
VB重点复习
VB重点一、选择题（30×1.5′=45′）1.在VB程序设计中，响应对象的外部动作称为事件，而对象可以执行的动作或对象本身的行为则称为方法。
2.在VB6.0集成开发环境中不能完成的工作是自动查找并改正程序中的错误。
3.VB6.0集成开发环境不包括DOS界面窗口。
4.当运行程序时，系统自动执行启动窗体的Load事件过程。
5.下面关于对象的描述中，对象就是自定义结构变量是错误的。
6.如果在窗体上已经创建了一个文本框对象Text1，可以通过事件KeyPress 获得输入键值的ASCII码。
7.VB是一种基于对象的可视化程序设计语言，采取了事件驱动的编程机制。
8.在VB中最基本的对象是窗体，它是一块“画布”，是其他控件的容器。
9.有程序代码如下：Text1.Text=”Text1text”则Text1、Text、Text1text分别代表对象、属性、值。
10.要使标签控件显示时不覆盖其背景内容，需对其BackStyle属性进行设置。
11.要使命令按钮不可操作，需对其Enabled属性进行设置。
12.文本框没有Caption属性。
13.不论何种控件，共同具有的是Name属性。
14.要使Form1窗体的标题栏显示“欢迎使用VB”，下列语句中Form1.Caption=”欢迎使用VB”是正确的。
15.要使窗体在进行时不可改变大小和没有最大化和最小化按钮，只要对其BorderStyle属性进行设置即可。
15.文本框的ScrollBars属性设置了非零值，却没有效果，原因是文本框的MultiLine属性为False。
15.要判断在文本框中是否按下了Enter键，应使用文本框的KeyPress事件。
16.保存新建的工程时，默认的路径是Windows。
17.将调试通过的工程经“文件”菜单中的“生成exe文件”命令编译成.exe文件后，该可执行文件到其他机器上不能进行的主要原因是运行的机器上无VB系统。
18.在安装了VB帮助系统后，当需要上下文帮助时，选择要帮助的“难题”，然后按F1键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
一、VB基本知识及选择、循环结构习题
一、VB 基本知识及选择、循环结构习题一、基本概念题（1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。
100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#答：在VB 中，直接常量是以直接明显的形式给出的数据。
根据数据类型的不同，直接常量分为：字符串常量、数值常量、日期常量和布尔常量。
字符串常量是由一对半角双引号“””加以界定的字符序列，该字符序列可以是任何能被计算机处理的字符。
本题中，“ASDF ” 、 “1234.5”是字符串常量；数值常量是由数值、小数点和正负号所构成的数值。
在Visual Basic 中除十进制数值常量外，还有八进制、十六进制数值常量。
八进制常量前加&O ；十六进制常量前加&H 。
本题中，100.0、1E1、123D3、0100、100#、&O78 、&H123、-1123!和345.54#均为数值常量。
日期常量用来表示某一天或某一天的具体时间。
在Visual Basic 中，日期常量用两个“#”号加以界定。
本题中，#2004/10/7#是日期常量。
逻辑型常量只有True 和False 两个值，表示“真”和“假”。
本题中，True 是逻辑常量。
本题中，％100、123,456、π、T 不是合法的常量。
（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.345答：“name ”、 “11/16/99”、 “120”是字符串常量；12.345是数值常量；#11/12/2004#是日期常量；False 是逻辑常量。
Name 、ff 、cj 、n 是变量。
VISUAL BASIC各章习题
visual basic测试题（一）一、选择题1、在一行语句内写多条语句时，每个语句之间用（）符号分隔。
A.，B.：C.、D.；2、一条语句要在下一行继续写，用（）符号作为续行符。
A.＋B.－C.＿ D.…3、下面（）是合法的变量名。
A.X＿yzB.123abcC.integerD.X－Y4、下面（）是不合法的整常数。
A.100B.&O100C.、&H100 D.%1005、下面（）是合法的字符常数。
A.ABC＄B.”ABC”C.ˋABCˊ D.ABC6、下面（）是合法的单精度型变量。
A.num!B.sum%C.xinte$D.mm#7、下面（）是不合法的单精度常数。
A.100!B.100.0C.1E＋2D.100.0D ＋28、表达式16/4–2^5*8/4MOD5\2的值为（）。
A.14B.4C.20D.29、数学表达式3≤x﹤10在VB中的逻辑表达式为（）。
A.3≤x﹤10B.3<=x AND x﹤10C.x>=3OR x﹤10D.3<=x AND﹤1010、\、/、Mod、*4个算术运算符中，优先级别最低的是（）。
A.\B./C.ModD.*11、与数学表达式ab/3cd对应，不正确的VB算术表达式是（）。
A.a*b/(3*c*d)B.a/3*b/c/dC.a*b/3/c/dD.a*b/3*c* d12、Rnd函数不可能为下列（）值。
A.0B.1C.0.1234D.0.000513、Int（198.555*100+0.5）/100的值（）。
A.198B.199.6C.198.56D.20014、已知A$="12345678",则表达式Val（Left$(A$,4)+Mid$(A$,4,2)）的值为（）。
A.123456B.123445C.8D.615、Msgbox函数返回值的类型是（）。
A.整型数值B.字符串C.变体D.数值或字符串16、InputBox函数返回值的类型是（）。
VB选择结构 习题
• 一、选择题 • 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选择结构练习题.doc
1.奖学金问题；平均分大于95或者两门100 —门大于80分Private Sub Command 1 _Click()ml = Val(Textl.Text)m2 = Val(Text2.Text)m3 = Val(Text3.Text)x = (ml + m2 + m3) / 3Ifx>95 Theny= 1Elself ml = 100 And m2 = 100 And m3 >= 80 Theny = iElself m2= 100 And m3 = 100 And ml >= 80 Theny = iElself ml = 100 And m3 = 100 And m2 >= 80 Then y=iElsey = 0End IfIf y = 1 ThenText4.Text = ”一等奖学金”Else: Text4.Text 二”非一等奖学金”End IfEnd SubQ Forml100 100 82 等奖学金计算2•三个数比较大小并按从小到大排列Private Sub Command l_Click()x = Val(Textl.Text)y = Val(Text2.Text)z = Val(Text3.Text)tmax = IIf(x > y, x, y)Max = IIf(tmax > z, tmax, z)tmin = IIf(x < y 9 x ，y)Min = IIf(tmin < z, tmin, z)a = x + y + z- Min - MaxText4.Text = Min &“ & a & ” v ” & Max End Sub Q. Forml比较3 •编写一个简单计算器程序Private Sub Command l_Click() numl = Val(Textl .Text)num2 = Val(Text2.Text)NOp = Trim(Text3)Select Case NOpCasex = numl + num2Case 叮x = numl - num2Case ”啊x = numl * num21456 33 14 < 33 < 56Case Tx = numl / num2End SelectText4.Text = xEnd SubPrivate Sub Command2_Click()Text 1.Text 二””Text2.Text = ””Text3.Text = ””Text4.Text = ””End Sub计算唐屏4.输入一个数字，用英文显示対应的周一至周日Private Sub Command l_Click() a = Val(Textl.Text) Select Case aCase 1Text2.Text = "Monday1'Case 2Text2.Text = "Tuesday"Case 3Text2.Text = "Wednesday*'Case 4Text2.Text = "Thursday"Case 5Text2.Text = "Friday"Case 6Text2.Text = '"Saturday 11Case 7Text2.Text = "Sunday"Case Is > 7, Is < 1Text2.Text = "error 1*End SelectEnd SubPrivate Sub Command2_Click()Text 1.Text 二””Text2.Text = ””End SubH rorm 丄转换 5.公用电话收费程序，3分钟以内0.5元，超过部分每分钟加收0.15元，在7点至19 Z 间正 常收费，其他时间半价收费Private Sub Command l_CIick()al = Textlbl = Text2c 1 = Text3a2 = Text4b2 = Text5c2 = Text6s = (a2 ・ al) * 60 + (b2 - bl) + (c2 - cl) / 60 Text7 = sIf s <= 3 Then星期 Friday濟屏m = 0.5Elsem = 0.5 + (s - 3) * 0.15End IfIfal > 19 Or al < 7 Thenm = m / 2End IfText8 = mEnd SubPrivate Sub Command2_Click()TextlText2 =Text3 = ,M,Text4 = “”Text5 二“”Text6 = “”Text7 =TextsEnd Sub鬥Forml CD IEJ。
VB操作题选择结构操作题本
VB7—选择结构操作题一、操作题，每题10分，9题共90分【第1题】打开“Z:\50\工程1.vbp”，完善程序并保存。
实现功能：在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。
操作要求：（1）在窗体中加载“CommandButton”控件，命名为“Command1”并设置该控件“Caption”属性值为“判断”；（2）完善程序，执行command1_click事件，判断出结果，如果能搭成三角形则在文本框text4中输出“OK”，否则输出“NO”。
Private Sub Command1_Click()Dim a, b, c As ①Let a = Val(Text1.Text)Let b = Val(Text2.Text)Let c = Val(Text3.Text)If (a + b > c) And (a + c > b) And (b + c > a) ThenLet Text4.Text = "OK"ElseLet Text4.Text = "NO"②End Sub【第2题】打开文件“考生文件夹\108\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，则将该数据输出在窗体上。
Private Sub Command1_Click()Dim x As Integerx = Val(①)If x Mod 3 = 2 ThenIf ② = 3 Then Print ③End IfEnd IfEnd Sub【第3题】打开“Z:\13\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。
VB顺序结构与选择结构练习题
VB顺序结构与选择结构练习题VB顺序结构及选择结构练习一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click()b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（D）A）a=11 B）a=b + c C）a= D）False2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click(D)a=11b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（）A）a=11 B）a=b + c C）a= D）True3.以下语句的输出结果是（B）a = Sqr(3)Print Format(a,”$$#### : ###”)A）$1.732 B）$$1.732 C）$1732 D）$$00001.7324.以下程序段的输出结果是（D）a = Sqr(3)b = Sqr(2)c =a>bPrint cA）-1 B）0 C）False D）True5.以下语句的输出结果是（C）Print Format$ (32548.5,”000,000.00”)A）32548.5 B）32,548.5 C）032,548.50 D）32,548.501.假定有如下语句：answer$=MsgBox(“String1”,, “String2”, “String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）12.InputBox函数返回值的类型为（B）A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。
vb复习题选择结构
'【程序填空】'-------------------------------------------------------'功能：输入任何一个英文字母x,' 若x的值为"a","c","d-f" ,则显示x的大写字母；' 若x的值为"m","o","p-z",则显示x的小写字母；' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
'-------------------------------------------------------Private Sub Command1_Click()x = Text1.Text'**********SPACE**********【?】'**********SPACE**********Case 【?】Label1.Caption = UCase(x)Case "m", "o", "p" To "z"Label1.Caption = LCase(x)Case Else'**********SPACE**********【?】End SelectEnd Sub-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。
' 判断密码是否正确，并显示相应提示' 在加载窗体时设置密码框最大长度为8，密码显示字符为“*”'-------------------------------------------------------dim x as stringPrivate Sub Command1_Click()x = Text1.Text'**********SPACE**********If x 【?】 "12345678" ThenMsgBox ("欢迎你用机!")ElseMsgBox ("对不起，口令错")End IfText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()Text1.Text = ""'**********SPACE**********Text1.【?】 = 8'**********SPACE**********Text1.【?】 = "*"End Sub------------------------------------------------------- '【程序填空】'------------------------------------------------------- ' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。
vb复习题含答案
vb复习题含答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. intC. longD. string答案：A2. VB中，以下哪个是正确的循环结构？A. forB. whileC. both A and BD. neither A nor B答案：C3. 在VB中，以下哪个是正确的条件语句？A. ifB. switchC. caseD. A and B答案：A4. VB中，以下哪个是数组声明的正确方式？A. Dim arr(10) As IntegerB. Dim arr = New Integer(10)C. Both A and BD. Neither A nor B答案：A5. VB中，以下哪个是调用函数的正确方式？A. Call functionName()B. functionName()C. Both A and BD. Neither A nor B答案：C二、填空题1. 在VB中，使用________关键字可以声明一个变量。
答案：Dim2. VB中的________关键字用于定义一个类。
答案：Class3. 要结束一个循环，可以使用________语句。
答案：Exit For 或 Exit Do4. 在VB中，________关键字用于定义一个子程序。
答案：Sub 或 Function5. VB中，________函数可以用来获取当前日期。
答案：Date三、简答题1. 请简述VB中的事件和委托的概念。
答案：事件是用户或程序触发的动作，如鼠标点击或键盘输入。
委托是一种特殊的多态类型，它允许将方法作为参数传递给其他方法，使得事件处理更加灵活。
2. 请解释VB中的继承概念。
答案：继承是面向对象编程的一个基本概念，它允许一个类（子类）继承另一个类（父类）的属性和方法，从而实现代码的复用。
四、编程题1. 编写一个VB程序，实现输入两个整数，计算并输出它们的和。
vb循环结构选择题共24页
一、选择题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的倍数的数将程序补充完整（Ａ）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循环结构选择题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的倍数的数将程序补充完整（Ａ）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-程序的选择结构select-case结构
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"ห้องสมุดไป่ตู้
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89：“良” 70~79：“中”60~69：“及格”
60分以下为“不及格”
2.测试表达式类型应与Case表达式类型一致
【例1】：变量strC中存放一个字符，判断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then
Label1.Caption= strC + "是字母字符"
ElseIf strC >="0" And strC <="9" Then
Is 关系运算表达式
Case is <30
数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
可配合比较运算符来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起
注意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
C = Val(Text3.Text): Picture1.Cls If A = 0 Then
If B = 0 Then MsgBox "系数为零，请重新输入"
Else X = -C / B: Picture1.Print "X="; X
End If Else
VB第5章选择结构
松山区职教中心2010-2011学年度上学期计算机专业第5章选择结构VB试题班级：________考号：________姓名：________总分：_____第一部分:VB（86分）一、单项选择1、在窗体上画一个文本框各一个计时器控件,名称为Text1和Timer1，在属性窗口中把计时器的interval属性设置为1000，enabled属性设置为FALSE。
程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前时间。
以下是实现上述操作的程序： private sub command1_click()Timer1.______end subprivate sub Timer1_timer()text1.text=timeend sub在填空处填入的内容是( )(2分)A、enabled=TRUEB、enabled=falseC、visible=trueD、visible=false2、滚动条控件的Largechange属性所设置的是（ ( )(2分)A、单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量B、滚动条中滚动块的最大移动位置C、滚动条中滚动块的最大移动范围D、滚动条控件无该属性3、若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选数组，在属性窗口中需要且只需要进行的操作是( )(2分)A、把所有单选按钮的INDEX属性改为相同值B、把所有单选按钮的INDEX属性改为连续的不同值C、把所有单选按钮的CAPTION属性值改为相同D、把所有单选按钮的名称改为相同，且把它们的INDEX属性改为连续的不同值4、下列对象中没有焦点属性的是 ( )(2分)A、命令按钮控件B、窗口控件C、文本框控件D、单选框控件5、不具有输入数据功能的控件是（）控件( )(2分)A、文本框B、选项按钮C、列表框D、窗体6、设a="a",b="b",c="c",d="d",执行语句"x=iif(a<b)or(c>d),"A,","B")"后，X的值为( )(2分)A、"a"B、"b"C、"B"D、"A"7、以下关于复选框的说法，正确的是 ( )(2分)A、一个窗体上的所有复选框一次只能有一个被选中B、一个容器中的所有复选框一次只能有一个被选中C、在一个容器中的复选框不可以不被选中D、无论是在容器中还是在窗体中，都可以同时选中多个复选框8、在窗体上画一个命令按钮和一个文本框，名称分别为command1和text1，然后编写如下程序：private sub command1_click( )a=inputbox("请输入日期（1－31）")t="旅游景点：" & iif(a>0 and a<=10,"长城","") & iif(a>10 and a<=20,"故宫","") & iif(a>20 and a<=31,"颐和园","")atext1.text=tend sub程序运行后，如果从键盘上输入16,则在文本框中显示的内容是( )(2分)A、旅游景点：长城故宫B、旅游景点：长城颐和园C、旅游景点：颐和园D、旅游景点：故宫9、在窗体上从左到右有text1,text2两个文本框，要求程序运行时，在text1中输入1个分数后，按回车键，则判断分数的合法性，若分数为0－100中的1个数，则光标移到text2中，否则光标不动，并弹出对话框显示“分数错“，下面程序中正确的是( )(2分)A、private sub text1_keypress(keyascii as integer)if keyascii=13 then '回车符的ACSII码是13a=val(text1)if a>=0 or a<=100 thentext2.setfocuselsetext1.setfocusmsgbox("分数错")end ifend ifend subB、private sub text1_keypress(keyascii as integer) if keyascii=13 then '回车符的ACSII码是13a=val(text1)if a>=0 and a<=100 thentext1.setfocuselsetext2.setfocusmsgbox("分数错")end ifend ifend subC、private sub text1_keypress(keyascii as integer) if keyascii=13 then '回车符的ACSII码是13a=val(text1)if a<0 and a>100 thentext2.setfocuselsetext1.setfocusmsgbox("分数错")end ifend ifend subD、private sub text1_keypress(keyascii as integer)if keyascii=13 then '回车符的ACSII码是13a=val(text1)if a>=0 and a<=100 thentext2.setfocuselsetext1.setfocusmsgbox("分数错")end ifend ifend sub10、某人在窗体上画了一个名称为Timer的计时器和一个名称为Lab的属性为Enabled=True，Interval=0,并编程如下。
vb大一选择程序结构习题答案答案
4.2习题一、选择题1. 以下不正确的单行结构条件语句是（ D）。
（A）If x>y Then Print ＂x>y＂（B）If x Then t=t*x（C）If x Mod 3=2 Then Print x（D）If x<0 Then y=2*x-1: Print x End If2. 给定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print ＂#####＂ Else Print ＂*****＂以上程序（ C ）。
（A）没有输出（B）有语法错（C）输出#####（D）输出***** 3. 运行下面程序后，在弹出的消息窗口中显示的是（ D）。
Private Sub Form_Click()score=Int(Rnd)+5Select Case scoreCase 5a$="Good"Case 4a$="Ok"Case 3a$="Pass"Case Elsea$="Bad"End SelectMsgBox a$End SubA、BadB、PassC、OkD、Good4. 下面语句书写正确的是（D）。
(A) If a>max Then max=a Else max=b End If(B) If a>max Then max=aElse max=bEnd If(C) If a>max Thenmax=aElsemax=6( D) If a>max Thenmax=aElsemax=6End If5. 执行下列程序段输出的结果为（ C ）。
a=3IF a>0 ThenPrint ＂###＂ElsePrint ＂$$$＂End IfA) ###$$$B) $$$###C) ###D) $$$6. 下面程序段运行后,显示的结果是( B )dim xif x then print x else print x+1(A) 1 (B) 0 (C) -1 (D) 显示出错信息7: 语句IF x=1 THEN y=1, 下列说法正确的是( C )(A) X=1和Y=1均为赋值语句 (B) X=1和Y=1均为关系表达式(C) X=1为关系表达式,Y=1为赋值语句 (D) X=1为赋值语句,Y=1为关系表达式8. 用IF 语句表示分段函数，⎩⎨⎧<+≥+=1311)(2x x x x x f 下列程序段不正确的是( A )(A) If x>=1 then f=sqr(x+1) (B) If x>=1 then f=sqr(x+1)F=x*x+3 if x<1 then f=x*x+3(C) F=x*x+3 (D) f=sqr(x+1)If x>=1 then f=sqr(x+1) If x<1 then f=x*x+39. 下面IF 语句统计满足性别（sex ）为男，职称（duty ）为副教授以上，年龄（age ）小于40岁条件的人数，不正确的语句是( D )(A) If sex=”男” and age<40 and instr(duty,”教授”)>0 then n=n+1(B) If sex=“男” and age<40 and (duty=“教授” or duty=“副教授”) then n=n+1(C) If sex=“男” and age<40 and right(duty,2)=“教授” then n=n+1(D) If sex=“男” and age<40 and duty=“教授” and duty=“副教授” then n=n+110. 下面程序段求两个数中的大数，( D )不正确。
vb考试试题和答案
vb考试试题和答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. If答案：A2. VB中的Print方法用于做什么？A. 打印文档B. 显示消息框C. 在窗体上显示输出D. 打开文件答案：C3. 以下哪个是VB中的循环结构？A. ForB. IfC. SubD. Function答案：A4. VB中如何使用数组？A. 使用Dim关键字声明B. 使用Sub关键字声明C. 使用Function关键字声明D. 使用If关键字声明答案：A5. 在VB中，哪个函数用于将字符串转换为数值？A. ValB. StrC. IntD. Chr答案：A6. VB中的哪个控件用于输入文本？A. LabelB. TextBoxC. ButtonD. ComboBox答案：B7. 在VB中，哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. KeyDown答案：A8. VB中的哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A9. 在VB中，以下哪个是正确的条件语句？A. If...ThenB. For...NextC. While...WendD. Do...Loop答案：A10. VB中如何声明一个函数？A. 使用Sub关键字B. 使用Function关键字C. 使用Dim关键字D. 使用If关键字答案：B二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个变量。
答案：Dim2. VB中的________方法用于在窗体上显示输出。
答案：Print3. VB中的________结构用于重复执行代码块。
答案：For4. VB中使用________函数可以将字符串转换为数值。
答案：Val5. VB中的________控件允许用户输入文本。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
'【程序填空】'-------------------------------------------------------'功能：输入任何一个英文字母x,' 若x的值为"a","c","d-f" ,则显示x的大写字母；' 若x的值为"m","o","p-z",则显示x的小写字母；' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
'-------------------------------------------------------Private Sub Command1_Click()x = Text1.Text'**********SPACE**********【?】'**********SPACE**********Case 【?】Label1.Caption = UCase(x)Case "m", "o", "p" To "z"Label1.Caption = LCase(x)Case Else'**********SPACE**********【?】End SelectEnd Sub-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。
' 判断密码是否正确，并显示相应提示' 在加载窗体时设置密码框最大长度为8，密码显示字符为“*”'-------------------------------------------------------dim x as stringPrivate Sub Command1_Click()x = Text1.Text'**********SPACE**********If x 【?】 "12345678" ThenMsgBox ("欢迎你用机!")ElseMsgBox ("对不起，口令错")End IfText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()Text1.Text = ""'**********SPACE**********Text1.【?】 = 8'**********SPACE**********Text1.【?】 = "*"End Sub------------------------------------------------------- '【程序填空】'------------------------------------------------------- ' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。
'------------------------------------------------------- Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x'**********SPACE**********【?】Label1.Caption = "+"Case Is < 0'**********SPACE**********【?】'**********SPACE**********【?】Label1.Caption = "零"End SelectEnd Sub'------------------------------------------------------- '【程序填空】'-------------------------------------------------------'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好' (75分以上),及格(60分以上),不及格几个等级。
'------------------------------------------------------- Private Sub Command1_Click()x = Val(Text1.Text)If x >= 90 ThenLabel1.Caption = "优秀"'**********SPACE**********ElseIf 【?】ThenLabel1.Caption = "良好"ElseIf x >= 60 Then'**********SPACE**********【?】'**********SPACE**********【?】Label1.Caption = "不及格"End IfEnd Sub'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：已知用inputbox函数输入两个数x和y，比较它们的大小，' 使得x大于y。
'-------------------------------------------------------Private Sub Form_Click()Dim x As Single, y As Singlex = InputBox("输入数据1：")'**********SPACE**********y =【?】Print "x值", "y值"Print x, yIf x < y Then'**********SPACE**********【?】'**********SPACE**********【?】'**********SPACE**********【?】End IfPrint x, yEnd Sub'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序的功能为，单击窗体后如果输入的数据分别为"W"，"8"和"？"时，' 窗体上显示的内容分别是：W is Alpha Character、8 is Numeral Character、' ？is Other Character'-------------------------------------------------------Private Sub Form_Click()Dim strC As String * 1strC = InputBox("请输入数据")'**********SPACE**********Select Case 【?】'**********SPACE**********Case "a" To "z" 【?】Form1.Print strC + " Is Alpha Character"Case "0" To "9"Form1.Print strC + " Is Numeral Character"'**********SPACE**********【?】 ElseForm1.Print strC + " Is Other Character"End SelectEnd Sub'------------------------------------------------'【程序改错】'------------------------------------------------'题目：以下程序功能是输入三个数，由大到小排序。
'------------------------------------------------Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click()Dim nTemp As IntegerA = Val(InputBox("Please input first integer", "输入正整数"))B = Val(InputBox("Please input second integer", "输入正整数"))C = Val(InputBox("Please input third integer", "输入正整数")) '**********FOUND**********If A <= C ThennTemp = AA = BB = nTempEnd If'**********FOUND**********If B <= C ThennTemp = AA = CC = nTempEnd If'**********FOUND**********If A <= B ThennTemp = BB = CC = nTempEnd IfPrint "The integers in order is"; A; B; CEnd Sub'------------------------------------------------'【程序改错】'------------------------------------------------'题目:请根据下列描述编写购物优惠程序。