语言

Show Sum = 0 Do While True 39。 条件为真，循环无终止进行下去 x = Val(InputBox(请输入要加入的数 (1表示结束 ), 输入数据 )) If x = 1 Then Exit Do End If Sum = Sum + x = Sum Loop MsgBox (累加运算结束 ) End Sub 以 1作为“终止循环标志” 例 设计一个 “ 加法器 ”

39。 读出 Close 1 Print c, d$ End Sub 123 ABCD 例 一个存取数据的示例 已知文件“ ”中存放一批能被 7整除的数 (见例 及例 )，现要求把这些数显示出来。 每行显示 4个数。 Private Sub Form_Load() Show k = 0 Open For Input As 1 Do While Not EOF(1) 39。 文件未结束时，循环

(2)有一个明确的结束递归的条件 (终止条件 )，否则过程将永远“递归”下去 过程的递归调用 可用下列的递归公式 1 n=1 n (n1)! n1 本递归中，终止条件是 n=1 n! = 例 采用递归方法求 n! (n0) Private Sub Form_Load() Dim n As Integer, m As Double Show n = Val(InputBox(输入 1～

改变数组的大小，提高存储区的使用效率 建立动态数组 建立动态数组的步骤： 第一步：声明一个没有下标 (或称空维数 )的数组为动态数组 第二步：在过程中用 ReDim语句重新定义带下标的动态数组 ReDim语句 格式 ： ReDim [Preserve] 数组名 ([下界 1 T0] 上界 1[， [下界２ T0] 上界 2…]) [As 数据类型 ] 功能： 重新定义动态数组

性赋值等 7. 监视窗口 对用户定义的表达式进行监视 例 运行以下的窗体装载事件过程 ： Private Sub Form_Load() Dim a% a% = 5: a = c = 1 / (a a%) End Sub 运行时出错，消息框提示发生“ 除数为零 ”的错误。 单击消息框中的“调试”按钮，即可进入中断模式， VB在代码窗口中用箭头指示发生错误的语句“ C=1/(aa%)”。

t(b, +,.) Print Format(TimeVar, h:m:s) 输出结果是： 4, $4, +3, 8:30:5 格式符号 和 0都能显示数字，但符号 会剔除不必要的 0，符号 0会按规定补足 0 3. Format 下载 窗体 (Form)是设计 VB应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的。 一个程序可以有多个窗体

长 ， 计算并输出正方形的面积 分析：要创建的应用程序用户界面 (图 ) 文本框 Text1 文本框 Text2 命令按钮Command1 命令按钮 Command2 标签 Label1 标签 Label2 窗体 Form1 下载 窗体上含有两个标签 、 两个文本框和两个命令按钮 两个标签分别用于显示文字 “ 边长 ” 和 “ 面积 ” 两个文本框用于输入数据和显示计算结果 程序功能要求：

报告 8/21 { public void actionPerformed(ActionEvent event){ (()+str)。 } })。  查找替换功能 : public void showFind(){ setTitle(查找 )。 setSize(280,60)。 setVisible(true)。 } public void showReplace(){

，再用手势等指明方向。 这就是一种重复。 2． 抵触或否定 (Contradicting)。 有时，非语言信息与语言信息 不一定相一致，语言传达的并非真正的信息，而非语言行为传达的反而才是真正的信息。 比如，刚开始时我说：“我一点也不紧张。 ”而手脚却在发抖；再如：甲对乙说：“你干得真不错”，同时却向丙使眼色表示不满。 这种情况下，人们往往倾向于更相信非语言信息。 3． 替代功能

d\n,a,b)。 printf(a=%d, b=%d\n,a,b)。 printf(m: %d, %o, %x, %u\n,m,m,m,m)。 printf(n=%d\n,n)。 printf(n=%ld\n,n)。 } 程序输出： 1122 a=11, b=22 m: 1, 177777, ffff, 65535 n=13035 n=123456789 例 jc3_a 2020/6/28