内容发布更新时间 : 2024/12/28 6:44:11星期一 下面是文章的全部内容请认真阅读。
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