2014计算机二级VB考试试题及答案4-2 |
来源:2exam.com 2014-7-30 18:22:07 |
11.与数学表达式ln(a+b)/(3x)+5 对应的Visual Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】12.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】13.在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换。Private Sub Option1_Click(Index As Integer)Select Case 【Index】Case 0a = "宋体"Case 1a = "黑体"Case 2a = "楷体_GB2312"End Selecttext1.fontname=aEnd Sub14.在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换。Private Sub Option1_Click(Index As Integer)Select Case indexCase 0a = "宋体"Case 1a = "黑体"Case 2a = "楷体_GB2312"End Selecttext1.【fontname】=aEnd Sub15.在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2。程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。Private Sub Combo1_Click( )Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click( )Call ShowItem(Combo2, Label2)End SubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)【tmplabel】.Caption =tmpCombo.TextEnd Sub16.在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。Private Sub Combo1_Click( )Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click( )Call ShowItem(Combo2, Label2)End SubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)tmpLabel.Caption =【tmpcombo】.TextEnd Sub17.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )n = 5f = 1s = 0For c = 1 To nf = f*【7】s = s + fNext cPrint sEnd Sub该事件过程的功能是计算1!+2!+3!+…+n!的值。18.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerFor I = 1 To 10a(I) = INext ICall【swap】a( )For I = 1 To 10Print a(I);NextEnd SubSub swap(b( ) As Integer)n = ubound(b)For I = 1 To n / 2t = b(I)b(I) = b(n)b(n) = tn=n-1Next IEnd Sub上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。19.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerFor I = 1 To 10a(I) = INext ICall swap(a( ))For I = 1 To 10Print a(I);NextEnd SubSub swap(b( ) As Integer)n =【ubound(b)】For I = 1 To n / 2t = b(I)b(I) = b(n)b(n) = tn=n-1Next IEnd Sub上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。20.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerFor I = 1 To 10a(I) = INext ICall swap(a( ))For I = 1 To 10Print a(I);Next IEnd SubSub swap(b( ) As Integer)n = ubound(b)For I = 1 To n / 2t = b(I)b(I) = b(n)b(n) = tn=【n-1】Next IEnd Sub
|
网站版权与免责声明
①由于各方面情况的不断调整与变化,本网所提供的相关信息请以权威部门公布的正式信息为准.
②本网转载的文/图等稿件出于非商业性目的,如转载稿涉及版权及个人隐私等问题,请在两周内邮件fjksw@163.com联系. |
|
|
|