09生工类vb综合练习题第一套
满分：119分
1、单项选择题(本题共计104分)
1、能被对象所识别的动作与可执行的活动分别称为对象的________。A、方法、事件
B、事件、方法
C、事件、属性
D、过程、方法
2、以下关于事件的说法，正确的是________。 ( )
A、事件是由系统预先定义好的，能够被对象识别的动作
B、用户可以根据需要建立新的事件
C、事件的名称是可以改变的，由用户预先定义
姓名：________
( )
D、不同类型的对象所能识别的事件一定不相同
3、VisualBasic中的工程文件的扩展名是____________。 ( )
A、.reg
B、.frm
C、.bas
D、.vbp
4、VisualBasic中的标准模块文件的扩展名是____________。A、.reg
B、.frm
C、.bas
D、.vbp
5、VisualBasic中的窗体文件的扩展名是____________。 ( A、.reg
( )
)
B、.frm
C、.bas
D、.vbp
6、________是接收用户鼠标或键盘输入的能力。当对象具有____________时，可接受用户的输入。 ( )
A、事件
B、属性
C、焦点
D、对象
7、所谓____________就是使某个对象进入活动状态（又称激活）的一种操作或动作。 ( )
A、事件
B、属性
C、方法
D、对象
8、将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是____________。 ( )
A、运行的机器上无VB系统
B、缺少.frm窗体文件
C、该可执行文件有病毒
D、以上原因都不对
9、________在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。A、方法
B、属性
C、事件
D、工程
10、VB的使用目的是________________________。 ( )
A、开发Windows应用程序
)
(
B、图像处理
C、制作WAV文件
D、文字处理
11、VisualBasic是一种面向________的程序设计语言。 ( )
A、过程
B、用户
C、方法
D、对象
12、下面________语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。 ( )
A、List1.AddItem“ABC”，List1.ListIndex
B、List1.Text=“ABC”
C、List1.List(List1.ListIndex)=“ABC”
D、前三项均可
13、下面所列的控件属性中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是________。 ( )
A、List1.ListCount
B、Text1.Index
C、Dir1.Path
D、Label1.Visible
14、在VB中，下列关于控件的属性或方法中，搭配错误的有________个。
①Timer1.Interval
②List1.Cls
③Text1.Print
④List1.RemoveItem
⑤Vscroll1.Value
⑥Picture1.Print ( )
A、0
B、1
C、2
D、3
15、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。 ( )
A、框架控件(Frame)或图象控件(Image)
B、组合框(ComboBox)或图象控件(Image)
C、组合框(ComboBox)或图片框(PictureBox)
D、框架控件(Frame)或图片框(PictureBox)
16、若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label1等控件，则运行该程序显示窗体时，________会首先获得焦点。 ( )
A、窗体
B、CommandButton
C、Label1
D、TextBox
17、以下有关对象属性的说法中正确的是________。 ( )
A、对象所有的属性都罗列在属性窗口列表
B、不同对象不可能有同名属性
C、不同对象的同名属性取值一定相同
D、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。
18、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入________。 ( )
A、-
B、+
C、&
D、#
19、在VisualBasic最基本的对象是________，它是应用程序的基石。 ( )
A、标签
B、窗体
C、文本框
D、命令按钮
20、一个可执行的VisualBasic中应用程序至少要包括一个________。 A、标准模块
B、类模块
C、窗体模块
D、辅助模块
21、VisualBasic程序设计时常用的Print、Cls属于________。 ( )
A、属性
B、打印字库
C、方法
D、事件
( )
22、窗体上有3个按钮Command1、Command2和Command3，如以下代码，该程序的功能是________。
Private Sub Command1_Click( )
Command2.Enabled=False
Command3.Enabled=False
End Sub ( )
A、当击按钮Command1时，按钮2和按钮3都不可用
B、当击按钮Command1时，按钮2和按钮3都不可见
C、当击按钮Command1时，按钮2不可用和按钮3不可见
D、当击按钮Command1时，按钮2不可见和按钮3不可用
23、工程资源管理器用来显示和管理工程所包含的________等全部项目。A、变量和常数
B、变量和数组
C、窗体和模块
( )
D、过程和事件
24、只能由系统触发的是___________事件。 ( )
A、Resize
B、DblClick
C、Timer
D、Paint
25、关于窗体Name属性的叙述，正确的是________。 ( )
A、窗体Name属性可以具有与别的公共对象相同的名字
B、窗体Name属性和变量定义一样
C、窗体Name属性最长可达255个字符
D、窗体Name属性不能具有与别的公共对象相同的名字
26、窗体有一个方法可以使窗体隐藏但不从内存中卸载，该方法是____________。 ( )
A、Show
B、Release
C、Hide
D、Unload
27、有一名为Menu123的菜单项，在运行时希望把它隐藏起来，应使用的语句为____________。 ( )
A、Menu123.Enabled=False
B、Menu123. Enabled =True
C、Menu123.Visible=False
D、Menu123.Visible=True
28、列表框的____________属性代表着列表框中项目的数目。 ( )
A、List
B、ListIndex
C、ListCount
D、Seleted
29、要使文本框能显示多行文字，则需设定它的____________属性为True。 ( )
A、Caption
B、PasswordChar
C、MultiLine
D、Seleted
30、使用文本框显示文字时，只能显示8个字符，则需设定它的____________属性为8。 ( )
A、Caption
B、PasswordChar
C、MaxLength
D、Value
31、将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____________。 ( )
A、文本框中没有内容
B、文本框的MultiLine属性值为False
C、文本框的MultiLine属性值为True
D、文本框的Locked属性值为True
32、要从自定义对话框Form2中退出，可以在该对话框的“退出”按钮的Click事件过程中使用的语句是________。 ( )
A、Unload Form2
B、Hide Form2
C、Unload.Form2
D、Form2.Unload
33、当命令按钮的________属性被设置为True时，按[Esc]键与单击该命令按钮的作用相同。 ( )
A、Cancel
B、Default
C、Style
D、Picture
34、对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个Timer事件。 ( )
A、Name
B、Enabled
C、Caption
D、Interval
35、只有当一个对象的________和________属性为True时，它才能获得焦点。 ( )
A、Enabled; Visible
B、Visible; Caption
C、Visible; Name
D、Enabled; Caption
36、运行程序后，可以按________键和指定的字母键，将焦点移到与相应标签邻近的文本框。 ( )
A、Ctrl
B、Shift
C、Alt
D、Tab
37、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的____________属性。 ( )
A、BackColor
B、BorderStyle
C、ForeColor
D、BackStyle
38、窗体从加载到显示出来，下列最先发生的事件是____________。 ( )
A、Load
B、Resize
C、Activate
D、Paint
39、在运行过程中要把某控件变灰，应把____________属性设置为False。 ( )
A、Default
B、Visible
C、Activate
D、Enabled
40、为了使标签Label1显示文字\"姓名\"，可把Label1的____________属性设置为\"姓名\"。 ( )
A、Caption
B、Text
C、Word
D、Name
41、判断在文本框内是否按下了回车键，应通过____________事件过程。 ( )
A、Change
B、KeyPress
C、GotFocus
D、Click
42、在设计列表框时，若实现输入多行文字的目的，应使用____________键实现文本的换行。 ( )
A、Enter
B、Alt+Enter
C、Ctrl+Shift+Enter
D、Ctrl+Enter
43、任何控件都有____________属性。 ( )
A、Caption
B、BorderStyle
C、Name
D、BackColor
44、某些对象有只读属性，如Name属性，这种属性在设计阶段设置，不能在运行期间改变。以下________属性为只读属性。 ( )
A、ControBox
B、Enabled
C、BorderStyle
D、WindowState
45、描述X、Y中只有一个小于Z的逻辑表达式是________。 A、X A、Print -32000-769 B、Print \"1E2\"+8 ( ) C、Print \"AB\" & 128 D、Print 3=2=4 47、对于某对象的SetFocus与GotFocus描述正确的是________。 ( ) A、SetFocus是方法，GotFocus是事件 B、SetFocus是事件，GotFocus是事件 C、SetFocus是方法，GotFocus是方法 D、SetFocus是事件，GotFocus是方法 48、窗体上有多个控件，在Form_Activate()事件过程中添加________语句，就可以保每次运行程序时，都将光标定位在文本框Text1上。 ( ) A、Text1.Text=\" \" B、Text1.SetFocus C、Form1.SetFocus D、Text1.Visible=True 49、有应用代码：Text1.Text=\"VisualBasic\"，其中的Text1、Text和\"VisualBasic\" 分别代表____。 ( ) A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值 50、在程序中可以通过复选框和单选框按钮的____________属性值来判断它们的当前状态它。 ( ) A、Caption B、Value C、Checked D、Selected 51、使用________方法可将新的列表项添加到一个列表框中。 ( ) A、Print B、AddItem C、Clear D、RemoveItem 52、应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1，窗体和命令按钮的Click事件过程名分别为____________。 ( ) A、Form_Click() Command1_Click B、Frm1_Click() Command1_Clic C、Form_Click() Cmd1_Click D、Frm1_Click() Cmd1_Click 53、假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候窗体上将输出____________个字母“a”。 Private Sub Timer1_Timer() For i = 1 To 10 Print \"a\" Next i End Sub ( ) A、1 000次 B、10000次 C、10次 D、以上都不对 54、执行了下面的程序后，列表框中的数据项有____________。 Sub Form_Click() For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next i End Sub ( ) A、1 5 6 B、2 4 6 C、4 5 6 D、1 3 5 55、引用列表框(Listl)最后一个数据项应使用____________。 ( ) A、Listl.List(Listl.ListCount) B、Listl.List(Listl.ListCount-1) C、Listl.Lis((ListCount) D、Listl.List(ListCount-1) 56、文本框没有____________属性。 ( ) A、Enabled B、Visible C、BackColor D、Caption 57、下列控件中，____________控件不能改变大小。A、TextBox B、Label ) ( C、Frame D、Timer 58、当在文本框输入“ABCD”四个字符时，结果是____________。 A、ABCD B、A(换行)B(换行)C(换行)D(换行) C、AABABCABCD D、A(换行)AB(换行)ABC(换行)ABCD(换行) 59、不能在窗体上选择多个控件的方法有________________________。A、按住【Alt】键同时单击每个控件 B、单击每个控件 C、通过鼠标拖动一方框将它们选定 D、按住【Ctrl】键同时单击每个控件 60、以下所列的7个控件中，具有Caption属性的有____________个。 ( ) 图 PictureBox( 片框)、Frame(框架)、OptionButton(单选按钮)、ListBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框) . ( ) A、3 B、4 C、2 D、5 61、以下使用方法的语句中，正确的是____________。 ( ) A、List1.Clear B、Form1.Clear C、Combo1.Cls D、Picture1.Clear 62、在以下有关对象属性的叙述中，不正确的是____________。 A、一个对象的属性可分为外观、行为等若干类。 B、不同属性可能具有不同的数据类型。 ( ) C、一个对象的所有属性都可在属性窗口的列表中进行设置。 D、属性窗口中的属性列表既可按字母序也可按类别排列。 63、对正实数X的第四位小数四舍五入的VB表达式是________。 ( ) A、0.001*Int(x+0.0005) B、0.001*(1000*x+0.5) C、0.001*Int(1000*x+5) D、0.001*Int(1000*(x+0.0005)) 64、设整型变量a、b的当前取值分别为200与20，以下赋值语句中不能正确执行的是________。 ( ) A、Text1=a/b*a B、Text1=a*a/b C、Text1=“200”*a/b D、Text1=a&b&a 65、函数Cint(–3.5)，Int(–3.5)，Fix(–3.5)的值分别是________。 ( ) A、-3，–4，–3 B、-4，–4，–3 C、-3，–4，–4 D、-4，–3，–3 66、执行下列程序，输出结果为___________。 Private Sub Command1_Click( ) Dim b As Single B=2 / 3 Print b End Sub ( ) A、0.6666666666667 B、1 C、0 D、0.6666667 67、有如下程序代码： Private Sub Command1_Click( ) s=Sin(3.1415926/2) MsgBox s End Sub 程序运行后，消息对话框显示_________。 ( ) A、0 B、1 C、1.5708 D、2 68、VB表达式Sqr(a+b)^3*2中优先进行运算的是________。A、Sqr函数 ( ) B、+ C、^ D、* 69、求圆的内接正多边形的面积公式为nRsin(π/n)Rcos(π/n)，其的对应的VB6.0算术表达式是 ________。其中n为大于2的正整数，R为圆半径，π为圆周率。 ( ) A、n*r*sin(3.14159/n)*r*cos(3.14159/n) B、n×R×sinπ/n×R×cosπ/n C、n×R×sin(3.14159/n)*R*cos(3.14159/n) D、nRsin(π/n)Rcos(π/n) 70、执行以下程序段后，变是c$的值为____________。 Private Sub Command1_Click( ) A$ = \"Viaual BASIC programming\" B$ = B$& UCase(Mid$(A$, 7, 6) & Right$(A$, 12)) Print B$ End Sub ( ) A、Viaual BASIC Programming B、Basic Programming C、basic programming D、BASIC PROGRAMMING 71、如果一个变量未指明数据类型，那么，VB默认这个变量为______变量。 ( ) A、变体型 B、整型 C、公共 D、字符串型 72、在窗体Form1上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮（Name属性为Command1），程序如下。执行后结果为___________。 Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_load() Text1.Text=\"123\" Text2.Text=\"321\" End Sub ( ) A、444 B、321123 C、123321 D、132231 73、要判断“月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的职工，应该使用的逻辑表达式是____________。 ( ) A、M>2000 AND M<=5000 B、M>2000 Or M<=5000 C、M>=2000 AND M<5000 D、M>=2000 Or M<5000 74、下列程序的执行结果是____________。 x=–6^2 Print Sgn(x)+Abs(x)+Int(x) ( ) A、–36 B、–1 C、0 D、–72 75、下列语句执行后的输出结果是____________。Wage = 26 Print \"工资\"; Print Wage ( ) (一个方格表示一个空格) A、工资□26 B、工资□□26 C、“工资”□26 D、“工资”□□26 76、以下语句的输出结果是____________。 (一个方格表示一个空格) a$ = \"123\" b$ = \"456\" Print a$; b$ ( ) A、123□456 B、123456 C、□123□456□ D、□123□□456 77、设M=3，N=5，P=4.5，Q=2.5，表达式(M*N+2)/(P-Q)的计算结果为____________。 ( ) A、8 B、9 C、8.5 D、8.0 78、下列____________是日期型常量。A、\"I am a student\" B、\"江苏南京\" C、#02/25/1999# D、123# 79、下面程序的执行是____________。Private Sub Command1_click() x=\"321\" y=\"567\" ( ) z=Val(x+y) Print z End Sub ( ) A、321 B、567 C、888 D、321567 80、在窗体中添加一个命令按钮和一个标签(Labell)，编写命令按钮Command1的Click事件代码： Dim a (3) As Single Private Sub Command1_click () Dim p As String For n=0 To 3 a (n)=val (InputBox(\"输入第\"& n &\"个数\")) Next p=a (0) & \ Labell.Caption=p End Sub 程序运行后，分别在InputBox中输入6，7，8，9，标签中显示的是____________。A、6，7，8，9 B、6789 C、6，7，8，9， D、6 7 8 9 81、MsgBox函数返回值的类型为____________。 ( ) A、整体数值 B、字符串 C、变体 ( ) D、数值或字符串 82、以下说法不正确的是____________。 ( ) A、Chr＄( )函数的作用是把自变量表达式的值转换为相应的ASCII码 B、Val( )函数用来把自变量字符串转换为数值 C、Log( )函数产生一个0-1之间的单精度浮点数 D、Rnd( )函数产生一个0-1之间的单精度浮点数 83、表达式(-1)*Sgn(-100+Int(Rnd*100))的值是____________。A、随机数 B、0 C、1 D、-1 84、函数Int(Rnd*11)+10的值的范围是____________。 ( ) A、[10，20] ( ) B、[0，20] C、[10，10] D、[10，11] 85、VisulBasic的一条语句可以写在多行，但要用续行符，续行符应为____________。 ( ) A、一个空格加一个下划字符( _ ) B、一个下划字符( _ ) C、直接回车 D、一空格加一相连字符(-) 86、下述语句段运行时的显示结果是____________。 CLS x=2.34+8 print Len(x) ( ) A、5 B、10 C、11 D、非法使用，无输出 87、设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a=s:Text1=a的结果相同的有________个。 ①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a ④a=Format(s,”#####”):Text1=a ( ) A、1 B、2 C、3 D、4 88、i被j整除的逻辑表达式是________________。 ( ) A、i/j = 0 B、i\\j = 0 C、i<>0 D、i mod j = 0 89、为了给x,y,z三个变量赋初值1，下面正确的赋值语句是____________。A、x=1：y=1：z=l B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=1 90、下面正确的赋值语句是____________。 ( ) A、x+y=30 B、y=π*r*r C、y=x+30 ( ) D、3y=x 91、表达式Len(\"123程序设计ABC\")的值是____________。 ( ) A、10 B、14 C、20 D、17 92、Rnd函数不可能为下列____________值。 ( ) A、0 B、1 C、0.1234 D、0.0005 93、与数学表达式 (ab/3cd) 对应，VB的不正确表达式是____________。A、a*b/(3*c*d) ) ( B、a/3*b/c/d C、a*b/3/c/d D、a*b/3*c*d 94、语句Print \"5*20\" 输出的结果是________。 ( ) A、\"5*20\" B、出现错误信息 C、5*20 D、100 95、在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是________。 ( ) A、Inta=4.6 B、Bl=#True# C、St=5 & 123.5 D、D=#10/05/01# 96、下列表达式中，值为True的是________。 ( ) A、Ucase(\"ABCD\")>=\"abcd\" B、14/.2\\3<10 MOD 4 C、Mid(\"ABCD\ D、Not(Sqr(4)–3>=-2) 97、下列说法错误的是________。 ( ) A、Print String$(3,65)的运行结果是AAA,Print Asc(“Basic”)的结果是66 B、25\\3 Mod 3.2 *Int(2.5) 的值是2 C、产生0.01至100.99范围内的随机数，包括两端点，间隔为0.01的表达式可写成Myvalue=Int(101.98*Rnd+0.01) D、表达式5 \\ 3 / Asc(\"c\") * Fix(44.2) * CInt(7.8 - 5.2) 的值是1 98、下列说法正确的是________。 ( ) A、设i=1,x=2,y=2,则x<2 Or Not y>0 And (x-y)/i<>0的结果是True B、(7-3<=4) Xor (1>-1) Or (7=5)的结果是True C、(Not True Or True) And (True Or False) 的结果是False D、a$=\"Visual\则a$ & b$ 和a$ + b$结果都是\"VisualBasic\" 99、己知A$=\"12345678\"，则表达式Val(Left$(A$，4)+Mid$(A$,4,2))的值为____________。 ( ) A、123456 B、123445 C、8 D、6 100、有变量定义语句Dim a, b As integer, 变量a的类型和初值是________。 ( A、Integer,0 B、Variant,空值 C、String,\"\" D、Long,0,0 101、在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、 ) String类型和Date类型，下列赋值语句中，正确的是____________。 ( ) A、Inta= \"333\" + \"22\" B、D=#10/05/01# C、St=5+ \"abc\" D、Bl=#True# 102、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。以下____________语句可以使文本框内显示的内容为：5+7=12 ( ) A、Text1.Text=a+b=c B、Text1Text=\"a+b=c〞 C、Text1=a &\"+\"& b &\"=\"& c D、Text=\"a\"&\"+\"&\"b\"&\"=\"&\"c\" 103、下面程序段的功能是 A=10.5 A、求平均值 B、将一实数四舍五入取整数 C、求绝对值 D、舍去一实数的小数部分 104、语句x=x+1的正确含义是__________. ( ) A、变量X的值与X+1的值相等 B、将变量X的值存在X+1中去 C、将变量X的值加1后赋给变量X D、变量X的值为1 2、填空题(本题共计15分) 1、已知K=2，J=3，A=True，则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为 _ True ____。 2、表示\"A+B+C大于等于255，或A与B分别大于90且C大于80\"的VB表达式的 __ A+B+C>=255 Or A>90 And B>90 And C>80__ 3、表示\"A和B之一为零但不同时为零\"的VB表达式为__ A=0 xor b=0____ 。 4、有下列程序： Private Sub Command1_Click( ) a$=\"Good Morning\" b$=\"Even\" c$=Left$(a$,4)+LCase$(b$)+Right$(a$,3) Print c$ End Sub 运行后窗体上显示的是 __ Goodevening ____ 。 5、有如下程序代码： Private Sub Command1_Click() m$ =\"XYZ: n$ = \"xyz\" k$ = LCase$(m$) j$ = UCase$(n$) MsgBox Asc(k$ + j$) End Sub 程序运行后消息对话框显示 ___120_______ 。 6、能正确产生[1,30]之间的随机整数的表达式是 _ Int(Rnd()*30)+1_______ 。 7、表达式Fix(-48.65)+Int(-52.15)的值是__-101______。 8、已知A=7.5，B=2，C=-3.6，表达式 a>b and c>a or ab的值为___ false ____. 9、X是小于100的非负数，对应的表达式是____.x<100 and x>=0 ______. 10、A的绝对值大于等于B同时不等于C的表达式是_ abs(a)>=b and abs(a)<>c _______. 11、关系式-5<=X<=5所对应的表达式是_____ X>=-5 and X<=5______ 12、下面程序运行后，输出的结果为____0____。 Private Sub Command1_Click( ) x$ = \"NANJING\" y$ = \"BASIC\" z$ = \"INPUT\" z$ = InStr(Left$(x$,2)+Right$(y$,2),z$) Print z$ End Sub 13、A=7，B=3，C=4，则表达式 A MOD 3+B^3/C\\5的值为__2___。 14、表达式7^2Mod 5^2\\3的值为___1_______ 15、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为___2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)_____ 参考答案 1.b,2.a,3.d,4.c,5.b,6.c,7.a,8.a,9.c,10.a,11.d,12.c,13.d,14.c,15.d,16.b,17.d,18.a,19.b,20.c,21.c,22.a,23.c,24.c,25.d,26.c,27.c,28.c,29.c,30.c,31.b,32.a,33.a,34.d,35.a,36.c,37.d,38.a,39.d,40.a,41.b,42.d,43.c,44.c,45.c,46.a,47.a,48.b,49.c,50.b,51.b,52.c,53.c,54.d,55.b,56.d,57.d,58.c,59.b,60.a,61.a,62.c,63.d,64.b,65.b,66.d,67.b,68.b,69.a,70.d,71.a,72.c,73.c,74.b,75.a,76.b,77.c,78.c,79.d,80.a,81.b,82.a,83.c,84.a,85.a,86.a,87.b,88.d,89.a,90.c,91.a,92.b,93.d,94.c,95.b,96.c,97.c,98.d,99.b,100.b,101.b,102.c,103.b,104.c 1.True,2.A+B+C>=255 Or A>90 And B>90 And C>80,3.A=0 xor b=0,4.Goodevening,5.120,6.Int(Rnd()*30)+1,7.-101,8.false,9.x<100 and x>=0,10.abs(a)>=b and abs(a)<>c,11.X>=-5 and X<=5,12.0,13.2,14.1,15.2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y) 因篇幅问题不能全部显示，请点此查看更多更全内容
Private Sub Textl_Change()
Print Text1;
End Sub ( )
B=INT(A+0.5)
Debug.Print B ( )