内容发布更新时间 : 2024/11/14 15:59:25星期一 下面是文章的全部内容请认真阅读。

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