vb课程设计作业（VB课程设计和报告）

：暂无数据 2026-06-13 20:30:01 ：0

vb课程设计作业（VB课程设计和报告）

大家好，如果您还对vb课程设计作业不太了解，没有关系，今天就由本站为大家分享vb课程设计作业的知识，包括VB课程设计和报告的问题都会给大家分析到，还望可以解决大家的问题，下面我们就开始吧！

本文目录

VB课程设计和报告
关于VB的课程设计
跪求VB作业设计，谁能帮帮我，没有学过
计算机vb毕业设计有哪些题目可以参考
VB课程设计题目如图VB VB VB
VB高手进大学VB课程设计十万火急
VB课程设计,谁能帮帮我!!!

VB课程设计和报告

欢迎看一下我的计算器，
有程序界面，
你可以参考一下，添加运算功能。
http://hi.baidu.com/jack%5Fican/blog/item/f3ab762acc95133a5243c1a2.html

说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮，一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer ’定义j为整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao.Text = “+“ ’将”＋”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command2_Click()
txtfuhao.Text = “-“ ’’将”-”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command3_Click()
txtfuhao.Text = “×“ ’将”×”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command4_Click()
txtfuhao.Text = “÷“ 将”÷”’显示到文本框txtfuhao.Text中

End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta.Text) ’将txta.Text里的内容转化为数值型,然后再赋给a
b = Val(txtb.Text) ’将txtb.Text里的内容转化为数值型,然后再赋给b
If txtfuhao.Text = “+“ Then ’运算过程
c = a + b ’运算过程
ElseIf txtfuhao.Text = “-“ Then ’运算过程
c = a - b ’运算过程
ElseIf txtfuhao.Text = “÷“ Then ’运算过程
c = a / b ’运算过程
ElseIf txtfuhao.Text = “×“ Then ’运算过程
c = a * b ’运算过程
Else
j = MsgBox(“您输入的符号不正确“, vbOKOnly, “错误信息“)
End If
txtc.Text = c ’将运算结果c输出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta.Text = ““ ’将空字符输入到文本框内（刷新）
txtb.Text = ““ ’将空字符输入到文本框内（刷新）
txtc.Text = ““ ’将空字符输入到文本框内（刷新）
txtfuhao.Text = ““ ’将空字符输入到文本框内（刷新）
End SubPrivate Sub Command7_Click()
End ’结束程序
End SubPrivate Sub Form_Load()End Sub

参考资料：http://hi.baidu.com/jack%5Fican/blog/item/f3ab762acc95133a5243c1a2.html

要的话请发邮件到：329156195@qq.com 叫我要，我再发到你的邮箱里！

关于VB的课程设计

自己参照数据改一下应该就可以了。
#include《stdio.h》 /*引用库函数*/
#include《stdlib.h》
#include《ctype.h》
#include《string.h》
typedef struct /*定义结构体数组*/
{
char num; /*学号*/
char name; /*姓名*/
int score; /*成绩*/
}Student;
Student stu; /*结构体数组变量*/
int menu_select() /*菜单函数*/
{
char c;
do{
system(“cls“); /*运行前清屏*/
printf(“\t\t****Students’ Grade Management System****\n“); /*菜单选择*/
printf(“\t\t | 1. Input Records |\n“);
printf(“\t\t | 2. Display All Records |\n“);
printf(“\t\t | 3. Sort |\n“);
printf(“\t\t | 4. Insert a Record |\n“);
printf(“\t\t | 5. Delete a Record |\n“);
printf(“\t\t | 6. Query |\n“);
printf(“\t\t | 7. Statistic |\n“);
printf(“\t\t | 8. Add Records from a Text File|\n“);
printf(“\t\t | 9. Write to a Text file |\n“);
printf(“\t\t | 0. Quit |\n“);
printf(“\t\t*****************************************\n“);
printf(“\t\t\tGive your Choice(0-9):“);
c=getchar(); /*读入选择*/
}while(c《’0’||c》’9’);
return(c-’0’); /*返回选择*/
}
int Input(Student stud,int n) /*输入若干条记录*/
{int i=0;
char sign,x; /*x为清除多余的数据所用*/
while(sign!=’n’&&sign!=’N’) /*判断*/
{ printf(“\t\t\tstudent’s num:“); /*交互输入*/
scanf(“\t\t\t%s“,stud[n+i].num);
printf(“\t\t\tstudent’s name:“);
scanf(“\t\t\t%s“,stud[n+i].name);
printf(“\t\t\tstudent’s score:“);
scanf(“\t\t\t%d“,&stud[n+i].score);
gets(x); /*清除多余的输入*/
printf(“\t\t\tany more records?(Y/N)“);
scanf(“\t\t\t%c“,&sign); /*输入判断*/
i++;
}
return(n+i);
}
void Display(Student stud,int n) /*显示所有记录*/
{
int i;
printf(“\t\t\t-----------------------------------\n“); /*格式头*/
printf(“\t\t\tnumber name score\n“);
printf(“\t\t\t-----------------------------------\n“);
for(i=1;i《n+1;i++) /*循环输入*/
{
printf(“\t\t\t%-16s%-15s%d\n“,stud[i-1].num,stud[i-1].name,stud[i-1].score);
if(i》1&&i%10==0) /*每十个暂停*/
{printf(“\t\t\t-----------------------------------\n“); /*格式*/
printf(“\t\t\t“);
system(“pause“);
printf(“\t\t\t-----------------------------------\n“);
}
}
printf(“\t\t\t“);
system(“pause“);
}
void Sort_by_num(Student stud,int n) /*按学号排序*/
{ int i,j,*p,*q,s;
char t;
for(i=0;i《n-1;i++) /*冒泡法排序*/
for(j=0;j《n-1-i;j++)
if(strcmp(stud[j].num,stud[j+1].num)》0)
{strcpy(t,stud[j+1].num);
strcpy(stud[j+1].num,stud[j].num);
strcpy(stud[j].num,t);
strcpy(t,stud[j+1].name);
strcpy(stud[j+1].name,stud[j].name);
strcpy(stud[j].name,t);
p=&stud[j+1].score;
q=&stud[j].score;
s=*p;
*p=*q;
*q=s;
}
}
int Insert_a_record(Student stud,int n) /*插入一条记录*/
{char x; /*清除多余输入所用*/
printf(“\t\t\tstudent’s num:“); /*交互式输入*/
scanf(“\t\t\t%s“,stud[n].num);
printf(“\t\t\tstudent’s name:“);
scanf(“\t\t\t%s“,stud[n].name);
printf(“\t\t\tstudent’s score:“);
scanf(“\t\t\t%d“,&stud[n].score);
gets(x);
n++;
Sort_by_num(stud,n); /*调用排序函数*/
printf(“\t\t\tInsert Successed!\n“); /*返回成功信息*/
return(n);
}
int Delete_a_record(Student stud,int n) /*按姓名查找，删除一条记录*/
{ char s;
int i=0,j;
printf(“\t\t\ttell me his(her) name:“); /*交互式问寻*/
scanf(“%s“,s);
while(strcmp(stud[i].name,s)!=0&&i《n) i++; /*查找判断*/
if(i==n)
{ printf(“\t\t\tnot find!\n“); /*返回失败信息*/
return(n);
}
for(j=i;j《n-1;j++) /*删除操作*/
{
strcpy(stud[j].num,stud[j+1].num);
strcpy(stud[j].name,stud[j+1].name);
stud[j].score=stud[j+1].score;
}
printf(“\t\t\tDelete Successed!\n“); /*返回成功信息*/
return(n-1);
}
void Query_a_record(Student stud,int n) /*查找并显示一个记录*/
{ char s;
int i=0;
printf(“\t\t\tinput his(her) name:“); /*交互式输入*/
scanf(“\t\t\t%s“,s);
while(strcmp(stud[i].name,s)!=0&&i《n) i++; /*查找判断*/
if(i==n)
{ printf(“\t\t\tnot find!\n“); /*输入失败信息*/
return;

}
printf(“\t\t\this(her) number:%s\n“,stud[i].num); /*输出该学生信息*/
printf(“\t\t\this(her) score:%d\n“,stud[i].score);
}
void Statistic(Student stud,int n) /*新增功能，输出统计信息*/
{ int i,j=0,k=0,sum=0;
float aver; /*成绩平均值*/
for(i=0;i《n;i++) /*循环输入判断*/
{
sum+=stud[i].score;
if(stud[j].score》stud[i].score) j=i;
if(stud[k].score《stud[i].score) k=i;
}
aver=1.0*sum/n;
printf(“\t\t\tthere are %d records.\n“,n); /*总共记录数*/
printf(“\t\t\tthe hignest score:\n“); /*最高分*/
printf(“\t\t\tnumber:%s name:%s score:%d\n“,stud[j].num,stud[j].name,stud[j].score);
printf(“\t\t\tthe lowest score:\n“); /*最低分*/
printf(“\t\t\tnumber:%s name:%s score:%d\n“,stud[k].num,stud[k].name,stud[k].score);
printf(“\t\t\tthe average score is %5.2f\n“,aver); /*平均分*/
}
int AddfromText(Student stud,int n) /*从文件中读入数据*/
{ int i=0,num;
FILE *fp; /*定义文件指针*/
char filename; /*定义文件名*/
printf(“\t\t\tInput the filename:“);
scanf(“\t\t\t%s“,filename); /*输入文件名*/
if((fp=fopen(filename,“rb“))==NULL) /*打开文件*/
{ printf(“\t\t\tcann’t open the file\n“); /*打开失败信息*/
printf(“\t\t\t“);
system(“pause“);
return(n);
}
fscanf(fp,“%d“,#); /*读入总记录量*/
while(i《num) /*循环读入数据*/
{
fscanf(fp,“%s%s%d“,stud[n+i].num,stud[n+i].name,&stud[n+i].score);
i++;
}
n+=num;
fclose(fp); /*关闭文件*/
printf(“\t\t\tSuccessed!\n“);
printf(“\t\t\t“);
system(“pause“);
return(n);
}
void WritetoText(Student stud,int n) /*将所有记录写入文件*/
{
int i=0;
FILE *fp; /*定义文件指针*/
char filename; /*定义文件名*/
printf(“\t\t\tWrite Records to a Text File\n“); /*输入文件名*/
printf(“\t\t\tInput the filename:“);
scanf(“\t\t\t%s“,filename);
if((fp=fopen(filename,“w“))==NULL) /*打开文件*/
{
printf(“\t\t\tcann’t open the file\n“);
system(“pause“);
return;
}
fprintf(fp,“%d\n“,n); /*循环写入数据*/
while(i《n)
{
fprintf(fp,“%-16s%-15s%d\n“,stud[i].num,stud[i].name,stud[i].score);
i++;
}
fclose(fp); /*关闭文件*/
printf(“Successed!\n“); /*返回成功信息*/
}
void main() /*主函数*/
{
int n=0;
for(;;)
{
switch(menu_select()) /*选择判断*/
{
case 1:
printf(“\t\t\tInput Records\n“); /*输入若干条记录*/
n=Input(stu,n);
break;
case 2:
printf(“\t\t\tDisplay All Records\n“); /*显示所有记录*/
Display(stu,n);
break;
case 3:
printf(“\t\t\tSort\n“);
Sort_by_num(stu,n); /*按学号排序*/
printf(“\t\t\tSort Suceessed!\n“);
printf(“\t\t\t“);
system(“pause“);
break;
case 4:
printf(“\t\t\tInsert a Record\n“);
n=Insert_a_record(stu,n); /*插入一条记录*/
printf(“\t\t\t“);
system(“pause“);
break;
case 5:
printf(“\t\t\tDelete a Record\n“);
n=Delete_a_record(stu,n); /*按姓名查找，删除一条记录*/
printf(“\t\t\t“);
system(“pause“);
break;
case 6:
printf(“\t\t\tQuery\n“);
Query_a_record(stu,n); /*查找并显示一个记录*/
printf(“\t\t\t“);
system(“pause“);
break;
case 7:
printf(“\t\t\tStatistic\n“);
Statistic(stu,n); /*新增功能，输出统计信息*/
printf(“\t\t\t“);
system(“pause“);
break;
case 8:
printf(“\t\t\tAdd Records from a Text File\n“);
n=AddfromText(stu,n); /*新增功能，输出统计信息*/
break;
case 9:
printf(“\t\t\tWrite to a Text file\n“);
WritetoText(stu,n); /*循环写入数据*/
printf(“\t\t\t“);
system(“pause“);
break;
case 0:
printf(“\t\t\tHave a Good Luck,Bye-bye!\n“); /*结束程序*/
printf(“\t\t\t“);
system(“pause“);
exit(0);
}
}
}

四、函数调用关系图
注：“→”代表调用
Input函数
打印链表记录
Display函数
输入若干条记录
menu_select()函数
选择菜单
Sort_by_num函数
显示所有记录
Delete_a_record函数
按姓名查找，删除一条记录
Query_a_record查找并显示一条记录
Statistic函数
输出统计信息（新增）
AddfromText函数
从正文中添加数据到结构体数组中
Main函数
Insert_a_record插入一条记录
WritetoText函数将所有数据写入文件中
退出程序
Reverse(head)函数
按学号排序
五、设计测试流程
1、进入界面
2、输入选项1，回车；
按提示输入数据：
3、回到主菜单；
输入选项7，回车；
输入文件名：data.txt，回车；
出现成功提示，则读入文件操作成功。
4、回到主菜单，输入2，回车
每10个暂停显示数据
5、回到主菜单，输入3，回车
出现排序成功信息。
6、回到主菜单，输入4，回车
按提示插入一组数据
7、回到主菜单，输入5，回车
按提示输入姓名，删除数据
出现删除成功的信息
8、回到主菜单，输入6，回车
输入姓名进行查询
9、回到主菜单，输入7，回车
出现统计信息
10、回到主菜单，输入9，回车
输入result.txt，回车
出现成功写入文件的信息
11、回到主菜单，输入0，回车退出系统
回答者：kingkey001 - 试用期一级 7-14 22:38
修改答复： kingkey001，您要修改的答复如下: 积分规则关闭
C语言课程设计报告-------学生成绩简单管理程序
一、系统菜单的主要功能
（1）输入若干条记录
（2）显示所有记录
（3）按学号排序
（4）插入一条记录
（5）按姓名查找，删除一条记录
（6）查找并显示一条记录
（7）输出统计信息（新增）
（8）从正文中添加数据到结构体数组中
（9）将所有数据写入文件中
（0）退出程序
二、题目分析
该题主要考察学生对结构体，指针，文件的操作，以及C语言算法的掌握,所以完成此道题目要求较强的设计能力，尤其是要有一种大局观的意识。如何调程序也非常重要，通过这个程序可以学习到以前调试短程序没有的的经验。
菜单中的每一个选项都对应一个子程序，子程序的算法几乎囊获了所有C语言学过的技巧，下面就各个子程序中的功能进行说明：
功能1和4的算法相似，输入一条记录到结构体中去，其中有一部很关键，就是通过gets将所有的多余的字符，回车读去，否则就会出错。
功能2是显示所有的记录，通过循环输出，格式也比较重要。
功能3为按学号排序，因为学号定义成了字符数组的形式，因此在运用冒泡法进行排序的时候，要用到strcmp,strcpy等函数。
功能5为按姓名删除记录，先输入姓名，再一一比较，如果没有则返回失败信息，如果找到就将此记录都向前移一位，返回n-1。
功能6的算法在5中就已经体现了，输入姓名，一一比较。
功能7为新增的功能，因为考虑到原来给出的函数中竟然没有对学生成绩的统计功能，因此新增此功能，可以得出所有的记录个数，最高、最低、平均分，并输出相关的学生信息等。
功能8和9是对文件的操作，提前准备好数据。
三、程序正文部分
#include《stdio.h》 /*引用库函数*/
#include《stdlib.h》
#include《ctype.h》
#include《string.h》
typedef struct /*定义结构体数组*/
{
char num; /*学号*/
char name; /*姓名*/
int score; /*成绩*/
}Student;
Student stu; /*结构体数组变量*/
int menu_select() /*菜单函数*/
{
char c;
do{
system(“cls“); /*运行前清屏*/
printf(“\t\t****Students’ Grade Management System****\n“); /*菜单选择*/
printf(“\t\t | 1. Input Records |\n“);
printf(“\t\t | 2. Display All Records |\n“);
printf(“\t\t | 3. Sort |\n“);
printf(“\t\t | 4. Insert a Record |\n“);
printf(“\t\t | 5. Delete a Record |\n“);
printf(“\t\t | 6. Query |\n“);
printf(“\t\t | 7. Statistic |\n“);
printf(“\t\t | 8. Add Records from a Text File|\n“);
printf(“\t\t | 9. Write to a Text file |\n“);
printf(“\t\t | 0. Quit |\n“);
printf(“\t\t*****************************************\n“);
printf(“\t\t\tGive your Choice(0-9):“);
c=getchar(); /*读入选择*/
}while(c《’0’||c》’9’);
return(c-’0’); /*返回选择*/
}
int Input(Student stud,int n) /*输入若干条记录*/
{int i=0;
char sign,x; /*x为清除多余的数据所用*/
while(sign!=’n’&&sign!=’N’) /*判断*/
{ printf(“\t\t\tstudent’s num:“); /*交互输入*/
scanf(“\t\t\t%s“,stud[n+i].num);
printf(“\t\t\tstudent’s name:“);
scanf(“\t\t\t%s“,stud[n+i].name);
printf(“\t\t\tstudent’s score:“);
scanf(“\t\t\t%d“,&stud[n+i].score);
gets(x); /*清除多余的输入*/
printf(“\t\t\tany more records?(Y/N)“);
scanf(“\t\t\t%c“,&sign); /*输入判断*/
i++;
}
return(n+i);
}
void Display(Student stud,int n) /*显示所有记录*/
{
int i;
printf(“\t\t\t-----------------------------------\n“); /*格式头*/
printf(“\t\t\tnumber name score\n“);
printf(“\t\t\t-----------------------------------\n“);
for(i=1;i《n+1;i++) /*循环输入*/
{
printf(“\t\t\t%-16s%-15s%d\n“,stud[i-1].num,stud[i-1].name,stud[i-1].score);
if(i》1&&i%10==0) /*每十个暂停*/
{printf(“\t\t\t-----------------------------------\n“); /*格式*/
printf(“\t\t\t“);
system(“pause“);
printf(“\t\t\t-----------------------------------\n“);
}
}
printf(“\t\t\t“);
system(“pause“);
}
void Sort_by_num(Student stud,int n) /*按学号排序*/
{ int i,j,*p,*q,s;
char t;
for(i=0;i《n-1;i++) /*冒泡法排序*/
for(j=0;j《n-1-i;j++)
if(strcmp(stud[j].num,stud[j+1].num)》0)
{strcpy(t,stud[j+1].num);
strcpy(stud[j+1].num,stud[j].num);
strcpy(stud[j].num,t);
strcpy(t,stud[j+1].name);
strcpy(stud[j+1].name,stud[j].name);
strcpy(stud[j].name,t);
p=&stud[j+1].score;
q=&stud[j].score;
s=*p;
*p=*q;
*q=s;
}
}
int Insert_a_record(Student stud,int n) /*插入一条记录*/
{char x; /*清除多余输入所用*/
printf(“\t\t\tstudent’s num:“); /*交互式输入*/
scanf(“\t\t\t%s“,stud[n].num);
printf(“\t\t\tstudent’s name:“);
scanf(“\t\t\t%s“,stud[n].name);
printf(“\t\t\tstudent’s score:“);
scanf(“\t\t\t%d“,&stud[n].score);
gets(x);
n++;
Sort_by_num(stud,n); /*调用排序函数*/
printf(“\t\t\tInsert Successed!\n“); /*返回成功信息*/
return(n);
}
int Delete_a_record(Student stud,int n) /*按姓名查找，删除一条记录*/
{ char s;
int i=0,j;
printf(“\t\t\ttell me his(her) name:“); /*交互式问寻*/
scanf(“%s“,s);
while(strcmp(stud[i].name,s)!=0&&i《n) i++; /*查找判断*/
if(i==n)
{ printf(“\t\t\tnot find!\n“); /*返回失败信息*/
return(n);
}
for(j=i;j《n-1;j++) /*删除操作*/
{
strcpy(stud[j].num,stud[j+1].num);
strcpy(stud[j].name,stud[j+1].name);
stud[j].score=stud[j+1].score;
}
printf(“\t\t\tDelete Successed!\n“); /*返回成功信息*/
return(n-1);
}
void Query_a_record(Student stud,int n) /*查找并显示一个记录*/
{ char s;
int i=0;
printf(“\t\t\tinput his(her) name:“); /*交互式输入*/
scanf(“\t\t\t%s“,s);
while(strcmp(stud[i].name,s)!=0&&i《n) i++; /*查找判断*/
if(i==n)
{ printf(“\t\t\tnot find!\n“); /*输入失败信息*/
return;

}
printf(“\t\t\this(her) number:%s\n“,stud[i].num); /*输出该学生信息*/
printf(“\t\t\this(her) score:%d\n“,stud[i].score);
}
void Statistic(Student stud,int n) /*新增功能，输出统计信息*/
{ int i,j=0,k=0,sum=0;
float aver; /*成绩平均值*/
for(i=0;i《n;i++) /*循环输入判断*/
{
sum+=stud[i].score;
if(stud[j].score》stud[i].score) j=i;
if(stud[k].score《stud[i].score) k=i;
}
aver=1.0*sum/n;
printf(“\t\t\tthere are %d records.\n“,n); /*总共记录数*/
printf(“\t\t\tthe hignest score:\n“); /*最高分*/
printf(“\t\t\tnumber:%s name:%s score:%d\n“,stud[j].num,stud[j].name,stud[j].score);
printf(“\t\t\tthe lowest score:\n“); /*最低分*/
printf(“\t\t\tnumber:%s name:%s score:%d\n“,stud[k].num,stud[k].name,stud[k].score);
printf(“\t\t\tthe average score is %5.2f\n“,aver); /*平均分*/
}
int AddfromText(Student stud,int n) /*从文件中读入数据*/
{ int i=0,num;
FILE *fp; /*定义文件指针*/
char filename; /*定义文件名*/
printf(“\t\t\tInput the filename:“);
scanf(“\t\t\t%s“,filename); /*输入文件名*/
if((fp=fopen(filename,“rb“))==NULL) /*打开文件*/
{ printf(“\t\t\tcann’t open the file\n“); /*打开失败信息*/
printf(“\t\t\t“);
system(“pause“);
return(n);
}
fscanf(fp,“%d“,#); /*读入总记录量*/
while(i《num) /*循环读入数据*/
{
fscanf(fp,“%s%s%d“,stud[n+i].num,stud[n+i].name,&stud[n+i].score);
i++;
}
n+=num;
fclose(fp); /*关闭文件*/
printf(“\t\t\tSuccessed!\n“);
printf(“\t\t\t“);
system(“pause“);
return(n);
}
void WritetoText(Student stud,int n) /*将所有记录写入文件*/
{
int i=0;
FILE *fp; /*定义文件指针*/
char filename; /*定义文件名*/
printf(“\t\t\tWrite Records to a Text File\n“); /*输入文件名*/
printf(“\t\t\tInput the filename:“);
scanf(“\t\t\t%s“,filename);
if((fp=fopen(filename,“w“))==NULL) /*打开文件*/
{
printf(“\t\t\tcann’t open the file\n“);
system(“pause“);
return;
}
fprintf(fp,“%d\n“,n); /*循环写入数据*/
while(i《n)
{
fprintf(fp,“%-16s%-15s%d\n“,stud[i].num,stud[i].name,stud[i].score);
i++;
}
fclose(fp); /*关闭文件*/
printf(“Successed!\n“); /*返回成功信息*/
}
void main() /*主函数*/
{
int n=0;
for(;;)
{
switch(menu_select()) /*选择判断*/
{
case 1:
printf(“\t\t\tInput Records\n“); /*输入若干条记录*/
n=Input(stu,n);
break;
case 2:
printf(“\t\t\tDisplay All Records\n“); /*显示所有记录*/
Display(stu,n);
break;
case 3:
printf(“\t\t\tSort\n“);
Sort_by_num(stu,n); /*按学号排序*/
printf(“\t\t\tSort Suceessed!\n“);
printf(“\t\t\t“);
system(“pause“);
break;
case 4:
printf(“\t\t\tInsert a Record\n“);
n=Insert_a_record(stu,n); /*插入一条记录*/
printf(“\t\t\t“);
system(“pause“);
break;
case 5:
printf(“\t\t\tDelete a Record\n“);
n=Delete_a_record(stu,n); /*按姓名查找，删除一条记录*/
printf(“\t\t\t“);
system(“pause“);
break;
case 6:
printf(“\t\t\tQuery\n“);
Query_a_record(stu,n); /*查找并显示一个记录*/
printf(“\t\t\t“);
system(“pause“);
break;
case 7:
printf(“\t\t\tStatistic\n“);
Statistic(stu,n); /*新增功能，输出统计信息*/
printf(“\t\t\t“);
system(“pause“);
break;
case 8:
printf(“\t\t\tAdd Records from a Text File\n“);
n=AddfromText(stu,n); /*新增功能，输出统计信息*/
break;
case 9:
printf(“\t\t\tWrite to a Text file\n“);
WritetoText(stu,n); /*循环写入数据*/
printf(“\t\t\t“);
system(“pause“);
break;
case 0:
printf(“\t\t\tHave a Good Luck,Bye-bye!\n“); /*结束程序*/
printf(“\t\t\t“);
system(“pause“);
exit(0);
}
}
}

四、函数调用关系图
注：“→”代表调用
Input函数
打印链表记录
Display函数
输入若干条记录
menu_select()函数
选择菜单
Sort_by_num函数
显示所有记录
Delete_a_record函数
按姓名查找，删除一条记录
Query_a_record查找并显示一条记录
Statistic函数
输出统计信息（新增）
AddfromText函数
从正文中添加数据到结构体数组中
Main函数
Insert_a_record插入一条记录
WritetoText函数将所有数据写入文件中
退出程序
Reverse(head)函数
按学号排序
五、设计测试流程
1、进入界面
2、输入选项1，回车；
按提示输入数据：
3、回到主菜单；
输入选项7，回车；
输入文件名：data.txt，回车；
出现成功提示，则读入文件操作成功。
4、回到主菜单，输入2，回车
每10个暂停显示数据
5、回到主菜单，输入3，回车
出现排序成功信息。
6、回到主菜

跪求VB作业设计，谁能帮帮我，没有学过

vb课程设计作业你这题都没写完整
，还打算会有人能给你解答，请你下次细心点，
不要这么粗心
。也稍微负点责任，别人帮你是好意，请你尊重一下帮助你的人。也维护一下百度知道良好的求知氛围。谢谢.
把题目写清楚，我回答你。这次先采纳了吧。

计算机vb毕业设计有哪些题目可以参考

vb超市进销存管理系统vb+access源代码+可执行文件+论文+开题报稿+外文翻译+答辩ppt.
vb车辆管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt
vb地籍登记管理系统vb+access源代码+论文+开题报告+外文翻译+答辩ppt
vb电表管理系统vb+access源代码+可执行程序+论文
VB俄罗斯方块系统＋论文
VB俄罗斯方块游戏课程设计
vb高速公路票据管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译+答辩ppt
VB工资管理系统
VB工资管理系统（论文＋开题报告＋源代码）
VB工资管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt
vb公交车查询系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt
VB计算机自动出卷系统vb版（含开题报告＋外文翻译＋源程序＋可执行程序＋论文正文＋答辩ppt）
VB教师管理系统vb+access含源代码+可执行程序+论文+开题报告+外文翻译+答辩稿
vb教师管理系统vb+access含源代码+可执行程序+论文+开题报告+外文翻译+答辩稿(2)
VB教务管理系统vb+access源代码+论文+开题报告+外文翻译+答辩ppt
vb教学辅助系统VB+access源代码+可执行文件+论文
更多vb毕业设计题目:
http://www.56doc.com/computer/vb/

VB课程设计题目如图VB VB VB

界面你自已做一下了，源代码如下。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182

Option Explicit
Dim Board(0 To 18, 0 To 18) As Byte ’此数组标识棋盘上每个点是否有子：0 无子，1 黑，2 白子
Dim lastnum As Integer ’最新放置棋子的位置号
Const HDist As Integer = 250
Const VDist As Integer = 800
Const Grid As Integer = 250

Private Sub cmdRemoveBlack_Click() ’移除黑子
Dim i As Integer
For i = 0 To 360
If Board(i Mod 19, i \ 19) = 1 Then Board(i Mod 19, i \ 19) = 0: shpChess(i).Visible = False
Next
Call CountChess
End Sub

Private Sub cmdRemoveWhite_Click() ’移除白子
Dim i As Integer
For i = 0 To 360
If Board(i Mod 19, i \ 19) = 2 Then Board(i Mod 19, i \ 19) = 0: shpChess(i).Visible = False
Next
Call CountChess
End Sub

Private Sub cmdUndo_Click() ’撤消最后一步
shpChess(lastnum).Visible = False
Board(lastnum Mod 19, lastnum \ 19) = 0
Call CountChess
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
’窗体加载时，使用直线控件数组生成19*19的围棋盘
Dim i As Integer
Randomize
’生成横线
For i = 1 To 18
Load LinH(i)
Next
For i = 0 To 18
LinH(i).Visible = True
LinH(i).X1 = HDist
LinH(i).Y1 = VDist + Grid * i
LinH(i).Y2 = VDist + Grid * i
LinH(i).X2 = HDist + Grid * 18
Next
’生成竖线
For i = 1 To 18
Load LinV(i)
Next
For i = 0 To 18
LinV(i).Visible = True
LinV(i).Y1 = VDist
LinV(i).X1 = HDist + Grid * i
LinV(i).Y2 = VDist + Grid * 18
LinV(i).X2 = HDist + Grid * i
Next
’生成棋子
For i = 1 To 360
Load shpChess(i)
shpChess(i).FillStyle = 0
shpChess(i).FillColor = vbWhite
Next
For i = 0 To 360
shpChess(i).Top = (i \ 19) * Grid + VDist - 100
shpChess(i).Left = (i Mod 19) * Grid + HDist - 100
shpChess(i).Visible = True
Next
’读取已存的棋局
If Dir(“save.txt“) 《》 ““ Then
Open “save.txt“ For Input As #1
For i = 0 To 360
Input #1, Board(i Mod 19, i \ 19)
Next
Close
End If

Call CountChess
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
Dim j As Integer
’计算行列
i = (X - HDist) / Grid
j = (Y - VDist) / Grid

’防止下标越界
If i 》 18 Then i = 18
If i 《 0 Then i = 0
If j 》 18 Then j = 18
If j 《 0 Then j = 0

If Shift = 0 Then ’加子
lastnum = j * 19 + i
If Board(i, j) = 0 Then
Select Case Button
Case 1
shpChess(lastnum).FillColor = vbBlack
Board(i, j) = 1
Case 2
shpChess(lastnum).FillColor = vbWhite
Board(i, j) = 2
End Select
shpChess(lastnum).Visible = True
Else
MsgBox “此处有子，不能落子。“
End If
ElseIf Shift = 2 Then ’按住Ctrl键去子
If Board(i, j) 《》 0 Then
Select Case Button
Case 1
If Board(i, j) = 1 Then
shpChess(i + 19 * j).Visible = False
Board(i, j) = 0
End If
Case 2
If Board(i, j) = 2 Then
shpChess(i + 19 * j).Visible = False
Board(i, j) = 0
End If
End Select
Else
MsgBox “此处无子，不能提子。“
End If
End If
Call CountChess
End Sub
’退出时，保存当前棋局
Private Sub Form_Unload(Cancel As Integer)
Open “save.txt“ For Output As #1
Dim i As Integer
For i = 0 To 360
Write #1, Board(i Mod 19, i \ 19),
Next
Close #1
End Sub

Private Sub Timer1_Timer()
Static i As Integer
Dim j As Integer

If i = 0 Then
For j = 0 To 360
shpChess(j).FillColor = vbBlack
Next
i = i + 1
Else
For j = 0 To 360
If Board(j Mod 19, j \ 19) = 1 Then
shpChess(j).FillColor = vbBlack
ElseIf Board(j Mod 19, j \ 19) = 2 Then
shpChess(j).FillColor = vbWhite
Else
shpChess(j).Visible = False
End If
Next
Timer1.Enabled = False
End If

End Sub
Sub CountChess()
Dim total As Byte, black As Byte, white As Byte
Dim i As Integer
Dim j As Integer
For i = 0 To 18
For j = 0 To 18
If Board(i, j) = 1 Then
black = black + 1
ElseIf Board(i, j) = 2 Then
white = white + 1
End If
Next
Next
txtBlack.Text = black
txtWhite.Text = white
txtTotal.Text = black + white
If total = 361 Then MsgBox “Game Over“
End Sub

VB高手进大学VB课程设计十万火急

如果只是编个程序还可以,
还需要那么多附加的东西,很麻烦.

将下面所有的文字,复制到记事本里,
把文件保存为 csz.txt,再把扩展名改为 .frm
即最终文件全名为: csz.frm
然后,在装有VB6.0的机器上双击就可以了.

VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 ’Fixed Single
Caption = “猜数字“
ClientHeight = 3480
ClientLeft = 45
ClientTop = 330
ClientWidth = 5970
LinkTopic = “Form1“
MaxButton = 0 ’False
MinButton = 0 ’False
ScaleHeight = 3480
ScaleWidth = 5970
StartUpPosition = 2 ’屏幕中心
Begin VB.CommandButton Command1
Caption = “帮助“
Height = 375
Left = 4140
TabIndex = 12
Top = 2700
Width = 795
End
Begin VB.OptionButton opbDH
Caption = “显示代号“
Height = 255
Left = 4200
TabIndex = 6
Top = 2280
Width = 1455
End
Begin VB.OptionButton opbWZ
Caption = “显示文字“
Height = 255
Left = 4200
TabIndex = 5
Top = 1980
Value = -1 ’True
Width = 1455
End
Begin VB.CommandButton cmdTC
Caption = “退出“
Height = 375
Left = 4980
TabIndex = 8
Top = 2700
Width = 795
End
Begin VB.TextBox txtGC
BackColor = &H00C0C0C0&
Height = 2955
Left = 120
MultiLine = -1 ’True
ScrollBars = 2 ’Vertical
TabIndex = 7
Top = 120
Width = 3735
End
Begin VB.CommandButton cmdCS
Caption = “猜数“
Height = 375
Left = 5040
TabIndex = 4
Top = 1440
Width = 675
End
Begin VB.CommandButton cmdNEW
Caption = “新题目“
Height = 375
Left = 4080
TabIndex = 1
Top = 120
Width = 1635
End
Begin VB.TextBox txtCS
Alignment = 2 ’Center
BeginProperty Font
Name = “宋体“
Size = 18
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 435
Left = 4080
MaxLength = 4
TabIndex = 0
Top = 1380
Width = 855
End
Begin VB.CommandButton cmdCK
Caption = “查看“
Height = 375
Left = 5040
TabIndex = 3
Top = 780
Width = 675
End
Begin VB.Label lblCS
Alignment = 2 ’Center
Caption = “0“
Height = 195
Left = 1200
TabIndex = 10
Top = 3180
Width = 495
End
Begin VB.Label Label2
Caption = “469876252@qq.COM“
Height = 195
Left = 4200
TabIndex = 9
Top = 3180
Width = 1515
End
Begin VB.Label lblSWS
Alignment = 2 ’Center
BorderStyle = 1 ’Fixed Single
BeginProperty Font
Name = “宋体“
Size = 18
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 435
Left = 4080
TabIndex = 2
Top = 720
Width = 855
End
Begin VB.Label Label1
Caption = “猜数次数:“
Height = 195
Left = 180
TabIndex = 11
Top = 3180
Width = 915
End
End
Attribute VB_Name = “Form1“
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim sws As String ’储存四位数的字符串
Dim cs As Long ’猜数的次数

Private Sub cmdCK_Click()
lblSWS.Caption = sws
End Sub

Private Sub cmdCS_Click()
Dim ts As String, txt As String, txtW(4) As Integer
Dim n As Integer, zqs As Integer, zqsw As Integer
ts = “请输入四位不重复的数字“
txt = txtCS.Text
’判断是否是四个字符
If Len(txt) 《》 4 Then MsgBox ts: Exit Sub
For n = 1 To 4
txtW(n) = Mid(txt, n, 1)
Next n
’判断是否是四个数字
If Asc(txtW(1)) 《 48 Or Asc(txtW(1)) 》 57 Or Asc(txtW(2)) 《 48 Or Asc(txtW(2)) 》 57 Or Asc(txtW(3)) 《 48 Or Asc(txtW(3)) 》 57 Or Asc(txtW(4)) 《 48 Or Asc(txtW(4)) 》 57 Then MsgBox ts: Exit Sub
’判断是否有重复数字
If txtW(1) = txtW(2) Or txtW(1) = txtW(3) Or txtW(1) = txtW(4) Or txtW(2) = txtW(3) Or txtW(2) = txtW(4) Or txtW(3) = txtW(4) Then MsgBox ts: Exit Sub
For n = 1 To 4
If InStr(sws, txtW(n)) 《》 0 Then zqs = zqs + 1
If Mid(sws, n, 1) = txtW(n) Then zqsw = zqsw + 1
Next n
If cs = 0 Then txtGC.Text = ““
cs = cs + 1
lblCS.Caption = CStr(cs)
If opbWZ.Value Then
txtGC.Text = txtGC.Text + txt + vbTab + CStr(zqs) + “个数字正确,其中“ + CStr(zqsw) + “个位置也正确“ + vbCrLf
Else
txtGC.Text = txtGC.Text + txt + vbTab + CStr(zqs) + “A“ + CStr(zqsw) + “B“ + vbCrLf
End If
If zqsw = 4 Then lblSWS.Caption = sws: MsgBox “恭喜你!你部猜中!“ + vbCrLf + “猜测次数:“ + CStr(cs) + vbCrLf + vbCrLf + “开始新题目!“: cmdNEW_Click
End Sub

Private Sub cmdNEW_Click()
’生成新的四位数,并设置各控件的显示值
Dim sz As String
Dim n As Integer, sjs As Integer
sz = “1234567890“
Randomize Timer
sws = ““
For n = 1 To 4
sjs = Int(Rnd * Len(sz)) + 1
sws = sws + Mid(sz, sjs, 1)
sz = Left(sz, sjs - 1) + Right(sz, Len(sz) - sjs)
Next n
cs = 0
lblSWS.Caption = “????“
txtGC.Text = ““
lblCS.Caption = CStr(cs)

End Sub

Private Sub cmdTC_Click()
Unload Me
End Sub

Private Sub Form_Load()
cmdNEW_Click
txtGC.Text = “查看按钮,可以先查看数字“ + vbCrLf + “用于在游戏过程中做弊“ + vbCrLf + “如果不需要这个功能,可以将按钮的“ + vbCrLf + “Visible 属性设置为 False“
End Sub

Private Sub txtCS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdCS_Click
txtCS.SelStart = 0
txtCS.SelLength = 4
End If
End Sub

VB课程设计,谁能帮帮我!!!

一、内容
用VB语言制作《Visual Basic语言程序设计》的教学课件。
二、说明
在所学教材中任选一章作为课件内容：
三、要求
1．课件中必须包含内容学习、例题演示、作业部分
2．内容全面、重点突出；有必要的动画演示。
3．界面友好、美观，易于操作。
4．课件演示的内容用文件保存。
四、参考书籍
《Visual Basic 使用大全》

没有什么复杂的问题，随便给你一个：
一个普通的计算器程序：
Option Explicit
Dim FirstNumber, NumberBuffer As Double
Dim chr As String
Dim EnterDecimal, ScaleCodeState As Boolean
Dim ScaleCode As Integer
Dim ScaleSymbol(0 To 7) As String
Private Sub Init()
EnterDecimal = False
Label1.Caption = “0“
FirstNumber = 0
ScaleCode = 0
ScaleCodeState = False
Label2.Caption = ““
End Sub
Private Sub ClearAll_Click()
Call Init
End Sub

Private Sub CurrentCls_Click()
Label1.Caption = ““
NumberBuffer = Val(Label1.Caption)
End Sub

Private Sub DecimalKey_Click()
If EnterDecimal = False Then
EnterDecimal = True
Label1.Caption = Label1.Caption + “.“
NumberBuffer = Val(Label1.Caption)
End If
End Sub
Private Sub Form_Load()
Call Init
ScaleSymbol(0) = “+“
ScaleSymbol(1) = “-“
ScaleSymbol(2) = “*“
ScaleSymbol(3) = “/“
ScaleSymbol(4) = “^“
ScaleSymbol(5) = “1/X“
ScaleSymbol(6) = “%“
ScaleSymbol(7) = “S“
End Sub

Private Sub NumberKey_Click(Index As Integer)
chr = Val(Index)
If Left(Label1.Caption, 1) = “0“ And Mid(Label1.Caption, 2, 1) 《》 “.“ Then _
Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1)
If Len(Label1.Caption) 《 20 Then
If ScaleCodeState = True Then
ScaleCodeState = False
Label1.Caption = ““
End If
Label1.Caption = Label1.Caption + chr
NumberBuffer = Val(Label1.Caption)
End If
End Sub

Private Sub ScaleKey_Click(Index As Integer)
ScaleCode = Index
EnterDecimal = False
FirstNumber = NumberBuffer
ScaleCodeState = True
Label2.Caption = ScaleSymbol(Index)
End Sub
Private Sub Equal_Click()
Select Case ScaleCode
Case 0
NumberBuffer = FirstNumber + NumberBuffer
Case 1
NumberBuffer = FirstNumber - NumberBuffer
Case 2
NumberBuffer = FirstNumber * NumberBuffer
Case 3
NumberBuffer = FirstNumber / NumberBuffer
Case 4
NumberBuffer = FirstNumber ^ 2
Case 5
NumberBuffer = 1 / FirstNumber
Case 6
NumberBuffer = FirstNumber / 100
Case 7
NumberBuffer = Sqr(FirstNumber)
End Select
Label1.Caption = Str(NumberBuffer)
FirstNumber = NumberBuffer
EnterDecimal = False
ScaleCodeState = True
End Sub

Private Sub Space_Click()
If Len(Label1.Caption) 》 1 Then
Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
Else
Label1.Caption = “0“
End If
NumberBuffer = Val(Label1.Caption)
End Sub