VB程序设计题库(全)
- 格式:docx
- 大小:149.19 KB
- 文档页数:30
第一套试题一、选择题(每题2分,共30分)1.在VB环境中,工程文件的扩展名是( C )(A).frm (B).bas (C).vbp (D).frx2.下面4项中不属于面向对象系统三要素的是( A )(A)变量(B)事件(C)属性(D)方法3. \、/、Mod、*这4个算述运算符中,优先级别最低的是( C )(A)\ (B)/ (C)Mod (D)*4.要使Print方法在Form_Load事件中起作用,要对窗体的( C )属性进行设置(A)BackColor (B)ForeColor(C)AutoRedraw (D)Caption5.不论何控件,共同具有的属性是( B )(A)Text (B)Name(C)ForeColor (D)Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”,以下语句正确的是( D ) (A)Form1.Caption=“欢迎使用VB”(B)Form1.Caption=ˊ欢迎使用VBˊ(C)Form1.Caption=欢迎使用VB (D)Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构,这3种基本结构是( D )(A)递归结构,选择结构,循环结构(B)选择结构,过程结构,顺序结构(C)过程结构,输入、输出结构,转向结构(D)选择结构,循环结构,顺序结构8.给变量赋值a=123+MID(“123456”,3,2),a变量中的值是( D )(A)“12334”(B)123 (C)12334 (D)1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于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.若要清除列表框的所有内容,可用来实现的方法是( C )(A)RemoveItem (B)Cls(C)Clear (D)以上均不可以11.要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是( B ) (A)Timer1.Visible=False (B)Timer1.Enabled=False(A) Timer1.Interval=1000 (D)Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句,正确的是( B )(A)Dim a[3,4]As Integer (B)Dim a(3,4)As Integer(C)Dim a(n,n) As Integer (D)Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )(A)Sub f1(ByVal n%) (B)Sub f1(n%)As Integer(C)Function f1%(f1%) (D)Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程:Private Sub Command1_Click()x=InputBox("输入:","输入整数")MsgBox"输入的数据是:”,,”输入数据:"+xEnd Sub16.程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的是( A )(A)x的值是数值10 (B)输入对话框的标题是“输入整数”(C)信息框的标题是“输入数据:10”(D)信息框中显示的是“输入的数据是:”二、填空题(每题2分,共20分)1、当进入VB集成环境后,发现没有显示“工具箱”窗口,应选择视图菜单的工具箱选项,使“工具箱”窗口显示。
VB程序设计习题集一、选择题1. 一个工程必须包含的文件的类型是:AA、*.vbp ,*.frm ,*.frxB、*.vbp ,*.cls, *.basC、*.bas ,*.ocx ,*.resD、*.frm ,*.cls ,*.bas2. 以下不能在“工程资源管理器”窗口中列出的文件类型是:DA、.basB、.resC、.fnnD、.ocx3. 下列不能打开工具箱窗口的操作是: BA、招待“视图”菜单中的“工具箱”命令B、按Alt+F8键C、单击工具栏上的“工具箱”按钮D、按Alt+V,然后按Alt+X键4. 不能作为容器使用的对象是:DA、窗体B、框架C、图片框D、图像框5. 在Visual Basic中传递参数的方法有__ B ___方式。
A、一种B、两种C、三种D、四种6. Visual Basic是一种面向对象的程序设计语言,构成对象的三要素是:BA、属性、控件和方法B、属性、事件和方法C、窗体、控件和过程D、控件、过程和模块7. 创建VB应用程序的主要步骤是:①创建应用程序界面②设置控件③设置属性④编写代码,其中正确的步骤是:AA、①③④B、①②④C、②③④D、①②③④8. 要将名为MyForm的窗体显示出来,正确的使用方法是:AA、MyForm.ShowB、Show.MyFormC、MyForm LoadD、MyForm Show9. 为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是 : BA. ValueB. DefaultC. CancelD. Enabled10. 如果在立即窗口中执行以下操作(<CR>是回车键):Ca=8<CR>b=9<CR>print a>b<CR>则输出结果是:A)-1B) 0 C)False D)True11. 在设计应用程序时,通过___D___窗口可以查看到应用程序工程中的所有组成部分。
vb程序设计试题及答案一、选择题(每题2分,共20分)1. 在VB中,下列哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. VB中用于声明变量的关键字是?A. DimB. DeclareC. SetD. All of the above答案:A3. 在VB中,下列哪个选项是正确的循环语句?A. ForB. DoC. WhileD. All of the above答案:D4. VB中用于打开文件的函数是?A. OpenB. CloseC. WriteD. Read答案:A5. 在VB中,下列哪个选项是正确的条件语句?A. If...ThenB. Select CaseC. Do WhileD. All of the above答案:A6. VB中用于创建新窗体的语句是?A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案:A7. VB中用于声明常量的关键字是?A. ConstB. DimC. StaticD. Option答案:A8. 在VB中,下列哪个选项是正确的数组声明?A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案:A9. VB中用于结束程序的语句是?A. EndB. ExitC. CloseD. All of the above答案:B10. VB中用于捕获异常的语句是?A. Try...CatchB. On ErrorC. CatchD. All of the above答案:B二、填空题(每题2分,共20分)1. 在VB中,声明一个名为myVar的变量,其类型为字符串,应该使用语句________。
答案:Dim myVar As String2. VB中,用于定义一个名为myFunction的函数,返回值为整数,应该使用语句________。
程序设计题1、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零",并根据输入的数用消息框显示"正数"、"负数〞或"零"。
2、题目:(事件)单击窗体。
(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中3、题目:单击窗体。
(响应)S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。
4、题目:(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和,将和保存在变量s中。
5、题目:(事件)双击窗体。
(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚〕,求出其所有的换法,把结果输出在窗体上。
将所有的换法的数目存入变量N中6、题目:单击窗体。
)求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中7、题目:(事件)单击窗体。
(响应)生成一个一维数组(10个数组元素依此为:' 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。
将最大值,最小值,平均值分别存入变量Ma*,Min,Aver中8、题目:(事件)单击窗体。
(响应)在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。
9、题目:(事件)单击窗体。
(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L 中。
10、题目:(事件)单击窗体。
(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。
将结果存入变量J中。
1题n = InputBo*("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"ElseIf n = 0 Thenresult = "零"End IfMsgBo* "输入的数据" & n & "为:" & result2题Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNe*tPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)Ne*tPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + mNe*t5题Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNe*tNe*tNe*t6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNe*ts = s + kNe*tPrint (CStr(s))7题Dim a(9) As IntegerDim i, s As Integera(0) = 15:a(1) = 23:a(2) = 72 a(3) = 43:a(4) = 96:a(5) = 23 a(6) = 3:a(7) = 65:a(8) = 88a(9) = 17:ma* = a(0):min = a(0) s = 0For i = 0 To 9If a(i) > ma* Thenma* = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Ne*taver = Int(s / 10)Print (CStr(ma*))Print (CStr(min))Print (CStr(aver))8题Dim i, j, s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i))sum = sum + iE*it ForEnd IfNe*tNe*tPrint sum9题Dim i%,j%,b As Booleanl = 1:b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNe*tIf b = False Thenl = l * iEnd Ifb = FalseNe*tPrint Str(l)10题Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Then j = j - 1 / iEnd IfNe*tPrint j11、题目: (事件)单击窗体。
VB程序设计试题及答案(一)一、单选题1. VB6.0是一种面向 B 的编程环境。
(A)机器(B)对象(C)过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
(A) Forml。
Caption=“欢迎使用VB”(B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D)Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A)EnabIed (B)Visible(C)Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI,可以通过 C 事件获得输入键值的ASCII码。
(A)Change (B)LostFocus(C) KeyPress (D)GotFocus5。
下面 A 是合法的变量名。
(A)X_yz (B)123ab。
(C) integer (D)X-Y6. 以下关系表达式中,其值为False的是 A 。
(A) "ABC">"AbC”(B)"女"〉"男”(C)”BASIC”=UCase("basic)(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C)x=y=z=1 (D)xyz=18。
VB提供了结构化程序设计的三种基本结构,三种基本结构是 D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是 D 。
(A)If sex="男" And age=4O And InStr(duty,"教授")〉O Then n=n+l (B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l(C)If sex=”男” And age=4O And Right(duty,2)="教授" Then n=n+l (D)If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
VB程序设计习题练习一一、多项选择题1、下面列出的程序设计语言中(a)是面向问题的语言。
a、机器语言b、汇编语言c、高级语言D,0,1二进制语言解释:机器语言和汇编语言都是面向机器的语言,二进制语言为机器语言,故其为面向机器的语言2、下面列出的程序设计语言中(c)不是面向对象的语言。
a、cb、c++c、javad、vb3、下列(d)不属于vb6.0的版本。
a、学习版b、专业版C、企业版D、共享版解释:vb6.0共有三个版本:标准版、专业版、企业版。
而其中的标准版是为初学者了解基于windows的应用程序开发而设计的,也可称为学习版。
二、填空题1.从编程语言的发展过程来看,计算机编程语言分为机器语言、汇编语言和高级语言。
2、 vb6。
0采用面向对象和事件驱动(可视化编程)的编程机制。
3、启动vb6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。
练习2一、选择题1.如果表单对象的名称是forma1,backcolor是表单对象的一个属性,用于设置表单的背景色,那么将表单背景色设置为蓝色的正确语句是(a)a和forma1backcolor=vbblue、backcolor=vbbluec、forma1=vbblued、forma1′sbackcolorisvbblue.2.在以下方法中,无法打开代码编辑器(d)A.单击“视图”菜单上的“代码窗口”命令。
b、在窗体设计器中双击窗体或控件。
c、双击窗体设计器的窗体或控件,单击工程资源管理器中的“查看代码”按钮。
d、双击窗体设计器的窗体或控件,单击标准工具栏中的“代码窗口”按钮。
3、保存vb应用程序时,下列方法中正确的是(a)a、先保存窗体文件,再保存工程文件。
b、先保存工程文件,再保存窗体文件c、如果直接保存表单文件,系统将自动先保存表单文件,然后依次保存项目文件。
d、如果直接保存表单文件,系统将自动先保存项目文件,然后依次保存表单文件。
2、填空1、vb工程文件的扩展名是工程文件(*.vbp),窗体文件的扩展名是窗体文件(*.frm)。
VB程序设计考试(1)一、单选题(每题1分,共50题)1.Visual Basic 6.0集成环境的主窗口中不包括( C )。
正确A.标题栏B.菜单栏C.状态栏D.工具栏2.以下不属于Visual basic的工作模式的是()模式。
正确答案:AA.编译B.设计C.运行D.中断3.如果文本框的Enabled属性被设置为False,则运行时()。
正确答案:AA.文本框中的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框中的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容C.文本框中的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容4.控制名称都是系统的默认控件名,下列语句错误是()。
正确答案:Dmand1.Caption=List1.Text;bel1.Caption=List1.List(1);C.List1.List(2)=List1.Text+Str(List1.ListIndex);D.Text1.Text=+Text1.Caption。
5.以下叙述中正确的是()。
正确答案:A属性用来标识对象B.窗体Name属性值显示在标题栏中C.运行时对象Name属性可变D.对象的Name属性值可以为空6.Abc%,abc!,abc$,abc#分别声明abc是()。
正确答案:AA.整型、单精度、字符串、双精度变量B.整型、整型、字符串、双精度变量C.单精度、整型、字符串、双精度变量D.整型、双精度、字符串、双精度变量7.Visual Basic的逻辑类型数据占( A )字节内存。
正确A.2B.4C.8D.168.如果逻辑与(AnD)运算的结果为真,与它所连接的两个条件必须是( C )。
正确A.前一个为真,后一个为假B.前一个为假,后一个也为假C.前一个为真,后一个也为真D.前一个为假,后一个为真9.设a=6,则执行 x=iif(a>5,-1,0)后,x 的值为( D )。
VB程序设计及参考答案一、单选题(共20分,每小题1分)1、要改变控件的宽度,应修改该控件的()属性。
(A)TOP (B)width (C)Left (D)Height2、将命令按钮Command1设置为不可见,应修改该命令按钮的()属性。
(A)Visible (B)Value (C)Caption (D)Enabled3、()对象具有clear方法。
(A)图片框(B)窗体(C)复选框(D)列表框4、启动VB后,就意味着要建立一个新()。
(A)窗体(B)文件(C)工程(D)程序5、下列()对象不具有Clear方法。
(A)列表框(B)组合框(C)剪贴框(D)图片框6、组合框有三种风格,它们由Style属性所决定,其中为简单组合框时,Style 属性值应为()(A)0 (B)1 (C)2 (D)37、下列可调整图片框的大小以适合图片的属性是()(A)Stretch (B)autosize (C)picture (D)oledropmode 8、要想清除文本框中的内容则可利用()进行。
(A)Caption (B)Text (C)Clear (D)Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是()。
(A)Password (B)PasswordChar(C)需要编程来实现(D)以上都不是10、Visual Basic是一种面向对象的程序设计语言,所采用的编程机制是()。
(A)从主程序开始执行(B)按过程顺序执行(C)事件驱动(D)按模块顺序执行11、下列四项中合法的变量名是()。
(A)a-bc (B)a_bc (C)4abc (D)integer12、无论何种控件,共同具有的属性是()(A)Text (B)Name (C)Caption (D)ForeColor13、有程序代码如下:Text1.Text = "Visual Basic程序设计"则Text1、Text ,和"Visual Basic程序设计"分别代表()。
一.[题目] 编一程序,显示所有的水仙花数,所谓水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。
例如,153是水仙花数,因为153=13+53+33【编程要求】1、单击"计算"按钮,则将计算结果显示在多行文本框中Text1中;单击"结束"按钮,程序停止运行。
2、界面应与给出的参考界面相似,不得增加或减少控件。
3、求出范围100-999之间的水仙花数【参考代码】Text1.Text = ""For i = 100 To 999a = i \ 100c = i Mod 10b = i \ 10 Mod 10If i = a ^ 3 + b ^ 3 + c ^ 3 ThenText1.Text = Text1.Text & i & vbCrLfEnd IfNext i二.[题目] 输入两个数,求最大公约数和最小公倍数。
[编程要求]1、输入数值后,按"计算"按钮,计算出最大公约数和最小公倍数按"清除"按钮,则将所有文本框中的内容清空,并将光标焦点指向text1。
按"结束"按钮,结束程序的执行。
2、程序中有一个过程,该过程的功能是求两个数的最大公约数。
【参考代码】Dim k As IntegerDok = m Mod nm = nn = kLoop While (k <> 0)gcd = mNext i三.输入一个正整数k,将k的各位数字分离后,累加求和。
程序界面如下图所示。
【编程要求】1、单击"计算"按钮,将结果在文本框中显示出来。
2、单击"清除"按钮,将二个文本框中的内容清空;单击"结束"按钮,程序停止运行。
3、界面应与给出的参考界面相似,不得增加或减少控件;4、运行程序,并输入123456检验。
『单项选择』以下关于vb 语言的说法中,正确的是(B).A:vb 是一种面向过程的语言B:vb 是一种面向对象语言C:vb是一种低级语言D:vb 是一种机器语言变量未赋值时,数值型变量的值为(A).A:0B:空C:1D:无任何值窗体的Caption属性的作用是(B).A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体(D)对象具有Clear方法.A:图片框B:窗体C:复选框D:列表框vb 程序设计中的窗体在OOP 中称为(C).A:屏幕B:事件C:对象D:控件VisualBasic集成环境的大部分窗口都可以从主菜单项(B)的下拉菜单中找到相应的打开命令.A:编辑B:视图C:格式D:调试当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该窗体被移开之后,如果要保持该所画图形的完整性,可以选择触发(A)事件来完成图形的重画工作.A:PaintB:LoadC:ClickD:ActiveVisualBasic的编程机制是(D).A:可视化B:面向对象C:面向图形D:事件驱动答案:D〖第9题〗『单项选择』(2分)(题号:231)vb 中的坐标系最小刻度为(A).A:缇B:象素C:厘米D:一个标准字符宽度窗体设计器是用来设计(B).A:应用程序的代码段B:应用程序的界面C:对象的属性D:对象的事件Rnd函数不可能产生的(B)值.A:0B:1C:0.1234D:.00005RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB (红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(A)属性.A:Max和MinB:Smallchange和LargeChangeC:Scroll和ChangeD:Value不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是(D).A:用Tab键B:用鼠标C:用方向键D:不能实现vb 中的坐标圆点位于(B).A:容器右上角B:容器左上角C:容器正中央D:容器右下角VisualBasic是一种(B)程序设计语言.A:过程式B:非过程式C:机器D:低级VB认为下面(A)组变量是同一个变量.A:A1和a1B:SUM和SUMMARYC:A VER和A VERAGED:A1和A_1vb 应用程序是分层管理的,其最高的层次为(A). A:工程B:模块C:窗体D:过程(C)对象不能作为控件的容器.A:FormB:PictureBoxC:ShapeD:FrameVB应用程序的运行模式是(C).A:解释运行模式B:编译运行模式C:两者都有D:汇编模式窗体的Enable属性的属性值是(C)类型的数据.A:整型B:字符型C:逻辑型D:实型INT(100*RND(1))产生的随机整数的闭区间是(A). A:[0,99]B:[1,100]C:[0,100]D:[1,99](D)对象不具有Caption属性.A:LabelB:OptionC:FormD:Timer"对象"是计算机系统运行的(D).A:程序单位B:逻辑单位C:物理实体D:基本实体函数InStr("VB程序设计教程","程序")的值为(C). A:1B:2C:3D:4语句PRINT"INT(-13.2)";INT(-13.2)的输出结果为(D).A:INT(-13.2)=-13.2B:INT(-13.2)=13.2C:INT(-13.2)=-13D:INT(-13.2)=-14产生[10,37]之间的随机整数的VisualBasic表达式是(B). A:In t(Rnd(1)*27)+10B:Int(Rnd(1)*28)+10C:Int(Rnd(1)*27)+11D:Int(Rnd(1)*28)+11表达式4+5\6*7/8Mod9的值是(B).A:4B:5C:6D:7表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(C).A:4^5B:3*4C:x+1D:SIN代数式exSin(300)2x/(x+y)lnx对应的VB表达式是(C).A:E^X*Sin(30*3.14/180)*2*x/x+y*log(x)B:Exp(x)*Sin(30)*2*x/(x+y)*ln(x)C:Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*log(x)D:Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*ln(x)设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D).A:5B:6C:0D:-1Line(100,100)-Step(400,400)将在窗体(C)画一直线.A:(200,200)到(400,400)B:(100,100)到(300,300)C:(100,100)到(500,500)D:(100,100)到(400,400)代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VisualBasic 表达式是(A).A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57)表达式25.28Mod6.99的值是(C).A:1B:5C:4D:出错常量-0.00013579的科学计数法是(C).A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4以下各表达式中, 计算结果为0的是(D).A:INT(12.4)+INT(-12.6)B:CINT(12.4)+CINT(-12.6)C:FIX(13.6)+FIX(-12.6)D:FIX(12.4)+FIX(-12.6)系统符号常量的定义通过(A)获得.A:对象浏览器B:代码窗口C:属性窗口D:工具箱表达式Mid("SHANGHAI",6,3)的值是(D).A:SHANGHB:SHAC:ANGHD:HAI表达式X+1>X是(D).A:算术表达式B:非法表达式C:字符表达式D:关系表达式\、/、Mod、*等4个算术运算符中,优先级最低的是(C). A:B:/C:ModD:*函数Int(10*Rnd)是在(D)范围内的整数.A:[0,1]B:[1,10]C:[1,9]D:[0,9]函数Ucase(Mid("visualbasic",8,8))的值为(D).A:visualB:basicC:VISUALD:BASIC如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(B). A:0.01*int(x+0.05)B:0.01*int(100*(x+0.005))C:0.01*int(100*(x+0.05))D:0.01*int(x+0.005)不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0"的布尔表达式(D).A:A*B=0ANDA<>BB:(A=0ORB=0)ANDA<>BC:A=0ANDB<>0ORA<>0AND B=0D:A*B=0AND(A=0ORB=0)标准工具箱中的控件(B).A:数目是固定不变的B:数目可以增加或减少C:包含了VisualBasic所有控件D:在窗体建立对象时不一定被使用表达式(7\3+1)*(18\5-1)的值是(C).A:8.76B:7.8C:6D:6.67表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(C).A:0.48B:0.048C:.5D:.05函数Len(Str(Val("123.4")))的值为(C).A:11B:5C:6D:8求以10 为底X 的常用对数的表达式为(A).A:LOG(X)/LOG(10)B:LN(X)C:LOG(X)/LOG(E)D:LOG(X)语句listl.removeitem 1 将删除list.listindext等于(D)的项目..A:0B:2C:3D:1以下可以作为VB变量名的是(B).A:SIN B:CO1 C:COS(X) D:X(-1)MSGBOX函数中有4个参数,其中必须写明的参数是(C).A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的要在图片框P1中打印字符串"HowAreYou",应使用语句(C).A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"InputBox函数返回的函数值的类型是(C).A:数值B:字符串C:数值或字符串D:根据需要可以是任何类型数据要使得标签能自动扩充以满足字体大小则可对其(C)属性进行设置. A:alignmentB:usemnemonicC:autosizeD:tag如果要在命令按钮上显示图形文件,应设置命令按钮的(B).A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性要在命令按钮控件上显示图像应(C).A:设置Picture属性B:实现不了C:先将Type设置为1,然后再设置Picture属性D:以上都不对工具栏中的"启动"按钮的作用是(A).A:运行一个应用程序B:运行一个窗体C:工程管理窗口D:打开被选中对象的代码窗口下列字符串常量中,最大的是(C).A:"北京"B:"上海"C:"天津"D:"广州"货币型数据需(D)字节.A:2B:4C:6D:8设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是(B).A:TrueB:FalseC:1D:出错信息列表框控件中的列表内容是通过(C)属性设置的.A:NameB:CaptionC:ListD:Text下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作(A). A:Open "c:\file1.dat"For Output as #1B:Open "c:\file1.dat" For Input as #1C:Open "c:\file1.dat" For Append as #1D:Open "c:\file1.dat" For Write as #1清除列表框的所有选项应选择下列哪种方法(A).A:ClearB:ClsC:ClearItemD:RemoveItem要使标签所在处透明显示背景,应把其Backstyle属性设置为(A).A:0B:1C:2D:3骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为(A).A:int(rnd*6+1)B:int(rnd*6)C:int(rnd*7)D:int(rnd(6)+1)下列数据类型中,占用内存最小的是(B).A:BooleanB:ByteC:IntegerD:Single要使得窗体一开始运行就充满整个屏幕则须设置()属性.A:borderstyleB:appearanceC:windowstateD:drawmode下面(C)是日期型常量.A:"12/19/99"B:12/19/99C:#12/19/99#D:{12/19/99}以下叙述中错误的是(C).A:打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B:保存VisualBasic程序时,应分别保存窗体文件及工程文件C:VisualBasic应用程序只能以解释方式执行D:事件可以由用户引发,也可以由系统引发将焦点主动设置到指定的控件或窗体上,应采用(B)方法.A:SetDataB:SetFocusC:SetTextD:GetGata下列(A)是窗体的扩展名.A:frmB:basC:clsD:dll下列语句中正确的是(D).A:txt1.text+txt2.text=txt3.textB:=cmdokC:12label.caption=1234D:a=inputbox(hello)形状控件所显示的图形不可能是(D).A:圆B:椭圆C:圆角正方形D:等边三角形以下控件中不属于容器的是(C).A:Form控件B:PictureBoxC:ImageD:Frame如果TAB函数的参数小于1,则打印位置在第(B)列.A:0B:1C:2D:3将CommonDialog通用对话框的类型设置为字体对话框,可设置该控件的(D)属性.A:FontB:FilterC:flagsD:Action要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为(D).A:0B:1C:2D:3已知A?B?C中C最小,则判断A?B?C可否构成三角形三条边长的逻辑表达式是(B).A:A>=B And B>=C And C>0B:A+C>B And B+C>A And C>0C:(A+C)>=C And A-C <=C) And C>0D:A+B>C And A-B>C And C>0退出VisualBasic的快捷键是(C).A:Ctrl+QB:Shift+QC:Alt+QD:Ctrl+Alt+Q下列方法中可用于列表框动态添加数据的是(B).A:addB:additemC:addlistD:removeitem运行下面的程序:CLSLINE (100,100)-(200,50)LINE - (150,150)LINE -(100,100)屏幕上显示的是(D).A:三条放射形直线B:四条放射形直线C:矩形D:三角形不具有输入数据功能的控件是(D)控件.A:文本框B:选项按钮C:列表框D:窗体以下这段在FORM的CLICK事件中的程序运行后的结果是(D). CurrentX=1500CurrentY=500Line-(3000,2000)Line-(1500,2000)Line-(1500,500)A:三条直线B:矩形C:三角形D:等腰直角三角形为使文本框显示滚动条,必须首先设置的属性是(A).A:MulitilineB:AutosizeC:AlignmentD:Scrollbars设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是(C).A:cmdcB:cmdbC:cmdAD:Command1设组合框Combo1中有3个项目,则以下能删除最后一项的语句是(B). A:Combo1.RemoveItemTextB:Combo1.RemoveItem2C:Combo1.RemoveItem3D:Combo1.RemoveItemCombo1.Listcount如果在图片框上使用绘图方法绘制一个圆,则图片框的(B)属性不会对该圆的外观产生影响.A:BackColorB:ForeColorC:DrawWidthD:DrawStyle为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为(D).A:5B:500C:300D:5000激活属性窗口使用的键是(C).A:F2B:F3C:F4D:F5如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值(0~None),则执行语名List1.RemoveItemList1.ListIndex的结果是(C).A:删除列表框的最后一项B:删除列表框的第一项C:出错D:删除列表框中的最后添加的一项为了在按下回车键时执行某个按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是(D).A:ValueB:CancleC:EnableD:Default要想返回文本框中输入的内容则可利用其(B)属性进行编程.A:captionB:textC:nameD:righttoleft每个窗体对应一个窗体文件,窗体文件的扩展名是(C).A:.basB:.clsC:.frmD:.vbp控件是(A).A:建立对象的工具B:设置对象属性的工具C:编写程序的编辑器D:建立图形界面的编辑窗口下列可缩放图片的属性是(C).A:autosizeB:pictureC:stretchD:OleDrawMode设置列表框选中的文本用(D)属性.A:selectedB:captionC:textD:list为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为(C).A:0B:1C:2D:3列关于窗体上控件的基本操作错误的是(A).A:按一次DEL键只能删除一个控件B:按下一次DEL键可以同时删除多个控件C:按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件D:按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件要在窗体上显示图片,需设置窗体的(C)属性.A:CaptionB:IconC:Picture D:ControlBox如果要改变窗体的标题,则需要设置的属性是(A).A:CaptionB:NameC:BackColorD:BorderStyle1、在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。
程序设计第一题、题目:(事件)单击窗体(响应)求 50 以内所有偶数的和,并在窗体上输出来。
将结果存入变量 S 中。
代码: Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目:(事件)双击窗体(响应)求 s=1+1*2+1*2*3+ ⋯.+1*2*3* ⋯.*10 并将结果存入变量S 中代码: Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目:(事件)单击窗体(响应)求 100 以内偶数的和,并将结果输出在窗体上。
将结果存入变量 SUM中代码: Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目:(事件)单击窗体(响应)编写程序求10*11*12+11*12*13+ ⋯ .+15*16*17 的结果并将结果输出到窗体上。
将结果存入变量M中。
代码: Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目:(事件)双击窗体(响应)求 100 以内奇数的和,并将结果输出在窗体上。
将结果存入变量 SUM中。
代码: Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目:(事件)单击窗体(响应)已知 S=1+1/4+1/9+1/16+1/25+ ⋯+1/100,结果输出在窗体上代码: Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目:(事件)双击窗体(响应)求 1+1*2+1*2*3+ ⋯ .+1*2*3* ⋯.*10,并将结果存到变量S 中代码: Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目:(事件)单击窗体(响应)求 1—1/2+1/3 —1/4+ ⋯.+1/99 —1/100 的值。
将结果存入变量 J 中代码: Dim j As SingleDim i As Singlej=0For i = 1 To 100k=(-1)^(i+1)/ij=k+jNext iPrint j第九题题目:(事件)双击窗体(响应) s=20+21+22+⋯+263, 求 s 的值,并将结果存储到变量S 中。
代码: Dim s As Longs=20For s= 21 To 263b=s+1Sum=Sum+bNextPrint Sum第十题题目:(事件)单击窗体(响应)求出 100 以内所有素数的和,并将结果输出到窗体上,并存入所给变量SUM中代码: Dim sum As IntegerFor i = 1 To 100For j = 2 To i - 1Exit ForNext jNext iIf i Mod j = 0 ThenEnd IfIf j - i Thensum = sum + iEnd IfPrint sum第十一题题目:(事件)单击窗体(响应)编写程序求10*11*12+11*12*13+ ⋯ .+15*16*17 的结果并将结果输出到窗体上。
将结果存入变量M中。
代码: Dim m As LongFor i = 1 To 6t=(i+9)*(i+10)*(i+11)m=m+tNextPrint m第十二题题目:(事件)单击窗体(响应)求 10~20 之间所有素数的乘积并输出在窗体上。
将结果存入变量 L 中代码: Dim l As Longl=1For i=10 To 20For j=2 To i-1If i Mod j = 0 ThenExit ForEnd IfNext jIf j = i Thenl=l*iEnd IfNext iPrint l第十三题题目:(事件)单击窗体(响应)求 50 以内所有偶数的和,并在窗体上输出来。
代码: Dim s As Integers = 0For i = 2 To 50 Step 2s = s + iNext iPrint s第十四题题目:(事件)单击窗体(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8 ⋯⋯ . 的前十项,并求其和。
代码: Dim s As SingleDim a ()Dim b ()Dim c ()a(1) = 2b(1) = 1c(1) = a(1) / b(1)a(2) = 3a(2) = 2a(2) = a(2) / b(2)s=s+c(1)+c(2)For i = 3 To 10a(i)=a(i-1)+a(i-2)b(i)=b(i-1)+b(i-2)c(i)= a(i)/ b(i)s = s+c(i)NextPrint s第十五题题目:(事件)单击窗体(响应)求 200~300 之间既能被 3 整除又能被 7 整除的数。
并求出所有数之和存入变量SUM中。
代码: Dim sum As Integersum = 0For i = 200 To 300If i Mod 3 = 0 And i Mod 7 = 0 Thensum = sum +iEnd IfNextPrint sum第十六题题目:(事件)双击窗体(响应)求出 100~200 之间,能被 5 整除,但不能被 3 整除的数。
并求出所有数之和,存入变量SUM中代码: Dim sum As Integersum=0For i = 100 To 200If i Mod 5 = 0 And i Mod 3<> 0 Thensum = sum +iEnd IfNextPrint sum第十七题题目:(事件)双击窗体(响应)求 1!+2!+3!+4!+5! 并将结果输出到窗体上。
结果存入变量 S 中代码: Dim s As Integers = 0t = 1For i = 1 To 5t = i*tSum = sum + tNextPrint Sum第十八题题目:(事件)双击窗体(响应)求 3+6+9+12+15+18+⋯ ..+300 的和,并将结果输出到窗体上。
将结果存入变量 SUM中代码: Dim sum As Integersum = 0For i = 3 To 300 Step 3sum= sum +iNext iPrint sum第二种方法:当step 为 2 的时候:Dim s As IntegerDim i As IntegerFor i=2 To 50 Step 2s = s+iNext iPrint s第十九题题目:(事件)单击窗体(响应)求 10! 的值,并将结果输出在窗体上。
将结果存入变量 SUM中代码: Dim sum As LongDim i As Integersum = 1For i = 1 To 10sum = i*sumNextPrint sum第二十题题目:(事件)单击窗体(响应)求出 100 以内所有素数的和,并将结果输出到窗体上,并存入所给变量SUM中代码: Dim i As IntegerDim j As IntegerDim k As IntegerDim b As Booleanb = FalseFor i = 2 To 100b = Falsej = CInt(Sqr(i))For k = 2 To jIf i Mod k = 0 Thenb=TrueEnd IfNextIf b = False Thensum=sum+iEnd IfNextPrint sum第二十一题题目:(事件)单击窗体(响应)求 200~300之间既能被 3 整除又能被 7 整除的数。
并求出所有数之和存入变量 SUM中代码: Dim i As IntegerFor i =201 To 300If ((i Mod 3)=0)And((i Mod 7)=0) ThenPrint(CStr(i))sum = sum +iEnd IfNextPrint sum第二十二题题目:(事件)单击窗体(响应)已知 S=1+1/4+1/9+1/16+1/25+ ⋯+1/100 ,结果输出在窗体上。
将结果存入变量 S 中代码: Dim i As Integers=0For i = 1 To 10s = s + 1/(i^i)NextPrint(s)第二十三题题目:(事件)单击窗体(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8 ⋯.. 的前 10 项,并求其和。
代码: Dim i ,j,k,m As Integers=oi=2j=1For k = 1 To 10m = jPrint ( CStr(i) )& “/ ” & CStr(j)j = ii=i+ms=s+i/jNext第二十四题题目:(事件)单击窗体(响应)一球从100 米高度自由落下,每次落地返回。
原高度的一半,求第10 次落地时,共经过多少米?并将结果在窗体上输出。
代码:Dim j,i As Integers=0j=100For i = 2 To10 j=j / 2s=s+2*j Nexts=100+sPrint(CStr(s))第二十五题题目:(事件)双击窗体(响应) s=20+21+22+⋯+263, 求 s 的值,并将结果存储到变量s 中。
代码: Dim i As Integeri = 20while i <=263s=s+ii=i+1WendPrint(CStr(s))精心整理学习帮手题目:(事件)双击窗体(响应)求 s=1+1*2+1*2*3+ ⋯+1*2*3* ⋯*10 ,并将结果存到变量S 中代码: Dim i,j As IntegerDim k As Longk = 1s=0For i = 1 To 10For j = 1 To ik = k*jNexts=s+kk=1NextPrint(CStr(s))第二十七题题目:(事件)单击窗体。
(响应)求出 1000-9999 之间具有如下特点的四位数字,它的平方根恰好就是它中间的两位数字,例如,2500 开平方为 50,恰为 2500 的中间两位,找出所有这样的四位数。