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 Select
End Sub
-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。' 判断密码是否正确，并显示相应提示
' 在加载窗体时设置密码框最大长度为8，密码显示字符为“*”
'-------------------------------------------------------
dim x as string
Private Sub Command1_Click()
x = Text1.Text
'**********SPACE**********
If x 【?】 "12345678" Then
MsgBox ("欢迎你用机!")
Else
MsgBox ("对不起，口令错")
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Private 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 Select
End Sub
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好
' (75分以上),及格(60分以上),不及格几个等级。
'------------------------------------------------------- Private Sub Command1_Click()
x = Val(Text1.Text)
If x >= 90 Then
Label1.Caption = "优秀"
'**********SPACE**********
ElseIf 【?】Then
Label1.Caption = "良好"
ElseIf x >= 60 Then
'**********SPACE**********
【?】
'**********SPACE**********
【?】
Label1.Caption = "不及格"
End If
End Sub
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：已知用inputbox函数输入两个数x和y，比较它们的大小，
' 使得x大于y。
'-------------------------------------------------------
Private Sub Form_Click()
Dim x As Single, y As Single
x = InputBox("输入数据1：")
'**********SPACE**********
y =【?】
Print "x值", "y值"
Print x, y
If x < y Then
'**********SPACE**********
【?】
'**********SPACE**********
【?】
'**********SPACE**********
【?】
End If
Print x, y
End Sub
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：以下程序的功能为，单击窗体后如果输入的数据分别为"W"，"8"和"？"时，
' 窗体上显示的内容分别是：W is Alpha Character、8 is Numeral Character、' ？is Other Character
'-------------------------------------------------------
Private Sub Form_Click()
Dim strC As String * 1
strC = 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**********
【?】 Else
Form1.Print strC + " Is Other Character"
End Select
End Sub
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目：以下程序功能是输入三个数，由大到小排序。
'------------------------------------------------
Option Explicit
Dim A As Integer
Dim B As Integer
Dim C As Integer
Private Sub Form_Click()
Dim nTemp As Integer
A = Val(InputBox("Please input first integer", "输入正整数"))
B = Val(InputBox("Please input second integer", "输入正整数"))
C = Val(InputBox("Please input third integer", "输入正整数")) '**********FOUND**********
If A <= C Then
nTemp = A
A = B
B = nTemp
End If
'**********FOUND**********
If B <= C Then
nTemp = A
A = C
C = nTemp
End If
'**********FOUND**********
If A <= B Then
nTemp = B
B = C
C = nTemp
End If
Print "The integers in order is"; A; B; C
End Sub
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:请根据下列描述编写购物优惠程序。某商场为了
' 加速促成商品流通，采用购物打折的优惠办法，每
' 位顾客一次购物（1）在100元以上者，按九五折优惠；' （2）在200元以上者，按九折优惠；（3）300元以上
' 者，按八折优惠；（4）500元以上者按七折优惠。
'------------------------------------------------ Option Explicit
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 100 Then
'**********FOUND**********
x = y
Else
If x < 200 Then
y = 0.95 * x
Else
If x < 300 Then
y = 0.9 * x
Else
If x < 500 Then
y = 0.8 * x
Else
y = 0.7 * x
'**********FOUND**********
Else If
End If
End If
End If
'**********FOUND**********
Text2.Text = x
End Sub
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:密码判断程序，如果密码为12345则显示“恭喜，密码正确”，' 否则显示“很遗憾，密码错误”，要求文本框中只允许输入数字。
'------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim strPws As String
strPws = Trim(Text1.Text)
'**********FOUND**********
If Len(strPws) <> 0 Then Exit Sub
If strPws = "12345" Then
'**********FOUND**********
MsgBox "恭喜，密码正确", 验证
Else
MsgBox "很遗憾，密码错误", , "验证"
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'**********FOUND**********
If Not (KeyAscii >= 49 And KeyAscii <= 57) Then
KeyAscii = 0
End If
End Sub
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。
'------------------------------------------------
Option Explicit
Private Sub Form_Load()
Dim a!, b!, c!, root1#, root2#, work As Double
a = Val(InputBox(" 请输入系数a的值"))
b = Val(InputBox(" 请输入系数b的值"))
c = Val(InputBox(" 请输入系数c的值"))
'**********FOUND**********
work = b * 2 - 4 * a * c
If work >= 0 And a <> 0 Then
'**********FOUND**********
root1 = (Sqr(work)) / (2 * a)
'**********FOUND**********
root2 = (Sqr(work)) / (2 * a)
Debug.Print "有二个实根" + Str$(root1) + "," + Str$(root2) Else
Debug.Print "无实根!"
End If
End Sub
'-------------------------------------------------------
'【程序设计】
'-------------------------------------------------------
'题目：(事件)单击窗体
' (响应)用输入框输入一自然数，判断是"正数"、"负数"
或"零"，并根据输入的数用消息框显示"正数"、"负数"
或"零"。
'题目：请用Select语句编程计算打折后的金额？
'折扣方法如下:
' 购物300以下，无优惠（使用MsgBox显示“无优惠”）；
' 购物300以上，95折；
' 购物500以上，9折；
' 购物1000以上，85折；
' 购物5000以上，8 折?
'
计算机题库VB25
试卷编号：25 所属语言：Visual Basic 试卷方案：VB程序设计 试卷总分：100分 共有题型：4种 一、单选共15题（共计30分） 第1题（2.0分）题号:2299 难度:中第1章 将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是(). A:运行的机器上无VB系统所需的动态连接库 B:缺少.frm窗体文件 C:该可执行文件有病毒 D:以上原因都不对 答案：A 第2题（2.0分）题号:2344 难度:中第2章 下列字符串常量中,最大的是(). A:"北京" B:"上海" C:"天津" D:"广州" 答案：C 第3题（2.0分）题号:2436 难度:中第2章 能正确表达a≤1或a≥5的逻辑表达式是(). A:a<=1或a>=5 B:a<=1,a>=5 C:a<=10 Or a>=5 D:a<=l And a>=5 答案：C 第4题（2.0分）题号:2539 难度:中第2章 用一个程序段对一个对象被单击(或双击)做出响应,从而实现指定的操作,称为(). A:可视化程序设计 B:事件驱动编程机制 C:过程化程序实际方法
D:非过程化程序设计语言 答案：B 第5题（2.0分）题号:2601 难度:中第3章 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() K = 3 If X < 3 Then Print X + 3; If X < 4 Then Print X + 4; If X < 5 Then Print X + 5; If X< 6 Then Print K + 6; Print End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(). A:6 7 8 9 B:7 8 9 C:8 9 D:9 答案：B 第6题（2.0分）题号:2662 难度:中第3章 运行下面程序后,在窗体中显示的是(). Private Sub Form_Click() a$="*": b$="$" For k=1 To 3 x$=String$(Len(a$)+k,b$) Print x$; Next k Print End Sub A:*** ** **** B:*$*$*$ C:1*$2*$3*$ D:$$$$$$$$$ 答案：D
VB循环结构测试题及答案
循环结构测试题(四) 一：选择题 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 3 re: …. …… Next x next y If I=10 then goto re 2:下列循环语句能正常结束循环的是（） （A）I=5 (B) I=1 do do I=I+1 I=I+2 Loop until I<0 loop until I=10 (C) I=10 (D) I=6 do do
I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（ ） for I=3 to 1 step –1 print spc(5-I); for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print ; end sub (A) ABCD (B) ( C ) AABABCABCD * * * * (B) * * * * * * * * (C) * * * * * * * * (D) * * * * * * * * A B C (D) A AB ABC
5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） 二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*” 。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 30 for j=1 to 12 step 3 40 for k=6 to 2 step –2 41 print j,k 42 next k （A ） for I=1 to 4 n=1 for j=1 to I （B ） for I=1 to 4 for j=1 to I n=1 (C) N=1 for j=1 to 4 (D) N=1 J=1 Do while j<=4
vb题库(选择与填空)
一、单选题（每小题1分，共99 分） 1. 假定Picture1 和Text1 分别为图片框和文本框的名称，下列语句中不正确的是______ 。 A Picture1.Print 25 B Text1.Print 25 C Print 25 D Debug.Print 25 2. 在Visual Basic 中要将一个窗体从内存中释放，应该使用以下语句中的______ 。 A UnLoad B Stop C Close D Hide 3. 如果组合框ComBo1中已有10项数据，应使用语句______将数据"Mydata"插入到第5项。 A ComBo1.Insert "Mydata", 4 B ComBo1.Insert "Mydata", 5 C ComBo1.AddItem "Mydata", 5 D ComBo1.AddItem "Mydata", 4 4. 如果列表框List1中已有10项数据，应使用语句______将数据"Mydata"插入到列表框的第3项。 A List1.Insert "Mydata", 3 B List1.AddItem "Mydata", 2 C List1.AddItem "Mydata" ,3 D List1.Insert "Mydata", 2 5. 语句If x=1 Then y=1，下列说法正确的是____________。 A x=1和y=1为赋值语句 B x=1为赋值语句，y=1为关系表达式 C x=1为关系表达式，y=1为赋值语句 D x=1和y=1均为关系表达式 6. 删除列表框中指定的项目所使用的方法为______ 。 A Move B Clear C Remove D RemoveItem 7. 不论何控件，共同具有的属性是______________。 A ForeColor B Name C Text
2012年全国计算机等级考试二级VB上机考试试题题库
2012二级VB上机考试试题题库 VB考试上机试题 1) .新建一个工程，实现单击Command1将text1中的内容复制（或者剪切）到Text2中。（要求使用Clipboard对象）保存。 窗体上一个text文本框，两个command按钮，caption分别为“剪切”，“恢复”，运行后要求在text1中输入文本，点“剪切”，把text1中的内容剪切掉，点”恢复“，把text1中的内容恢复出来。提示：定义一个变量用来存放text1中的内容。 2) .新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。 3) .新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好！网络之家”这几个字。保存。 4) .新建一个工程，在Form1界面创建Form2，Form3两个子菜单的Forms菜单，选择Form2子菜单，以无模式显示Form2,选择Form3子菜单，以有模式显示Form3.保存。5) .新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用MsgBox显示：“第二个按纽被按下”；按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。保存。
6) 。新建一个工程，包含两个窗体Form1,Form2。实现功能制作－－－欢迎界面，时间为三秒，三秒后，Form1消失，Form2出现。保存。 7) 。新建一个工程，实现功能限制：在Text1中只能输入10个字母，超过的在Text2中显示。保存。 8) 。新建一个工程，实现功能单击Text1框时，Text1中的内容被全选。保存。 9) 。新建一个工程，实现功能点击Command1按钮，读取系统的汉字字型，在ComBox列表框中显示。保存。 10) 。新建一个工程，实现单击Commmand1将Text1的内容剪切到Text2中。（上次的那道题目是复制）保存。 11) 。新建一个工程，其中含五个单选按钮，两个面板StratusBar1. 第一面板题“欢迎探讨”，点击单选按钮时，第二个面板标题为选中的标题号。保存。 12) 。新建一个工程，使用打开对话框找到某一文件（硬盘上任意一文本文件），带全路径的文件名，显示在一文本框内。保存。
VB顺序结构练习
VB顺序结构及选择结构练习 一、单选题 1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程 Private Sub Command1_Click() b=5 c=6 Print a = b + c End Sub 程序运行后，单击命令按扭，其结果为（D） A）a=11 B）a=b + c C）a= D）False 2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程 Private Sub Command1_Click(D) a=11 b=5 c=6 Print a = b + c End Sub 程序运行后，单击命令按扭，其结果为（） A）a=11 B）a=b + c C）a= D）True 3.以下语句的输出结果是（B） a = Sqr(3) Print Format(a,”$$#### : ###”) A）$1.732 B）$$1.732 C）$1732 D）$$00001.732 4.以下程序段的输出结果是（D） a = Sqr(3) b = Sqr(2) c =a>b Print c A）-1 B）0 C）False D）True 5.以下语句的输出结果是（C） Print Format$ (32548.5,”000,000.00”) A）32548.5 B）32,548.5 C）032,548.50 D）32,548.50 1.假定有如下语句： answer$=MsgBox(“String1”,, “String2”, “String3”,2) 执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）1
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# （2）下列数据哪些是变量，哪些是常量？是什么类型的常量？ Name “name” False ff “11/16/99” cj “120” n #11/12/2004# 12.345 （3） 下列符号中，哪些可以是Visual Basic 的合法变量名？ A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx π （4）把下列数学表达式写成Visual Basic 表达式： （1）5||z y x ++ （2）6 )1(xy + （3）xy y x 310+ （4）a ac b b 242-+- （5）3211111 r r r + + （6） 110ln 45sin 10 ++++y x e ο （5）写出下列表达式的值： （1）123 + 23 Mod 10 \ 7 + Asc("A") （2）Int(68.555 * 100 + 0.4) / 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(-3.14159) （2）Fix(-3.14159) （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(-459.55) （12）UCase("Visual Basic") 二、 选择题 （1）可以同时删除字符串前导和尾部空格的函数是 。 A. Ltrim B. Rtrim C. Trim D. Mid （2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子sin25o写成Visual Basic 表达式是 。 A.Sin25 B. Sin(25) C. Sin(25o) D. Sin(25*3.14/180) （4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式103<≤x 表示成正确的VB 表达式为 。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10 （6）已知A=”12345678”，则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是 。
《VB》对口高考模拟试题
《VB》对口高考模拟试题1 一、选择题。（每个1分，共30分） 1、某一VB工程含F1、F2两个窗体，执行“F1．Show: F2．Hide”语句后，F1、F2窗体显示的结果为（）。 A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示F2窗体 2、删除列表框中指定的项目所使用的方法为（） A move B remove C clear D removeitem 3、Integer类型的变量可存放的最大整数是（）。 A、255 B、256 C、32768 D、32767 4、下列符号不能作为VB中变量名的是（）。 A 、abcd B、p1234 C、89edf D、xyz 5、将焦点主动设置到指定的控件或窗体上，应采用的方法是（）。 A、SetDate B、SetFocus C、SetText D、GetGate 6、若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（）。 A、Text属性值为* B、Caption属性值为* C、Password属性值为空 D、Passwordchar属性值为* 7、表达式10+10Mod3*3的值为（）。 A、11 B、2 C、13 D、6 8、数学式子Sin25?写成VB表达式是（）。 A、Sin25 B、Sin（25） C、SIN（25?） D、Sin（25*3.14/180）9．Sub过程与Function过程最根本的区别是（）。 A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。 B、Function过程可以有参数，Sub过程不可以。 C、两种过程参数的传递方式不同。 D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。 10、多窗体程序由多个窗体组体组成，在缺省的情况下，VB在执行应用程序时，总是将（）指定为启动窗口。 A、不包含任何控件的窗口 B、包含控件最多的窗口 C、命名为Form1的窗体 D、设计时的第一个窗体 11、要退出Do…Loop循环，可使用的语句是（）。 A、Exit B、Exit For C、End Do D、Exit Do 12、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（）。 Private Function Sum( a,b,c) a=a+1:b=b+1:c=c+1 Sum=a+b+c End Function Private Sub Command1_Click( ) a=1:b=2:c=3 Call Sum(a,b,c) Print a;b;c End Sub A、1 2 3 B、2 3 4 C、3 4 5 D、4 5 6 13、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（）。 Private Function Sum( ByVal a, ByVal b,ByVal c) a=a+1:b=b+1:c=c+1 Sum=a+b+c End Function Private Sub Command1_Click( ) a=1:b=2:c=3 Call Sum(a,b,c) Print a;b;c End Sub A、1 2 3 B、2 3 4 C、1 3 4 D、1 2 4 14、以下叙述中错误的是：( ) A）双击鼠标可以触发DblClick事件 B）窗体或控件事件的名称都可以由编程人员设定 C）移动鼠标时，会触发MouseMove事件 D）控件的名称可以由编程人员设定 15、InputBox函数返回值的类型为（）。 A) 数值B) 字符串C) 变体D) 数值或字符串（视输入的数据而定） 16、如果有声明Dim a(15) as integer ,则该数组共有（）个元素。 A 15 B 16 C 13 D 不确定 17、如果在上题语句前加入option base 1,则该数组共有（）个元素。 A 15 B 16 C 13 D 不确定 18、在窗体上添加一个列表框，然后编写如下两个事件过程： Private sub Form_click( ) List1.removeitem 3 List1.removeitem 0 List1.removeitem 1 End sub Private sub Form_load( )
全国计算机二级VB考试真题和答案
2007年春 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种：Visual Basic 第一部分计算机基础知识 1．微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。在下列有关叙述中，错误的是。 A．A．目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件 B．B．Moore定律指出，单块IC的集成度平均每半年翻一番 C．C．从原料熔练到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高 D．D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡 2．在下列有关通信中使用的传输介质的叙述中，错误的是。 A．A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离大约100m B．B．同轴电缆可用于传输电视信号 C．C．光纤价格高，一般不在校园网和企业网中使用 D．D．微波的波长很短，适合于长距离、大容量无线通信 3．二进制数（1010） 2与十六进制数（B2） 16 相加，结果为。 A．(273) 8B.(274) 8 C.(314) 8 D.(313) 8 4.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6，则在这段文本中含有。 A．1个汉字和9个西文字符 C.3个汉字和5个西文字符 B.2个汉字和7个西文字符 D.4个汉字和3个西文字符 5.在下列有关CPU的叙述中,错误的是 . A. A.CPU的主要组成部分有运算器、控制器和寄存器组 B. B.CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所 不同 C. C.为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU） D. D.目前PC机所有的CPU芯片均为Intel公司的产品 6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键（通常是Del键）则可以启动CMOS设置程序。这些程序运行的顺序是。 A．A．POST程序->CMOS设置程序->系统自举程序->引导程序 B．B．POST程序->引导程序->系统自举程序->CMOS设置程序 C．C．CMOS设置程序->系统自举程序->引导程序->POST程序 D．D．POST程序->CMOS设置程序->引导程序->系统自举程序 7.目前PC机一般都有USB和FirWire接口,用于连接各种外部设备.在下列关于这两种接口的叙述中,错误的是 . A. https://www.wendangku.net/doc/c813096594.html,B是一种串行接口,可以连接键盘、鼠标器、优盘、数码相机等 多种设备
《VB选择结构程序设计》教学设计
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：
VB--过程练习题
《Visual Basic 程序设计》寒假作业 一、选择题 1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。 A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n) 2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。 A．按参数传递 B．按数值传递 C．按地址传递 D．按位置传递 3．Sub过程与Function过程最根本的区别是_______。 … A． Sub过程可以直接使用过程名调用，而Function过程不可以 B． Function过程可以有参数，而Sub过程不可以 C．两种过程参数传递方式不同 D． Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。 A． ByVal B． ByRef C． Value D． reference 5．可以执行“工具”菜单中的_______命令来建立通用过程。 A．添加过程 B．通用过程 C．添加模块 D．添加窗体 】 6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。A，2 A． Cir 3,8 B． Call Cir x, y C． Call Cir 2*x, y D． Call Cir (3,8, y) 7. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private x As Integer Private Sub Command1_Click() a = 6: b = 4 Call sub1(a, b) = a ： = b End Sub Private Sub sub1(ByVal x As Integer, ByVal y As Integer) a = x * x b = y * y End Sub 程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。
vb选择结构教案
卓资县职业中学实训学案 班级_____姓名_________科目： VB 程序设计主备：闫森审核：日期： 课题：选择结构程序设计实际应用（2） 实验目的： 1、掌握If语句的使用。 2、掌握Select Case语句的使用。 实验内容与过程 说第一步：独学（请同学们独立完成以下任务） 知识回顾： 1、单分支条件语句格式：①IF <表达式> THEN 语句块 End If ②IF <表达式> THEN 语句块 2、双分支条件语句格式： IF <表达式> THEN 语句块1 Else 语句块2 End If 任务1(基本设计题) 题目：一般网络游戏只允许成年人进入，你来编写一个根据 明 ： 本 节 课 只 完 成 任 务 1 和 任 务 2 的 题 目 要 求 及 问 年龄判断是否成年的小程序。（规定成年人年龄>18周岁） 请你根据题意，利用双分支条件语句格式2种方法（单行和 多行）编写程序代码，并上机测试。 设计界面如下： 编写程序代码：
题 。课后作业下次实训务必完成。第二步：合作（问题）探究（对学、群学） 任 务 2. （ 提 高 设 计 题） 在 “ 神州号”程序中，需要判断飞船飞行状况。当飞船速度继续 加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试 编写程序，输入不同的飞船速度V，判断它的各种飞行状况， 显示出来 飞船速度V 单位 （km/s） 飞行状况情况 程序界面如下： 补充程序代码： Private Sub command1_click() Dim V AS single, n AS integer V= VAL(InputBox(“SPEED=”,”输入速度”)) <=V< 1--Move around Earth飞船绕 地球做匀速圆周运动 1 11 19<=V< 2--Move around SUN飞船离开 地球的控制 ,围绕太阳转 2 V> 3--Break gravitate of solar 飞船挣脱太阳引力飞出太阳 系 3 其它警告出错信息0
VB循环结构测试题及答案
循环结构测试题（四） ：选择题 1 ：以下（）是正确的for….nex结构。 (A) for x=1 to step 10 (B) for x=3 to -3 step -3 next x (C ) for x=1 to 10 re: … Next x If I=10 then goto re 2 :下列循环语句能正常结束循环的是( (A)I=5 do I=I+1 Loop until I<0 (C) I=10 do I=I-1 Loop until I<0 3 :下面程序段的运行结果为( ) for I=3 to 1 step -1 print spc(5-I); next x (D) for x=3 to step 3 next y ) (B) I=1 do I=I+2 loop until I=10 (D) I=6 do I=I-2 loop until I=1
for j=1 to 2*1-1 print “ * n ext j print next I 4下列程序在文本框输入B ）“* * ABCD ”四个字符时*窗体上显示D 是* （* * ） * * * ***** private sub text1_cha nge() print textl.text; end sub 2:下面程序段显示=i(② for j=1 to 4 For I=1 to n=n*j print n For j=2 j to I Print Next j Next I (A) ABCD (B) (D) A (C ) AABABCABCD AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的( ABC (A) 二：填空题 1:要使下列 for I=1 to 4 n=1 for j=1 to I n=n*j F(5 vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23 25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb 全国计算机VB等级考试历年全真试题 （共15套，含答案） ２００５年4月份二级VB真题（附参考答案） （考试时间90分钟，满分100分） 一、选择题((1)~(35)每小题2分，共70分) 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 (1)数据的存储结构是指 A) 存储在外存中的数据B) 数据所占的存储空间量 C) 数据在计算机中的顺序存储方式D) 数据的逻辑结构在计算机中的表示 (2)下列关于栈的描述中错误的是 A)栈是先进后出的线性表B) 栈只能顺序存储 C)栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针 (3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 A) 冒泡排序为n/2 B) 冒泡排序为n C) 快速排序为n D) 快速排序为n(n-1)/2 (4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为 A) log2n B) n/2 C) n D) n+1 (5)下列对于线性链表的描述中正确的是 A)存储空间不一定是连续，且各元素的存储顺序是任意的 B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面 C)存储空间必须连续，且前件元素一定存储在后件元素的前面 D)存储空间必须连续，且各元素的存储顺序是任意的 (6)下列对于软件测试的描述中正确的是 A)软件测试的目的是证明程序是否正确 B)软件测试的目的是使程序运行结果正确 C)软件测试的目的是尽可能多地发现程序中的错误 D)软件测试的目的是使程序符合结构化原则 (7)为了使模块尽可能独立，要求 A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 (8)下列描述中正确的是 A) 程序就是软件 B) 软件开发不受计算机系统的限制 C) 软件既是逻辑实体，又是物理实体 D) 软件是程序、数据与相关文档的集合 (9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 A) 数据与程序独立存放 B) 不同的数据被存放在不同的文件中 C) 不同的数据只能被对应的应用程序所使用 D) 以上三种说法都不对 (10) 用树形结构表示实体之间联系的模型是 1. 下列VB程序段的基本结构是( ) If x<=12 Then y=3x Else y=4x End If A.分支结构 B.顺序结构 C.循环结构 D.树形结构 答案: A 2. 关于算法，说法不正确的是（） A.算法是程序设计的灵魂 B.解决问题的过程就是实现算法的过程 C.算法独立于任何具体的语言，VB 算法只能用VB语言来实现 D.算法的作用在于记录和交流人类解决问题的思想 答案: C 3. if x>=10 then y=5*x else y=4*x 以上程序段属于（） A.顺序结构 B.分支结构 C.循环结构 D.流程结构 答案: B 4. 在VB中,利用（）显示和编辑程序代码。 A.工程资源管理器窗口 B.窗体设计器窗口 C.代码编辑窗口 D.属性窗口 答案: C 5. 下面保存VB程序的说法正确的是（) A.只保存窗体文件 B.只保存工程文件 C.分别保存工程文件和标准模块文 件 D.分别保存窗体文件和工程文件 答案: D 6. VB中，数据类型整型用（）表示。 答案: A 7. 数学式(2a-b)/(2a+b)在VB中的正确写法是（） A.(2*a-b)/(2a+b B.(2*a-b)/2*a+b C.(2a-b)/(2a+b) D.(2*a-b)/(2*a+b) 答案: D 8. 在VB中，当a=2，b=3时，表达式a>b的值是（） A. True C. 0 D. 1 答案: B 9. 下列程序段属于( ) Select Case x Case 1 ="优秀" Case 2 ="良好" Case 3 ="一般" Case Else ="较差" End Select A.顺序结构 B.分支结构 C.循环结构 D.流程结构 答案: B 10. 1. 单选题：（4.0分） 有如下程序： Private Sub Command1_Click() x = InputBox("input value") Select Case x Case Is > 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub 假设运行时从键盘上输入-5，输出结果是_______。 A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 解答：A 参考答案： A 2. 单选题：（4.0分） 下列程序段的执行结果是_______。 X = 2 Y = 1 If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 A. True B. False C. -1 D. 1 解答：B 参考答案： B 3. 单选题：（2.0分） 关于语句If x=1 Then y=1，下列说法正确的是_______。 A. x=1和y=1均为赋值语句 B. x=1和y=1均为关系表达式 C. x=1为关系表达式，y=1为赋值语句 D. x=1为赋值语句，y=1为关系表达式 解答：C 参考答案： C 4. 单选题：（2.0分） Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_______。 A. Case 20>Is B. Case x<=8 ，10 to 25 C. Case Is>9 And Is<25 D. Case Is>x 解答：D 参考答案： D 5. 单选题：（4.0分） 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is < 10 X = 30 Case 10 X = 40 End Select Text2.Text = X End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是____ A. 10 B. 20 C. 30 D. 40 1、VB应用程序中可以包括三种模块：( 窗体模块)、( 标准模块) 和类模块。 2、下列过程不能在标准模块中定义的是( A )。 A、事件过程 B、子过程 C、函数过程 D、公共过程 3、以下叙述中错误的是D A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B、Sub过程中不能嵌套定义Sub过程 C、Sub过程中可以嵌套调用Sub过程 D、事件过程可以像通用过程一样由用户定义过程名 2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上( 窗体名称)。 2、自定义的过程有两种形式：＿Sub＿和＿Function＿。 3、用于退出过程的语句是( D )。 A、Exit B、Exit For C、Exit Do D、Exit Sub 4、在过程的参数列表中列入__ Optional __关键字，就可以指定过程的参数为可选的。 5、如果使用Call关键字来调用一个需要参数的过程，参数就必须要加上__括号__。 1、在窗体代码中有以下事件过程的声明，其中Private表示( B ) Private Sub lblAbc_Change() …… End Sub A、此过程可以被任何其它过程调用 B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被其它过程调用 D、此过程只可以被本工程中的其它过程调用 9、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是( A )。 A、Add 12,5 B、Call(2*x,Add(1.57)) C、Call Add x,y D、Call Add(12,12,x) 10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是( C )。 A、Sub Procl(ByVal,n,ByVal m) B、Sub Procl(n,ByVal m) C、Sub Procl(n,m) D、Sub Procl(ByVal n,m) 6、写出单击命令按钮Command1时的窗体显示结果。 Public Sub Proc(ByRef n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x as Integer,y As Integer x=15:y=30 Call Proc(x,y) Print x;yvb练习题及答案.doc
全国计算机VB等级考试历年全真试题(共15套,含答案)
微机vb选择题
淮阴工学院vb选择填空题
VB考试题及答案