1数学式子sin30写成VB表达式是(【共享精品-doc】

1数学式子sin30写成VB达式是(【共享精品-doc】 一、 单选 1.数学式子sin30?写成VB表达式是( ) (A)Sin30 (B) Sin(30) (C)Sin(30?) (D) Sin(30*3.14/180) 22.数学表达式 X+3XY对应的VB算术表达式是:( ) (A) X+3X*Y (B) X*X+3XY (C) X*X+3*X*Y (D) X*X+3*XY 3(语句Dim Sum As Integer作用是:将Sum定义为( )变量。 (A)整型 (B) 单精度型 (C) 布尔型 (D)字符型 4. Sgn( 45 ) 的值是:( ) (A) 0 (B) 20 (C) 1 (D) —1 5(下列符号哪一个是VB中的合法变量名,( ) (A) 78WE (B) SUB (C) X6[Y] (D) X35 6(表达式2*3?2+2*6/3 的值是( ) (A) 60 (B) 22 (C) 45 (D) 58 7(LCase( “This” )的值是( ) (A) This (B) THis (C) THIS (D) this 8. Left ( “HELLO”, 2 )的值是( ) (A) HE (B) LO (C) HELLO (D) LLO 9(以下关于name属性的说法，错误的是[ ] a. name属性必须以一个字母开始 b. name属性可以在属性窗口修改，也可以在代码中修改 c. 所有控件都有name属性，其值不能为空 d.”form1.frm”是一个非法的对象名 10(如果有三个选项按钮直接画在窗体上，另有四个选项按钮画在框架中，则运行时，可以同时选中[ ]个选项按钮。 a .1 b. 2 c.3 d. 4 11(vb的三种工作模式是[ ] ，[ ] 和[ ] a. 编辑 b.编译 c. d. 运行 e. 中断 12(在运行时，系统自动启动窗体的[ ]事件过程。 a. click b.gotfocus c. Load d. Unload 13(以下[ ]是布尔常量，[ ]是字符串常量，[ ]是日期常量。 a. true b. “100.0” c. 11-03-99 d. f e. „an? f. #11/05/1999# 14(表达式val(“.123E2CD”)的值是[ ] a. 0.123 b. 12.3 c. 0 d. .123E2CD 15(variant是一种特殊的数据类型，除了[ ]和[ ]类型外，可以包含任何种类的数据。 1 a. 固定长度字符串 b. 字节 c. 实型 d. 单精度 e. 可变长度字符串 f. 整形 g. 货币 h. 自定义 16(通过文本框的[ ]事件过程可以获取文本框中键入字符的ascii码值。 a. change b. Click c. Keypress d. Gotfocus 17(Visual Basic程序设计语言属于[ ] a.面向过程的语言 b.面向问题的语言 c.面向对象的语言 d.面向机器的语言 18(一个对象所能做的事情称为对象的[ ] a. 方法 b. 继承 c.属性 d.封装 19(表达式int(8*sqr(36)*10^(-2)*10+0.5)/10的值是[ ] a.0.48 b.0.048 c. 0.5 d. 0.05 20(Len(“some thing”)的值是[ ] a. 6 b. 7 c. 8 d.9 21、Visual Basic 的编程机制是( ) A、可视化 B、面向对象 C、面向图形 D、事件驱动 22、没有事件的控件为( ) A、Picturebox B、Checkbox C、Shape D、Frame 23、为了把焦点移到某个指定的控件，所使用的方法是 ( ) A、SetFocus B、Visible C、Refresh D、GetFocus 24、执行下面的程序段后，x 的值为 ( )。 x=5 For i=1 To 20 Step 2 x=x+i\5 Next i A、 21 B、 22 C、 23 D、 24 25、在窗体上画一个命令按钮和一个文本框，然后编写如下事件过程: Private Sub Command1_Click() x=5 y=x+2 text1.text=y & x End Sub 程序运行后，单击命令按钮，则文本框中的输出结果是 ( )。 A、7 B、75 C、5 D、2 26、在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令 按钮(Name 属性为Command1)，然后编写如下两个事件过程: Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub 2 Private Sub Form_Load() Text1 .Text="" Text2 .Text="" End sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为( ) 。 A、444 B、321123 C、123321 D、 132231 27、用Dim A (3 To 5) As Integer语句定义的数组的元素个数是( ) 。 A、3 B、2 C、5 D、6 28、当改变数据控件的记录指针时Reposition事件和Validate事件发生的先后顺序为 ( ) A、Reposition事件在Validate事件之后 B、Reposition事件在Validate事件之前 C、Reposition事件和Validate事件同时发生 D、只发生Reposition事件 29、在列表框控件(list1)的属性中，与“list1.list(list1.index)”语句等价的属性是 ( ) A、 Text B、 Listcount C、Selected D、 style 30、以下那一个方法不属于窗体的方法 ( ) A、Popupmenu B、Show C、AddItem D、Move A、softWare and hardware B、software C、hardwafe D、1 31、执行如下语句: a,inputBox("Today"，"Tomorrow''，"Yesterday",,,"Day before yesterday"，将显示 一个输入对话框，在对话框的输入区中显示的信息是 ( ) A、Today B、Tomorrow C、Yesterday D、Day before yesterday 32、表示滚动条控件取值范围最大值的属性是 ( ) A、Max B、LargeChange C、Value D、Max-Min 33、以下可以构成语句的一项是( ) A、对象名.属性名 B、对象名.事件名 C、对象名.方法名 D、对象名.函数名 34、在VB中通过( )属性来设置字体颜色 A、FontColor B、Forecolor C、BackColor D、ShowColor 35、如果文本框Text1的GotFocus事件过程有Text1.Text=“abcd”:Text1.Selstart=1 : Text1.SelLength=2 代码，程序运行时，当文本框获得焦点后，文本框内会( ) A、显示abcd且 ab 字符被选取 B、显示abcd且bc字符被选取 C、显示选取的ab字符 D、显示选取的bc字符 36、以下不属同类的一项是( ) A、Change B、Name C、Width D、Enabled 37、复选框对象是否被选中，是由其( )属性决定的 A、Checked B、Enabled C、Value D、Selected 38、下拉式组合框的Style属性值为( ) A、0 B、1 C、2 D、3 39、在运行时，系统自动执行启动窗体的( )事件过程 3 A、Click B、GotFocus C、Load D、Unload 40、可以用作其它控件容器的控件有( ) A、 窗体控件，列表框控件，图像控件 B、 窗体控件，文本框控件，框架控件 C、 窗体控件，框架控件，图片框控件 D、窗体控件，标签控件，图片框控件 二、填空题 1(一个工程可以包括多种类型文件，其中扩展名为.vbp的文件表示 文件。扩展名为.frm的文件表示 文件。 2(VB可视化编程的步骤是 ， ， 。 3(VB事件是 。 4(VB事件的过程 。 5(在代码窗口中输入某行代码并按回车键后，如果代码变红，表示 。 (对象是代码和数据的集合，例如，Visual Basic 中的 ， ， 等6 都是对象。 (菜单分为 菜单和 菜单，菜单总与 相关联，设计菜单需要在 7 中设计。 8(要在菜单中建立分隔符条，应在菜单编辑器的 选项中键入一个 符号。 9(设有数组声明语句 : Dim a ( 1 to 2, 2 to 4 ) as integer 则数组A中包括的所有元素有 10(一个应用程序最多可以有 个MID父窗体。 11(计时器每隔一秒钟发生一次timer时间，应将其属性 的值设置为 。 12(要让文本框text1显示多行，应该设置text1的 属性为 。 13、Visual Basic有 、 、 三种版本，各自满足不同的开发需要。 14、Show方法的作用是_______一个窗体，Hide方法的作用是_______一个窗体。 15、窗体对象可以识别KeyPress、KeyUp、KeyDown事件，在按下某键时，这三个事件发生的次序是: ___________、___________、___________。 16、滚动条动条控件的value属性表示_______________________。滚动条控件的scroll事件在________________________________发生。 17、对于 DirListBox 控件，当前展开的目录index为 ，当前展开的目录以下的目录index的范围是 0 到 ，当前展开目录的上一级目录index为 。 18、菜单命令的enabled属性设为_________时，菜单命令无效。 19、想改变命令按钮上显示的文字内容，是改变它的____________ 属性值;要改变文本框中显示的文字内容，是改变它的____________属性值。 20、定时器控件的Interval属性值是指时间间隔，单位为 ;当每隔此间隔的时间，定时器会触发一次 事件。 21、给列表框中添加列表项的方法是 。 22、在图像框控件(Imagebox)中，将属性 的值设置为true时，可调整图片的大小以适应图像控件的。 4 23、如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 。 24、所有控件都具有的共同属性是 属性。 25、因修改文本框控件的文本属性而触发的事件是 事件。 三、判断对错。(正确的打“?”,错误的打“×”) 1(语句Label1.Caption =”Thank you!”的语法是正确的。( ) 2(命令按钮的常见事件有单击(Click)、双击(DblClick)等事件。 ( ) 3(语句Dim Name As Single 作用是:将Name定义为布尔型变量。 ( ) 4(单选框列出可供用户选择的选项，用户根据需要只能选定其中的一项。 ( ) 5. 随机文件是以记录为单位的，每条记录都被赋予了记录号以便查找。( ) 6(执行”工具”菜单中的”菜单编辑器”命令就可打开菜单编辑器窗口。( ) 7.可以使用CommonDialog控件的ShowFont方法来显示“打开”对话框。 ( ) 8(画弧语句中如果省掉纵横比或纵横比等于1，则画的是圆弧，否则画的是椭圆的一部分。 ( ) 9(下列程序段的语法是正确的。( ) For I = 1 To 10 S = S + 2 Next K 10. Str(number)功能是将给定数值表达式number的值转换为字符串。 ( ) 11、窗体的Enabled属性为False时，窗体的上的按钮、文本框等控件就不会对用户的操作做出反应( ) 12、文本框中只能显示单行文本，要显示多行文本应该使用列表框控( ) 3、标签控件所显示的文本只能在设计时设置，运行时不能改变( ) 1 14、菜单控件的属性可以通过属性窗口设置( ) 15、如果一个菜单项的Visible属性为False，则它的子菜单也不会显示，且菜单命令变得无效( ) 16、计时器控件在运行时是可见的( ) 四、读程序，写结果 1、a=1:b=0 select case a case 1 select case b case 0 print “**0**” case 1 print “**1**” end select case 2 print “**2**” 5 end select 2、dim a(10,10) for I=2 to 4 for j=4 to 5 a(I,j)=I*j next j next I print a(2,5)+a(3,4)+a(4,5) 3、下面的程序用于检查文本框Text1中输入的表达式中的圆括号是否配对，并给出相应的提示。( 10 分) Dim num as integer Private sub text1_keypress(keyascii as integer) If =” ( “ then Num=num+1 Elseif =” )” then End if If keyascii=13 then If then Print “左右括号配对” Elseif then Print “左括号多于右括号”; num ;”个“ Else Print “右括号多于左括号”;-num ;”个” End if End if End sub 五、 程序填空。 1、编写一个对输入字符进行转换的程序。转换规则为，将其中的大写 字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“,“。要求每输入一个 字符，马上就进行判断和转换。 “输入字符串“文本框对象Text1对应的KeyPress事件代码为: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim aa As (,) aa = Chr$(KeyAscii) Select Case aa Case "A" To "Z" „大写转换成小写 aa = Chr$(KeyAscii + 32) Case "a" To "z" „小写转换成大写 6 aa = (,) Case " " aa = " " Case Else aa = (,) End Select Text2.Text = Text2.Text & aa End Sub “清屏”按钮Command1的Click事件代码为: Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" End Sub “结束”按钮Command2的Click事件代码为: Private Sub Command2_Click() (,) End Sub 2. 求1到6的阶乘之和。 Function fact(x as integer) as long Dim P as long, I as integer P= (5) For I=1 to x P= (6) Next I (7) = P End Function Private Sub Command1_Click( ) Dim sum as long, I as integer For I=1 to (8) Sum= (9) Next I Label2.caption=sum End sub 3. 在下列事件过程中，如果选中复选框1，则文本变成斜体，如果选中复选框2，则文本变成红色。 Private Sub Check1_Click( ) If Check1.Value=1 Then Text1. FontItalic= (10) Else Text1.FontItalic=False 7 End If End Sub Private Sub Check2_Click( ) If Check2.Value=1 Then Text1. (11) =vbRed Else Text1. (11) =vbBlack End If End Sub 如果选中单选框1，则文本字体为宋体，如果选中单选框2，则文本字体为隶书。其代码如下: Private Sub Option1_Click( ) Text1.FontName=”宋体” End Sub Private Sub Option2_Click( ) Text1.FontName= (12) End Sub 4、 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click() Form1 Form2. End Sub 5、实现目录列表框，驱动器列表框，文件列表框三个文件控件的同步显示内容的程序代码为: Private Sub Drive1_change ( ) _____________________ End Sub Private Sub ________________ ( ) File1.path = Dir1.Path End Sub 6、创建一个窗体，在窗体上添加一个标签控件当按下鼠标键并移动鼠标时，则标签上显示“鼠标键按下，并正在移动”，如果未按下鼠标键而移动鼠标，则标签上显示“没有按下鼠标键，但鼠标在移动”本例题运行后，界面如图，请将程序补充完整。 8 Dim Now As Boolean ' 声明变量 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Now = End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Now = End Sub Private Sub Form_ (Button As Integer, Shift As Integer, X As Single, Y As Single) If Now Then Label1.Caption = "鼠标键按下，并正在移动" Else Label1.Caption = End If End Sub 7、设计一个简易计算器，能进行整数的加、减、乘、除运算。其运行界面如图所示。 Option Explicit Dim cal As String Dim s As Integer Dim h As Single Dim st(10 To 13) As String Dim stc(10 To 13) As String Private Sub Command_Click(Index As Integer) Select Case Case 0 To If s = 0 Then s = 1 Text1.Text = CStr(Index) Else 9 Text1.Text = Text1.Text + CStr(Index) ss(s) = ss(s) + CStr(Index) End If Case 10 To 13 If s = 1 Then cal = st(Index) Text1.Text = Text1.Text + stc(Index) End If Case 14 If s = 2 Then Select Case cal Case "+": h = Val(ss(1)) Val(ss(2)) Case "-": h = Val(ss(1)) Val(ss(2)) Case "*": h = Val(ss(1)) Val(ss(2)) Case "/": h = Val(ss(1)) Val(ss(2)) End Select Text1.Text = Text1.Text + "=" + CStr(h) s = 0 ss(1) = "" ss(2) = "" End If Case 15 Text1.Text = "" s = 0 ss(1) = "" ss(2) = "" End Select End Sub Private Sub Form_Load() s = 0 ss(1) = "" ss(2) = "" st(10) = "+": st(11) = "-": st(12) = "*": st(13) = "/" stc(10) = "+": stc(11) = "-": stc(12) = "*": stc(13) = "/" End Sub 8、设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程: 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)为实现此功能，请填空。 10 PriVate Sub Commandl_C1ick() Static b As Variant b,Array(1,3,5,7,9) For i,0 To 5-1,2 tmp,_______________ b(i),b(5-i-1) _______________,tmp Next End Sub 六、编写程序 1.按下图所示，写出相应的代码，该程序是求100——500之间的质数和质数之和 2.窗体上有一个图片框picture1和三个滚动条hs1、hs2和hs3(分别用来表示红色、绿色和蓝色)，改 变这三个滚动条的值，这图片框的背景颜色也随之改变，编写代码完成程序功能，写出相关控件的主 要属性。 11 3. 输入3个数，输出其中最大的数。 4.建立一个水平滚动条，其Max属性为255，Min属性为0， SmallChange属性为1，LargeChange属性为20，Value属性初始值为50。另有一个文本框，它显示滑块当前位置的值。 5. 用InputBox输入长和宽，求长方形的周长。 6. 利用文本框和命令按钮控件制作密码框。 7.利用列表框和命令按钮编程，要求程序能够实现添加项目、删除项目、删除全部项目的功能，添加的内容来自输入对话框。程序界面如图所示: 12 13