《1word.对口高考计算机类专业课综合模拟试卷一(试卷).doc》由会员分享，可在线阅读，更多相关《1word.对口高考计算机类专业课综合模拟试卷一(试卷).doc（8页珍藏版）》请在金锄头文库上搜索。
1、书 山 有 路2016年内蒙古自治区高等职业院校对口招收中等职业学校毕业生第一次模拟考试计算机类专业课综合试卷注意事项：本试卷共8页，满分350分，考试时间为150分钟； 题号总分分数得分评卷人Visual Basic程序设计（100分）一、单项选择题(本大题共20小题，每小题2分，共40分。) 1决定标签内显示内容的属性是( )AText BName CAlignment DCaption2下面值为真的逻辑表达式是( ) AA a B 9 a CThat Thank D 1212.13在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )A工程资源管理器窗口 B工具箱窗口 C代码窗口 D
2、属性窗口4Visual Basic的工程文件的扩展名是( )A.for B.frm C.vbp D.bas5数据36345是( )数据。A整型B长整型C字符型D日期型6下列( )是正确的日期型数据。A11/12/2010 B#11/12/2010#C11/12/2010 D&11/12/2010&7以下各项中可以作为VB变量名的是( )A85 Bint.sum CA52B D2ab8.表达式5 / 2 * 6的值是( )A15 B24 C12 D09表达式XYZ + 487的值是( )A“XYZ487” B“XYZ” C“487” D“487XYZ”10在VB中，复写框（Check）的Valu
3、e值有三种，分别是( ) A -1，0，1 B 0，1，2 C 1，2，3 DTrue，False，011下列程序段的运行结果是：( )Dim A As Integer , B As Integer , X As Integer A = 1 ：B = 2 IF A =3Print nA1 B2 C3 D416在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a As Varianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next i
4、x=Sum/5For i =1 To 5If a(i)x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是( )A1 2 B1 2 3 C3 4 5 D 4 517下面程序段运行后的输出结果是( )。 Dim a(20) As Integer, i For i=1 To 20 a(i)=i*i Next i Print a(2)+a(3)+a(4) A14 B20 C25 D29 18设有命令按钮Command1，为了在运行时使该命令按钮失效（变灰），正确的属性设置为( ) ACommand1.Enabled=True BCommand1
5、.Enabled=False CCommand1.Visible=True DCommand1.Visible=False19如果希望一个窗体在显示的时候没有边框，应该完成的操作是( ) A将窗体的Caption设成空字符 B将窗体的Enabled属性置成False C将窗体的BorderStyle置成None D将窗体的ContalBox置成False20设有如下程序：Private Sub Form_ Click () Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 arr1(i,
6、j) = i * j Next j Next i Text1.Text = arr1(1, 3) + arr1(2, 4) End Sub 程序运行后，单击窗体，在文本框显示的值是_。A 10 B 11 C 12 D 20 二、填空题（本大题共7小题，每空1分，共10分）1Visual Basic提供了结构化程序设计的三种基本结构，三种基本结构是_ 、_和 _。2布尔型数据只有_和_两个值。3用 Dim x as variant 定义的变量 x ,其类型是_。4产生一个30，100范围内的随机数的表达式是_ 。5设有数组声明语句：Dim a (1 to 5, 4) as integer 则数组
7、A中包括的元素有_个。6如果要时钟控件每0.5秒钟发生一个Timer事件,则Interval属性应设置为_。7InputBox（）函数返回值的数据类型是_。三、程序填空题（在方括号“ ”后面的横线“_”上填上正确的答案，每空2分，共50分。）1下面这段程序是求1100的偶数之和。 sum=【1】_ For i=【2】_ sum=sum+【3】_ Next i Print “sum=”；sum2求S=1！+2！+3！+5！请在空白处填入正确答案。 S=0For i=1 To 5【4】_ For j=1 To【5】_ T=【6】_【7】_S=【8】_Next iPrint 结果是： & S 3下面
8、程序段的功能是：在文本框中输入一个数据，如果该数据满足 “既能被5整除，又能被7整除”这个条件，则输出；否则，清除文本框的内容，并将焦点定位在文本框中。Dim x As Integerx=【9】_If 【10】_ Then Print xElse Text1.Text=“” 【11】_End If4求任意两个数中的最大值，请在空白处填入正确答案。 Private Sub Command_Click ( ) Dim A As Single , B As Single , 【12】 _A = Val (Text1 . Text ) B =【13】 _ IF A B THEN 【14】_ELSE M
9、=AEnd If Text3 . Text =【15】_ End If5如下程序的功能是用Array函数建立一个含有10个元素的数组,然后查找并输出该数组中的最小值,请填空: OptionBase1 PrivateSubCommand1_Click() Dimarr1 DimMinAsInteger,iAsInteger arr1=Array(10,43,47,-24,8,4,66,3,55,69) Min=【16】_ Fori=【17】_ Ifarr1(i) xx(j) Then【21】 _End IfNext 【22】_For i = 1 To 10Print xx(i); Next iEnd Sub7输出3100之间所有素数。(提示：只能被1和自身整除的自然数称为素数。)Private Sub Command1_Click()For x = 3 To 200f = -1For i = 2 To【23】_ If【24】 _ Then f = 0 i = xEnd IfNexti If【25】_Then Print a;Next xEnd Sub得分评卷人.计算机网络技术与应用（100
