VB的复习提纲.docVIP

从键盘输入10个数，编程找出其中最大值和最小值。 [程序] SET TALK OFF CLEA s=0 input “请从键盘输入一个数：” TO a Store a to max1,min1 For i=2 to 10 Input “请从键盘输入一个数：” TO a if max1a max1=a endif if min1a min1=a endif ?”最大值为：”，max1 ?”最小值为：”，min1 RETURN SET TALK ON 逐条输出学生表中1970年出生的学生记录。 [程序] set talk off clear use 学生 index on year(出生年月) tag csrqsy seek {^1970/01/01} do while year(“出生年月”)=1970 display skip Enddo Use return set talk on 下面程序实现.按要求输入规则字符的表单设计，界面如下图所示；.根据选项组的控制，对文本框进行有效性的输入，编辑框内容为只读性的说明，不可更改其内容。 [程序] 选项按钮组optiongroup1的click事件代码 Thisform.Text1.Selectonentry=.t. Thisform.Text1.Value= Thisform.Text1.Inputmask= Thisform.edit1.readonly=.t. If this.Value=1 Thisform.Text1.Inputmask= Thisform.Edit1.value=可接受任何字符 Thisform.Text1.Setfocus Else Thisform.Text1.Inputmask=99999999999999999999 Thisform.Edit1.Value=只接受数字字符+chr(13)+Inputmask::9999999999 Thisform.Text1.Setfocus Endif 所谓水仙花数，比如一个三位数，其各位数字的立方和等于该数本身（如153=1^3+5^3+7^3）。 [程序] SET TALK OFF CLEA FOR M=100 TO 999 A=INT(M/100) B=INT(MOD(M,100)/10) C=M%10 IF M=A^3+B^3+C^3 ?M ENDIF ENDCASE RETURN SET TALK OFF Input “请输入一个数：” to x Store 0 to s,cnz,cnf,zs,fs Do while .t. If x=0 Exit Endif If x0 Zs=zs+x Cnz=cnz+1 Else Fs=fs+x Cnf=cnf+1 Endif Input “请输入一个数：” to x Enddo ?cnz,cnf S=fs+zs ?s Avz=zs/cnz ?avz Avf=fs/cnf ?avf SET TALK ON S的输出值为所有数字之和， cnz, cnf的输出值分别为正数和负数的个数 avz的输出值为正数的平均数 avf的输出值为负数的平均数 输入表名，如果存在，则显示该表中所有字段，否则输出‘找不到该文件’。 SET TALK OFF CLEA DO WHIL.T. ACCEPT“输入文件名=”TO FNAME IF FILE（FNAME） I=1 DO WHILE I=FCOUNT() ？ FIELD（I） I=I+1 ENDDO ELSE ？‘找不到该文件’ ENDIF WALT‘输入是否继续？（Y-继续/N-退出）’TO X IF LOWER(X)=’N’ EXIT ENDIF ENDD SET TALK ON 要求： 输入一个三位整数，将其反向输出。如输入326，输出623 SET TALK OFF CLEAR INPUT “请输入一个三位数：”TO N A=MOD（N，10） B=MOD（INT（N/10），10） C=INT（N/100） N1=A*100+B*10+C阶段 ？“转换后的输出为：”，N1 SET TALK ON 编制一个判断口令的表单。初始布局界面如图1所示。命令按钮“确定”、“退出”名称分别为COMMAND1、COMMAND2。具体要求： （1）口令为固定内容如“ABC123456”，当单击“确定”时判断口令是否正确，若正确显示“欢迎使用本系统”，若错误显示“