1.  [说明]
    设学生某次考试的成绩按学号顺序逐行存放于某文件中，文件以单行句点“.”为结束符。下面的流程图读取该文件，统计出全部成绩中的最高分max和最低分min。

1.  [函数2.1说明]
    Fibonacci数列中头两个数均为1，从第三个数开始，每个数等于前两个数之和。下述程序计算Fibonacci数列中前15个数，并以每行5个数的格式输出。
[函数2.1]
#include ＜stdio.h＞
main()
{  int i,f,f1=1,f2=1;
  printf("%5d%5d",f1,f2);
  for(i=3;i＜=15;i++){
        f=        ;
        printf("%5d",f);
        if(        = =0) printf("\n");
        f1=12;
                ;
  }
}
[试题一流程图]
     
[函数2.2说明]
    函数fun(char *str1,char *str2)的功能是将字符串str2拼接到str1之后。
[函数2.2]
fun(char *str1,char  *str2)
{  int i,j;
  for(i=0;str1[i]!='\0';i++);
  for(j=0;str2[j]!='\0';j++)        ;
          ;
}

1.  [说明]
    链式存储的队列称为链队。根据队列的FIFO原则，为了操作上的方便，可以使用带头指针front和尾指针rear的单链表来实现链队。若链队元素的数据类型为datatype，则链队结构描述如下：
typedef struct node
{  datatypedata;
    structnode *next;
}  QNode;    /*链队结点的类型*/
typedef struct
{  QNnode    *front,*rear;
}  LQueue;    /*将头尾指针封装在一起的链队*/
    以下这种链队的几个例子：
   
    设q是一个指向链队的指针，即LQueue *q。下面各函数的功能说明如下：
        LQueue *Init_LQueue()：创建并返回一个带头尾结点的空链队；
        intEmpty_LQueue( LQueue *q):判断链队q是否空；
        void In_LQueue(LQueue *q, datatypex):将数据x压入链队q；
        int Out_LQueue(LQuere *q, datatype *x):弹出链队q的第一个元素x，若成功则返回返回1否则返回0。
[函数]
LQueae  *Init_LQueue()
{  LQueue *q, *p;
  q=malloc(sizeof(LQueue)); /*申请链队指针*/
  P=malloc(sized(QNode));/*申请头尾指针结点*/
  p-＞next=NULL;
          =p;
  return q;
}
int Empty_LQueue(LQueue *q)
{  if(q-＞front         q＞rear) return 0;
    else return 1;
}
void In_LQueue(LQueue *q, datatype x)
{  QNoda *p;
    p=malloc(sizeof(QNnode));/*申请新接点*/
    p-＞data=x;
    p-＞next=NULL;
            =p;
    q-＞rear=p;
}
int Out_LQueue(LQueue *q, datatype *x)
{  QNnode *p;
  if(Empty_LQueue(q)) return 0; /*队空,操作失败*/
  else{
        p=q-＞front-＞next;
        *x=        ;
                =p-＞next;
        free(p);
        if (q-＞front-＞next= =NULL)q-＞rear=q-＞front;
        return 1;
  }
}

1.  [说明]
    函数encode()和decode()分别通过参数传递实现对字符串的变换和复原，返回值均为处理以后的字符串长度。变换函数encode()顺序考察已知字符串的字符，按以下规则逐组生成新字符串：
        若已知字符串的当前字符不是数字字符，则复制该字符于新字符串中；
        若已知字符串的当前字符是一个数字字符，且它之后没有后继字符，则简单地将它复制到新字符串中；
        若已知字符串的当前字符是一个数字字符，并且还有后继字符，设该数字值为n，则将其后继字符重复复制n+1次到新字符串中；
        以上述一次变换为一组，在不同组之间另插入一个下划线‘_’用于分隔。
    例如：encode()函数对字符中26a3t2的变换结果为666_a_tttt_2。
    函数decode()用于经函数encode()处理的字符中，即复制不连续相同的单个字符，而将一组连续相同的字符(不超过10个)变换成一个用于表示重复次数的数字符和一个重复出现的字符，并在复原过程中掠过变换函数为不同组之间添加的一个下划线字符。
    注：假定调用变换函数encode()时的原始字符串中不包含下划线字符。
[函数]
int encode(char *instr,char *outstr)
{    char *ip, *op,c;
    int k,n;
    ip=instr;
    op=outstr;
    while ( * ip) {
        if(*ip＞='0'&&*ip＜='9'&&*(ip+l)) {
            n=*ip-'0'+1;
            c=        ;
            for (k=0;k＜n;k++) *op++=c;
        }
        else *op++=*ip;
                ;
        ip++;
    }
    if (op＞outstr)         ;
    *op='\0';
            ;
}
int decode(char *instr,char *outstr)
{  char *ip,*op,c;
    int n;
    ip=instr; op=outstr;
    while ( *ip) {
        c=*ip;
        n=0;
        while( *ip==c&&n＜10) {        ; n++; }
        if(n＞1) *op+ + ='0'+n-1;
        * op++=c;
        if(*ip=='_') ip++;
    }
    *op='\0';
            ;
}

1.  [说明]
    某银行新近开通外汇定期存款业务。为方便用户查询不同存款方式下的日利率、计算本利，特开发了日利率查询及本利计算程序，其运行窗口如下图所示。用户只要在界面上选择相应的存款方式(包括外汇币种、存期等)，便可单击按钮一查询存款日利率。若输入一定数量的本金。程序还会根据所选择的存期计算并输出本利和。
         
    在开发过程中，选择币种和存期的组合框(ComboBox)名分别为Combo1和Combo2，单旋钮 (CommandButton)“个人单位”和“金融机构”分别名为Option1和Option2，用于输入本金的文本框 (TextBox)名为Price，“输出日利率”和“计算本利和”按钮(CommandButton)分别名为Command1和 Command2。且已知，第i类币种、第j类存期之下，个人单位与金融机构的存款日利率分别存放于数组元素interestRate(i,j,0)和interestRate(i,j,1)中，其中i,j从0开始计数。
[Visual Basic代码]
Dim interestBate(50，10，2) As Single  ’通用声明
Private Sub Form_Load()
      ……              ’为数组interestRate赋初值
End Sub
’根据所选择的币种、存期等信息确定日利率
Function getInterestRate()
    Dim strCurrency, strTime As String, i, j, k, intDays As Integer
    strCurrency = Combo1.Text
    strTime = Combo2.Text
    For i = 0 To Combol. ListCount - 1
          If Combol.List(i) = strCurrency Then        
    Next
    For j = 0 To Combo2.ListCount - 1
          IfCombo2.List(j) = strTime Then        
    Next
    If         =True Then
          k=0
    Else: k=1
    End If
            = interestRate(i, j, k)
End Function
’输出日利率
Private Sub Commund1_Click()
    MsgBox "日利率为" & getInterestRate()
End Sub
’输出本利和
Private Sub Command2_Click()
    Dim strTime As String, intDays As Integer, sngCorpus, sngResult As Single
    strTime = Combo2. Text
    sngCorpus = CSng(Text1.Text)
            ’计算存款天数(以每月30天计)
    Case "一个月" :intDays = 30
    Case "三个月" :intDays = 90
    Case "六个月" :intDays = 120
    End Select
    ’计算并输出本利和
    sngResult = sngCorpus +        
    MsgBox "本利之和为:" & sngResult
End Sub

1.  [说明]
    当用户启动html浏览器并首次打开下面的html文档时，Java Applet小程序在第一个显示面板上显示字符串"HelloWorld"；在第二个显示面板上画一条直线。
[Java代码]
import java.awt. *;
import javax.swing. *;
public class HelloWorldApplet extends JApplet
    pubhc void         {
                str="HetloWorld";
        JLabel label = new JLabel(str);
        this. getContentPane().add(label);
    }
}
import java.applet.Applet;
import java.awt.Graphics;
public class AppletPaint extends         {
  public void paint(        ) {
    g.drawLine(0,0,300,200);
  }
}
[HTML文档]
＜html＞
＜head＞
＜title＞ HTML Test Page ＜/title＞
＜/head＞
＜body＞
＜applet code="        " width="300" height="100"＞
＜/applet＞
＜applet code=" AppletPaint.class" width="300" height="100"＞
＜/applet＞
＜/body＞
＜/html＞

1.  [说明]
    下图是一个简易文本编辑器程序的运行界面：
       
    用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下：
        打开文件：打开文件对话框，其中仅显示“*.txt”类型的文件。用户选中某一文件后，其内容将呈现于界面文本框内；
        查找：提示用户输入要查找的内容，将首次出现的查找内容以蓝色高亮标记；
        替换：若文本框中已选中某段文本，则提示用户输入要替换的内容，在文本框中完成替换。
    在开发过程中，文本框名为Text1，“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。
[Visual Basic代码]
Dim fileName As String
Dim fso As New         , ts As Object
’打开文本文件
Private Sub Command1_Click()
    CommonDialog1.Filter = "*.txt"
    CommonDialog1.ShowOpen
    fileName =              ’保存所打开的文件名
    Set fso=CreateObjeet("Scripting.FileSystemObject")
    Set ts=fso.OpenTextFile(fileName, ForReading)
    If Not ts.AtEndOfStream Then
    Text1.Text =       
    End If
    ts. Close
End Sub
’保存文本文件
Private Sub Command2_Click()
    Set ts = fso.OpenTextFile(fileName, ForWriting)
           
    ts.Close
End Sub
’查找字符串
Private Sub Command3_Cliek()
    Dim search As String, position As Integer
    search = InputBox("输入要查找的字符串:")
    position = InStr(Text1.Text, search)    ’在文本中查找字符串
    If position ＞0 Then                    ’若找到指定的字符串
          Text1.SelStart = position - 1    ’设置选定文本的起始位置
          Text1.SelLength = Len(search)    ’设置选定文本的长度
    Else
          MsgBox "没有发现要查找的字符串"
    End If
End Sub
’替换选中的字符串
Private Sub Command4_Click()
    Dim object As String
    If        ＞0 Then                      ’若已经选中了要替换的文本
    object = InputBox("输入要替换的字符串:")
    Text1.SelText = object                ’替换文本
    Else
    MsgBox "请先选中要替换的文本!"
    End If
End Sub
’退出程序
Private Sub Command5_Click()
    End
End Sub

1.  [说明]
    本程序中预设了若干个用户名和口令。用户输入正确的用户名后，可以查找对应的口令，一旦输入结束标记“end”，程序结束。
[C++程序]
#include ＜iostream. h＞
#include ＜string. h＞
class User
{  protected:
    char user[10];
    char pass[7];
    public:
        User(char[ ],char[]);
                {return user;}
                {return pass;}
};
User::User(char u[],char p[])
{  strcpy(user,u);
  strcpy(pass,p); }
void main()
{  User ua[]={User("Li","123456"),User("wang","654321"),User("Song","666666")
    char name[10];
    while   
        cout＜ ＜ "输入用户名:";
        cin＞ ＞name;
        if(        = =0) break;
        for(int i=0;i＜3;i+ +)
              if(strcmp(name,ua[i].getuser()) = =0){
                  cout＜ ＜"密码:" ＜ ＜ ua[i].getpass() ＜ ＜endl;
                          ;
        if(        )cout＜ ＜"该用户不存在!" ＜ ＜endl;
    }   
}