2014计算机二级VB考试试题及答案4-1 |
来源:2exam.com 2014-7-30 18:21:40 |
1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:Private Sub Command1_Click( )n = Val(Text1.Text)If n\2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)A.72 36 B.108 36 C.72 6 D.27 32.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i) B.Left(c1,i)C.Mid(c1,i,1) D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数 B.输出n以内的偶数C.输出n以内的素数 D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是(C)(单)A.11 B.10 C.9 D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)A.15 B.14 C.13 D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。7.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Thenpopupmenu mnuEditEnd IfEnd Sub8.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序,请填空。Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Then【popupmenu】 mnuEditEnd If9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【Interval】属性设置为500。10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的Interval属性设置为【500】。
|
网站版权与免责声明
①由于各方面情况的不断调整与变化,本网所提供的相关信息请以权威部门公布的正式信息为准.
②本网转载的文/图等稿件出于非商业性目的,如转载稿涉及版权及个人隐私等问题,请在两周内邮件fjksw@163.com联系. |
|
|
|