2017年河北省对口升学计算机专业理论试题(附答案)

内容发布更新时间 : 2025/7/26 1:26:23星期一 下面是文章的全部内容请认真阅读。

End If End Sub

2.(Visual Basic试题)窗体上有五个标签(用来提示其右侧的内容,标题分别是数据1,数据2,滚动条,

运算符,结果)。数据1右侧是文本框1(名称为Text1),数据2右侧是一列表框(名称为List1),运算符右侧是一组合框(名称为Combo1),上述三个控件内容如程序及图所示。滚动条(名称为HS1)最小值和最大值分别是10和50,滚动条的LargeChange属性值为10。界面中目前显示42的控件是文本框2(名称为Text2),其值由文本框1中部分数据、组合框中选定的运算符及列表框中数据进行某种运算产生。标题显示“开始”的是一命令按钮(名称为Command1)。有一定时器控件(名称为Timer1),初始设置Timer1.Enabled 为 False,Timer1.Interval =2000,定时器的Timer1_Timer事件主要功能是:程序中的变量a保存从Text1中选定的内容,变量c保存从Combo1中选定的值,变量b保存List1及HS1的运算结果。这些变量按指定规则运算,结果显示在Text2中。下图是窗体启动并单击“开始”按钮后,滚动条的值达到30时的状态。请在划线位置填写正确的内容。

Private Sub Form_Load() List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \List1.AddItem \Combo1.AddItem \Combo1.AddItem \Combo1.AddItem \Combo1.AddItem \Text1.Text = \End Sub

Private Sub Command1_Click() Timer1.Enabled = True

21

Text1.SelStart =__________ Text1.SelLength = 2 End Sub

Private Sub Timer1_Timer() Dim a As Integer Dim b As Integer Dim s As Integer Dim c As String Static n As Integer n = n + 1

HS1.Value = n * 10 a = Val(Text1.SelText)

b = Val(List1.List((HS1.Value / 10) - 1)) c = ____________ Select Case c Case \ s = a + b Case \ s = a - b Case \ s = a * b Case \ s = a / b End Select Text2.Text = s If n = 5 Then n = 0

End Sub

3.(Visual FoxPro试题)已知有“KSSCORE.DBC”数据库,其中包含表“CJB.DBF”, “CJB.DBF”表的结

构为准考证号(C,9)、姓名(C,8)、学校名称(C,20)、班级名称(C,10)、科目1(C,4,1)、科目2(C,4,1)……科目9(C,4,1)(共9个科目)。应用程序运行时界面如下图所示:

22

设置控件属性如下:

有三个标签,其Name属性分别为Label1、Label2和Label3,Caption属性分别为“学校选择”、“班级选择”、“结果:”;有一个文本框,其Name属性为Text1;两个组合框,其Name属性分别为Combo1和Combo2,其中分别列出了供选择的学校和班级(属性中已设置,代码中直接使用);一个命令按钮,其Name属性为Command1,Caption属性为

>>展开全文<<
12@gma联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4 ceshi