visualfoxpro程序设计

第6章 循环结构程序设计

许多问题的求解归结为重复执行的操作,例如输入多个同学的成绩、对象遍历、迭代求根等问题。这种重复执行的操作在程序设计语言中用循环控制来实现。几乎所有实用程序都包含循环。特别是在现代多媒体处理程序（图像、声音、通讯）中，循环更是必不可少。

根据开始循环的初始条件和结束循环的条件不同，C语言中用如下语句实现循环 (1) while语句。 (2) do-while语句。 (3) for语句。

(4) 用goto语句和if语句构成循环。

循环结构在程序设计中十分重要。所谓循环结构就是当给定条件成立时，反复执行某段程序，直到条件不成立时为止。给定的条件称为循环条件，反复执行的程序段称为循环体。

6.1 while语句

while语句最简单的情况为循环体只有一个语句，其形式如下： while(表达式) 语句；

但是，while语句通常使用更复杂的形式，也就是其一般形式： while(表达式) {

语句序列； }

其中表达式是循环条件，语句序列为循环体。其执行过程是：先计算while后面圆括号内表达式的

假（0）值，如果其值为真（非0），则执行语句序列

1编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m

答案： Dim y As Double Dim i As Integer For i = 1 To m

y = y + 1 / (2 * i) Next fun = y

2题目：(事件)双击窗体。(响应)编写代码功能如(图1)。 将结果存入变量S中

答案：---------------------- Dim i As Integer s = 1

For i = 1 To 10 s = s * i * i Next

Print (CStr(s))

3(事件)单击窗体。(响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果， ' 并将结果输出到窗体上。 将结果存入变量M中

答案：---------------------- Dim i, j As Integer Dim s As Long For i = 10 To 15 s = 1

For j = i To i + 2 s = s * j Next

m

实验九 顺序结构程序设计与分支结构程序设计

实验目的：

1．熟悉程序的编辑环境以及程序文件的建立、运行与调试方法。 2．掌握VFP程序设计语言的特点和基本输入输出命令的使用。

3．掌握顺序结构程序的设计方法，解决简单的数值计算问题。

4．掌握分支程序的特点，学会正确使用逻辑运算符、逻辑表达式、比较表达式。 5．掌握单分支、双分支、多分支程序设计方法。 实验准备：

1．算法的概念、结构化程序设计的基本步骤。 2．建立、修改、删除、执行程序文件的命令。

3．交互式输入命令INPUT、ACCEPT、WAIT和输出语句？、？？的使用。 4．选择结构的概念与类型，实现多重选择的方法。

5．选择结构语句IF－ELSE－ENDIF与DO CASE－ENDCASE的使用方法。 6．程序算法以及对应的程序结构化流程图。 实验内容

1．输入语句、输出语句的使用，其他辅助语句的使用。

(1) 使用？和？？命令输出变量、常量、表达式的值，观察结果。 (2) 使用@ … SAY命令输出变量、常量、表达式的值，观察结果。 (3) 使用ACCEPT、INPUT、WAIT等命令输入变量的值。

2. 创建程序文件prog

第 1 3 章 图形化用户界面（GUI）

Swing 较早期版本中的AWT更为强大、性能更优良，Swing 中除了保留AWT中几个重要的重量级组件之外，其他组件都为轻量级，这样使用Swing 开发出的窗体风格会与当前运行平台上的窗体风格一致，同时程序员也可以在跨平台时指定窗体统一的风格与外观。Swing 的使用很复杂，本章主要讲解Swing 中的基本要素，包括容器、组件、窗体布局、事件和监听器。 通过阅读本章，您可以：

? 了解Swing 组件 ? 掌握使用常用窗体

? 掌握在标签上设置图标

? 掌握应用程序中的布局管理器 ? 掌握常用面板 ? 掌握按钮组件 ? 掌握列表组件 ? 掌握文本组件

? 学会常用事件监听器

一、图形化用户界面介绍

? Swing 概述

原来的AWT 组件来自java.awt 包，当含有AWT 组件的Java应用程序在不同的平台上执行时，每个平台的GUI组件的显示会有所不同，但是在不同平台上运行使用Swing 开发的应用程序时，就可以统一GUI 组件的显示风格，因为Swing 组件允许编程人员在跨平台时指定统一的外观和风格。

Swing 组件通常被称为“轻量级组件”，因为它完全由Java语言编写，而Java是不依

程序设计 1、'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。 ' 结果存入变量S中

'------------------------------------------------- Private Sub Form_Click() Dim s As Integer s = 0

'********* Program ************ Dim i,j As Integer j = 1

For i = 1 To 5 J = j * i

S = s + j Next i Print s

'********** End ***************** YZJ (s) End Sub

2、'【程序设计】

'-------------------------------------------------

'题目：判断一个数是否是素数。

'-----------------------------------

1【程序设计】

功能：将tt数组中的小写字母都改为对应的大写字母，其它字符删除。 例如：a4 bdsk88*,结果：ABDSK void TestFunc(); #include #include void fun(char tt[])

{/*********Begin**********/ int i,j=0;

for(i=0;tt[i];i++)

if(('a'<=tt[i])&&(tt[i]<='z')) tt[j++]=tt[i]-32; tt[j]=0;

/********** End **********/} main()

{ char tt[81];

printf(\ gets(tt); fun(tt);

printf(\ TestFunc();} void TestFunc() { ILE *IN,*OUT; char s[100];

IN=fopen(\ if(IN==NULL)

{ printf(\ OUT=fopen(\ if(OUT==NULL)

{ printf(\ fgets(s,100,IN); fun(s);

fprintf(OUT,

《VISUAL BASIC》教学执行大纲

(试行稿)

[适用于计算机应用专业(学分制) 100学时]

(二○○八年二月制订)

一、课程内容 （一）概 论

1、VISUAL BASIC发展概述 2、VB.NET 语言及特点简介 3、VB.NET集成开发环境

（二）数据类型与运算表达式

1、 对象和类 2、 属性、事件和方法 3、 变量与数据类型 4、 运算符与表达式 5、 结构类型及其数组

(三)控制结构

1、 顺序结构 2、 选择结构 3、 循环结构 4、 其他控制语句

（四） 数 组

1、 数组定义及基本操作 2、 数组排序 3、 结构类型及引用 4、 结构数组及应用

（五）函数过程

1、 函数过程的定义和调用 2、 子过程的定义与调用 3、 参数传递 4、 函数的递归调用

1

（六）常用标准控件

1、 常用控件 2、 鼠标事件 3、 键盘事件 4、 用户界面设计

（七）文件操作

1、 文件及其结构 2、 顺序访问模式 3、 随机访问模式

（八）数据库

南通广播电视大学

2011年--2012年第一学期

教 案

系（ 部 ） 艺术传媒学院

教师姓名

课程名称 MATLAB程序设计

授课班级 09电气自动化

总 时 数 36

授课日期 9/19 授课时数 4 授课形式 讲 授 实验 第一章 数值计算功能 1.1 矩阵及其运算 授课章节名称 1.2 微分和积分 1.3 MATLAB与线性代数 教学目的 通过对本章的学习，读者可以编写简单且功能完善的MATLAB 7程序，从而解决各类基本问题，用户可以通过本章逐步掌握MATLAB 7的数值计算方法 1 矩阵的生成和基本的数值运算 2 稀疏型矩阵的生成和基本操作 3 数值微分的求解方法 教学重点、难点 更新、补充、删节内容 概率统计 （删节） 课外作业 打印稿或电子稿（附后） 课后体会 MATLAB 是工程计算的非常实用的软件，可以用于进行数字系统仿真，建模，图像处理，simlink仿真分析，高数中的相关数学运算，因此，MATLAB的应用领域非常广泛，对学生的学习有很大帮助。

授课主要内容或提纲 使用教具、挂图

《Web程序设计》 试卷A 答案 课程承担单位：计科系

计科系 2010级 计算机专业 一 班 学号:20 姓:___________ 题号 得分

得 分 评卷人 一、单项选择题（每小题2分，共计20分）

1) web 页中能直接导航至其他 Web 页的控件是(B)

A.Calendar B. HyperLink C.DropDownList D.FileUpload

2) Web 页中文件下载控件是(A)

A FileUpload B DataSet C Button D AdRatator

3) 使用下面方式(C)可以浏览.aspx文件的功能效果。

A.用记事本打开.aspx文件 B.用Dreamweaver打开.aspx文件 C.在浏览器输入地址打开.aspx文件 D.用FrontPage打开.aspx文件

4) 下列哪一种设置能使单元格显示边框（A）

A 在中添加 border属性 B 在中添加border属性 C 在中添加 border属性 D 以上全都可以

5) 下面程序段执行完毕，在浏览器中看到的

以下所有功能必须写出主函数。

一、功能：输入2个学生3门课的成绩，计算学生成绩平均分， 课程平均分和最高分.

例如：输入2名学生3门课的成绩分别为92，87，68，56， 92，84 则

学生1平均分：82.33 学生2平均分：77.33 课程1平均分：74.00 课程2平均分：89.50 课程3平均分：76.00 最高分为：92 答案： int i,j;

float sum;

for(i=0;i<2;i++) /*计算第i个学生平均分*/

{

sum=0;

for(j=0;j<3;j++)

sum=sum+score[i][j]; StuAgv[i]=sum/3;

}

for(j=0;j<3;j++) /*计算第j门课的平均分*/ { sum=0;

for(i=0;i<2;i++) sum=sum+ score [i][j]; CouAgv[j]=sum/2; }

Max=score[0][0]; for(i=0;i<2;i++) for(j=0;j<3;j++) if(Max<=score[i][j]) { }

Max=score[i][j];

return ;

二、功能：编写函数求1~100中奇数的平方和。结果为166650。 答案：---------------------- float s=0;

int i;

for(i=1;i<=n;i=i+2) s=s+i*i;

return(