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

Next i

If a(i) >= 10 Then a(i) = Int(a(i) / 10) m = 0

For i = 1 To 11 m = m + a(i) Next i Print m End Sub

窗体启动后,单击命令按钮,窗体显示的结果为________。

2.分析下面Visual Basic程序。如图所示,界面中有两个文本框和一个命令按钮,上面有字符的控件是

文本框1(名称Text1),中间的控件是文本框2(名称Text2),最下面的控件是命令按钮(名称Command1)。

Private Sub Command1_Click() Dim num As String Dim num1 As String Dim num2 As String Dim c As String Dim i As Integer Dim length As Integer Dim length1 As Integer Dim length2 As Integer length1 = 0: length2 = 0 num = Text1.Text length = Len(num) For i = 1 To length c = Mid(num, i, 1) If c <> \ num1 = num1 + c

13

length1 = length1 + 1 Else

If length1 > length2 Then length2 = length1: num2 = num1 length1 = 0: num1 = \ Else

length1 = 0: num1 = \ End If End If Next i

If length1 > length2 Then num2 = num1 End If

Text2.Text = num2 End Sub

窗体运行后,在文本框1中输入图中所示的字母和数字,单击命令按钮,则在文本框2显示的内容是__________________。 3.有如下Visual FoxPro程序:

CLEAR PUBLIC C,D A=12345678 B=10 C=20 D=30 N=0

DO SUB1 WITH A,B ?A,B,C,D PROCEDURE SUB1 PARAMETERS X,Y PRIVATE C Y=0 FLAG=.T. DO WHILE FLAG Y=X+Y*10 X=INT(X/10)

14

N=N+1 I=0 E=Y DO WHILE I<=N

E=E*10 I=I+1

ENDDO D=E+D IF X<100

FLAG=.F.

ENDIF ENDDO

C=STR(X)+STR(Y) RETURN ENDPROC

运行上面的程序,显示的结果为: 。

4.现有表“CJB.DBF”,结构为:BJ_NAME(C,30)、XM(C,8)、YW(N,4,1),表中数据如下图所示:

有如下Visual FoxPro程序: ACCEPT \请输入班级名:\USE CJB.DBF

INDEX ON YW TAG YWSX DIME TEMP(10) K=0 SAV=0 N=0

DO WHILE NOT EOF()

15

IF TRIM(BJ_NAME)=TRIM(BJM) TEMP(K+1)=YW K=K+1

ENDIF N=N+1 SAV=SAV+YW SKIP ENDDO FOR M=1 TO 1

ZH1=TEMP(M) ENDFOR FOR M=2 TO 2

ZH2=TEMP(M) ENDFOR FOR M=3 TO 3 IF K<3 ZH3=ZH2 ELSE

ZH3=TEMP(K) ENDIF ENDFOR

P=ZH1*0.5+ZH2*0.35+ZH3*0.15-SAV/N ?P

运行上面的程序,输入“高三(1)班”,显示的结果是: 。

5. 数据库文件ZKSCORE.DBC包含1个表“CJB.DBF”,表结构为:准考证号(C,9)、姓名(C,8)、学校名称

(C,20)、班级名称(C,20)、总分(N,5,1)。表数据如下图所示:

16