实验4 分支程序设计
实验目的:
1．掌握Visual Basic的常量、变量的定义和使用。
2．掌握各种表达式的使用。
3．掌握各种标准函数的使用。
4．掌握分支结构程序设计方法。
实验4.1计算面积
实验任务：
1．设计程序界面如图4-1所示，在窗体上先放置框架一个，然后将三个单选按钮放置在框架中，放置两个标签框、两个文本框和两个命令按钮。
2．选择某种形状的同时Label1动态显示相应的“半径”或“边长”。
3．在Text1中输入数值后，按确定按钮，在Text2中显示计算的面积。
4．形状转换时，要清除前次结果（两个文本框清空），光标聚焦Text1。
5．按“退出”按钮，结束运行。
图4-1 程序界面
提示：可以根据单选按钮的Value属性进行判断，当某个按钮值为真时，则进行与之相应的计算。因此，可以使用分支结构（If…Then）来实现条件判断功能。
实验步骤：
2．添加代码
Option Explicit
Const Pi As Single = 3.141593 ’Pi为“符号常量”类型，不可再次赋值Private Sub Option1_Click()
Label1 = "半径"
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
Private Sub Option2_Click()
Label1 = "边长"
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
Private Sub Option3_Click()
’填写一段程序（可以模仿Option2_Click()中的代码）End Sub
Private Sub Command1_Click()
Dim r As Single, s As Single
r = Val(Text1)
If Option1.Value = True Then s = Pi * r ^ 2
If Option2.Value = True Then s = r ^ 2 * Sqr(3) / 4
If Then s = r ^ 2
Text2 = s
End Sub
Private Sub Command3_Click()
End
End Sub
3．保存文件，调试运行并记录结果。
提示：请妥善保存该程序，待到学会使用控件数组后，将三个Option按钮用控件数组生成，可以简化程序代码。
实验4.2登录检测
实验任务：
建立一个登录窗口，要求输入口令，假定口令为“Basic1234”。
要求：
1．输入的口令在文本框中不可见，以“*”替代；单击“退出”按钮时，结束运行。
2．单击“确定”按钮时，若输入口令正确，显示信息“祝贺你，成功登录！”；否则显示“对不起，口令错误，无法登录！”。
图4-2 登录界面及各种提示信息
39
3．若三次登录均不正确，显示“对不起，你无权登录该系统！”后结束整个应用程序。
注意：将文本框的PasswordChar属性值设为“*”（只要一个星号），就可以星号替代键入的字符。实现上述功能不仅要使用分支判断语句对文本框的内容进行判断，还需要定义一个整型变量N用作计数，其初值为0，登录一次不正确，N就加1，如果N=3，则结束整个应用程序。
操作步骤：
1．窗体设计，在窗体上放置一个Label控件、一个TextBox控件和两个CommandButton 按钮，按照图4-2排列控件，设置控件大小。
3．添加代码：
Option Explicit
Dim N As Integer ’N用来统计登录次数，注意不能在过程中定义Private Sub cmdOk_Click()
If txtpassword.Text = "Basic1234" Then
MsgBox "祝贺你，成功登录！" ’弹出消息框
Else
N = N + 1
If N = 3 Then
MsgBox "对不起，你无权登录该系统！", vbExclamation ’弹出消息框
End
End If
MsgBox "对不起，口令错误，无法登录！", vbExclamation ’弹出消息框
txtpassword.Text = ""
txtpassword.SetFocus
End If
End Sub
Private Sub cmdExit_Click() '退出
End
End Sub
4．保存文件，调试运行，观察结果。
思考：如果假定的口令“Basic1234”事先已经存在一个PassWord.txt文件中，如何修改上述程序？试一试。
实验4.3日期显示
实验任务：
编程获得当天的系统日期，并以X年X月X日星期X的形式显示出来，实验结果如图4-3所示。提示：系统日期可以通过Date函数得到，年号、月份、日期和星期号也可分别通过Year、Month、Day、WeekDay等函数获得。要注意的是，通过WeekDay获得的星期号是数值表示的1-7，而非大写的“星期一”-“星期日”，因此必须借助一个多分支语句加以转换。
图4-3 显示当天日期界面
实验步骤：
1．在窗体上放置一个Label控件。
41
3．添加代码（请补充缺少的语句）
'Rq为当前系统日期，Y为年号，m为月份，d为日期，w1为数值型的星期号，w2为转换后的大写的星期号
Dim Y As Integer, m As Integer, d As Integer, w1 As Integer
Dim Rq As Date
Dim w2 As String
Private Sub Form_Load()
Rq = ________
Y = __________
m = __________
d = ________
w1 = Weekday(Rq, vbMonday) '设星期一为第一天，缺省值星期日是第一天
Select Case w1
Case 1
w2 = "一"
Case 2
w2 = "二"
Case 3
w2 = "三"
Case 4
w2 = "四"
Case 5
w2 = "五"
Case 6
w2 = "六"
Case 7
w2 = "日"
End Select
LblDate.Caption = ______________________________
End Sub
4．保存文件，调试运行。
实验4.4计算器
实验任务：
编程模拟一个袖珍计算器，它可以根据输入的操作符进行不同的计算，要求最少要做加、减、乘、除四种运算。实验结果如图4-4所示。
图4-4 实验4.4运行界面
注意：判断一下除数为零的情况。若除数为零，要用Msgbox消息框提示“除数不能为零”、清空输入数2的文本框、让该文本框获得焦点，等待重新输入合法的数据。
提示：
设计界面如图4-4所示，属性设置如下：
43
实验4.5方程求解
实验任务：
编程实现一元二次方程求解。要求任意输入方程的系数a，b，c，计算并输出方程的两个根xl，x2，并把方程系数和求得的根存入数据文件“gen.dat”中，界面如图4-5所示。
图4-5 实验4.5运行界面
实验要求：
1．输入a，b，c三个数，为了程序设计的方便可由三个文本框来实现
2．通过求根公式求得方程的根。计算的结果通过文本框显示。
要分为：a＝0时，按照一次方程求解
a≠0时，
b^2-4ac>=0 按照二次方程求实根解
b^2-4ac<0 按照二次方程求虚根解
dalt = b * b - 4 * a * c
dalt = Sqr(-dalt) '复根
两个须根分别为：
文本框= Format(-b / 2 / a, "0.00") & "+" & Format(dalt / 2 / a, "0.00") & "i"
文本框= Format(-b / 2 / a, "0.00") & "-" & Format(dalt / 2 / a, "0.00") & "i"
3．为简化程序，假设a，b，c均为数值
45
习 题4
习题4.1选择题
1. VB 也提供了结构化程序设计的三种基本结构，三种基本结构是（ ）。
（A ）递归结构、选择结构、循环结构 （B ）选择结构、过程结构、顺序结构
（C ）过程结构、输入、输出结构、转向结构 （D ）选择结构、循环结构、顺序结构
2. 结构化程序由三种基本结构组成，下面属于三种基本结构之一的是（ ）。
（A ）递归结构 （B ）选择结构
（C ）过程结构 （D ）输入、输出结构 3. 下面程序段运行后，显示的结果是（ ）。
Dim x%
If x Then Print x Else Print x+1
（A ）1 （B ）0 （C ）-1 （D ）显示出错信息 4. 语句If x=1 Then y=1，下列说法正确的是（ ）。 （A ）x=1和y=1均为赋值语句 （B ）x=1和y=l 均为关系表达式
（C ）x=1为关系表达式，y=l 为赋值语句 （D ）x=1为赋值语句，y=l 为关系表达式 5. 用If 语句表示分段函数????
?<+>=+=1
,31
,1)(2x x x x x f ，下列不正确的程序段是（ ）。
（A ）f=x*x+3 （B ）If x>=1 Then f=sqr(x+1)
If x>=1 Then f=sqr(x+1) If x<1 Then f=x*x+3 （C ）If x>=1 Then f=sqr(x+1） （D ）If x<1 Then f=x*x+3 _ Else f=x*x+3 Else f=sqr(x+1) 6. 计算分段函数值。
????
??
?≥<≤<≤<=2
x ,32x 1 ,21x 0 ,10 x ,0y 下面程序段中正确的是（ ）。
（A ）If x<0 Then y=0 （B ）If x>=2 Then y=3 If x
If x<2 Then y=2 If x>0 Then y=1
If x>=2 Then y=3 If x<0 Then y=0
（C）If x<0 Then （D）If x>=2 Then
y=0 y=3
ElseIf x>0 Then ElseIf x>=1 Then
y=1 y=2
ElseIf x>1 Then ElseIf x>=0 Then
y=2 y=1
Else Else
y=3 y=0
End If End If
7.下面程序段，显示的结果是（）。
Dim x
x=Int（Rnd）十5
Select Case x
Case 5
Print”优秀”
Case 4
Print“良好”
Case 3
Print“通过”
Case Else
Print“不通过”
End Select
（A）优秀（B）良好（C）通过（D）不通过
8.下面程序段求两个数中的大数，（）不正确。
（A）Max=IIf(x>y，x，y) （B）If x>y Then Max=x Else Max=y （C）Max=x （D）If y>=x Then Max=y
If y>=x Then Max=y Max=x
9.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
（A）分支1 （B）分支2 （C）Else分支（D）程序出错
10.以下Case语句中错误的是
（A）Case 0 To 10 （B）Case Is>10
（C）Case Is>10 And Is<50 （D）Case 3,5,Is>10
11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = -5
If Sgn(x) Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是
（A）-5 （B）25 （C）1 （D）-1
12.在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以
下能实现该操作的事件过程是
（A）Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then
MsgBox "请输入大写字母"
KeyAscii = 0
End If
End Sub
（B）Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode < 65 Or KeyCode > 90 Then
MsgBox "请输入大写字母"
KeyCode = 0
End If
End Sub
（C）Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then
MsgBox "请输入大写字母"
End If
47
End Sub
（D）Private Sub Text1_Change()
If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then
MsgBox "请输入大写字母"
End If
End Sub
13.设a=6，则执行x=IIF(a>5,-1,0)后，x的值为
（A）5 （B）6 （C）0 （D）-1
14.下列语句正确的是
（A）If A ≠ B Then Print "A 不等于 B"
（B）If A <> B Then Printf "A 不等于 B"
（C）If A <> B Then Print "A 不等于 B"
（D）If A ≠ B Then Printf "A 不等于 B"
15.下面程序段执行结果为
x = Int(Rnd() + 4)
Select Case x
Case 5
Print "excellent"
Case 4
Print "good"
Case 3
Print "pass"
Case Else
Print "fail"
End Select
（A）excellent （B）good （C）pass （D）fail
16.设a = "a"，b = "b"，c = "c"，d = "d"，执行语句x = IIf((a < b) Or (c > d),
"A", "B")后，x的值为
（A）a （B）b （C）A （D）B
17.下列程序执行后，变量a的值为
Dim a, b, c, d As Single
a = 100:
b = 20:
c = 1000
If b > a Then
d = a: a = b: b = d
End If
If c > a Then
d = b: b = c: c = d
End If
（A）0 （B）1000 （C）20 （D）100
18.执行下面的程序段后，变量c的值为
a = 14
b = 30
Select Case b \ 10
Case 0
c = a * 10 + b
Case 1 To 9
c = a * 100 + b
Case 10 To 99
c = a * 1000 + b
End Select
Print c
（A）363 （B）2548 （C）1430 （D）9875
参考答案
1.D
2.B
3.A x没有赋值，默认为0。而在VB中，0作为逻辑常量False，非0作为True。
4.C
5.C
6.D
7.A
8.D
9.C 10.C 11.C 12.A 13.D
14.C 15.B 16.C 17.D 18.C
习题4.2填空题
1．下面程序运行后输出的结果是( 空1 )。
x=Int(Rnd)+3
If x^2>8 Then y=x^2+1
If x^2=9 Then y=x^2-2
If x^2<8 Then y=x^3
Print y
2．下面程序的功能是( 空2 )。
Dim n%，m%
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If IsNumeric(Text1.Text) Then
Select Case Text1.Text Mod 2
Case 0
n=n+Text1.Text
Case 1
49
m=m+Text1.Text
End Select
End If
Text1.Text=""
Text1.SetFocus
End If
End Sub
3．下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框输入表达式，边输入，边统计，以输入回车符作为表达式输入结束，然后显示结果。
Dim count1%
Private Sub Text1_KeyPress(KeyAscii As Integer)
If( 空3 )= "("Then
count1=count1+1
ElseIf( 空4 )= ")"Then
( 空5 )
End If
If KeyAscii=13 Then
If( 空6 )Then
Print "左右括号配对"
Else If( 空7 )Then
Print"左括号多于右括号"；count1；"个"
Else
Print"右括号多于左括号"；-count1；"个"
End If
End If
End Sub
4．输入文本框中若干字符，统计有多少个元音字母、有多少个其他字母，直到按Enter 键结束，并显示结果，大小写不区分。其中CountY中放元音字母个数，CountC中放其他字符数。
Dim CountY%，CountC%
Private Sub Textl_KeyPress(KeyAscii As Integer)
Dim C$
C=( 空8 )
If "A"<=C And C<="Z"Then
Select Case( 空9 )
Case( 空10 )
CountY=CountY+1
Case( 空11 )
CountC=CountC+1
End Select
End If
If( 空12 )Then
Print "元音字母有"；CountY；"个"
Print"其他字母有"；CountC；"个"
End If
End Sub
参考答案
1.7
2.分别统计输入若干数的奇数和、偶数和，存放在m、n中
3.Chr(KeyAscii)
4.Chr(KeyAscii)
5.countl=countl-1 若遇右括号，括号数减l。
6.countl=0 括号配对。
7.countl>0 左括号多于右括号，多于的个数是countl的值。
8.UCase(Chr(KeyAscii)) 大小写不区分。
9.C
10.”A”，”E”，”I”,”O”，”U”
11.Else 其他字符。
12.KeyAscii=13
习题4.3简答题
1．设x与y是同一类型的变量，试设计一个算法，把x与y中的数据相互交换。
2．设a、b、c是同一类型变量，并分别被赋予不同大小的数据，设计一个算法，使得执行的结果为a>b>c。
3．设计一个可以判断某数是否是素数的算法(所谓素数是指只能被1和自身整除的数)。
4．设计一个判断某正整数是一个回文数的算法。所谓回文数是指左右数字完全对称的自然数。例如，121、12321、484、555等都是回文数。
5．设计一个算法，求出给定的自然数a的所有因子。
6．在文本框Textl与Text2中分别输入35与48，变量S与X分别为字符型与整型，试问，以下赋值语句的执行结果是什么?
S=Textl.Text+Text2.Text
X= Textl.Text+Text2.Text
S=Textl.Text & Text2.Text
X= Textl.Text & Text2.Text
S=Val(Textl.Text)+Text2．Text
X=Val(Textl.Text)+Text2.Text
51
S=Val(Textl.Text) & Text2. Text
X=Val(Textl.Text) & Text2.Text
习题4.4操作题
1．将键盘输入的一位数字翻译为英文单词，如图4-6所示。若输入长度大于1且不是0-9之间的数字，显示“输入错误，请重新输入”的信息。
图4-6 数字转单词界面
2．从键盘输入一个大写字母，要求改用小写字母输出。提示：Visual Basic提供了一个标准函数Lcase（x），方便地将大写字母转换成小写字母
3. 输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。并计算周长与面积。并把结果存入数据文件“area.dat”中。程序界面如图4-7所示。
53
图4-7判断三角形程序界面
4．货币兑换。将输入的人民币金额按指定的要求兑换为美元或港币。美元和人民币兑换比为1:6.65；人民币和港币兑换比为1.15:1。
要求：
（1）应用程序窗体如图4-8所示。
（2）程序运行时和单击“清除”按钮后，光标自动停在人民币金额文本框中。
（3）程序运行时默认币种为美圆。
提示：计算时根据OptionButton 选中的币别（即OptionButton 的Value
属性）进行判
图4-8 币种兑换界面
断，来决定用哪个计算公式进行币种之间的换算。
5．计税款。国家规定，收税标准如下：
收入 超出部分税率 1000 以下 0
1000≤s<1500 5% 1500≤s<2000 10% 2000≤s<2500 15% 2500≤s<5000 20% 5000以上 25%
提示：本题是一个典型的多分支情况，如果使用嵌套的If 结构，层次复杂，容易产生 If 和End If 不匹配的语法错误。因此建议使用If –Then-Else If 结构或Select Case 结构，程序比较清晰，可读性好。
6．计算分段函数y 的值。
7．从键盘输入三个数，将它们从大到小依次排列输出。
图4-9 三数排序
注意：a 、b 、c 三个数之间的各种可能性都要考虑到，才能得到正确结果。请输入各种不同情况的数据验证程序。
参考答案
1.程序界面与参考程序： Private Sub Form_Click()
??
?
??>+<≤<=535
0012x x e x x x y x
Dim x%, y%, z$
x = InputBox("x=?")
y = Len(Trim(x)) '求数字x的长度
If y > 1 Or x < 0 And x > 9 Then
MsgBox "输入错误，请重新输入"
Else
Select Case x
Case 0
z = "zero"
Case 1
z = "one"
Case 2
z = "two"
Case 3
z = "three"
Case 4
z = "four"
Case 5
z = "five"
Case 6
z = "six"
Case 7
z = "seven"
Case 8
z = "eight"
Case 9
z = "nine"
End Select
Text1 = x
Text2 = z
End If
End Sub
2. 参考程序：
Private Sub Form_Click()
Dim x$, y$
x = InputBox("x=?")
If Asc(x) < 65 Or Asc(x) > 90 Then
55
MsgBox "输入错误，请重新输入"
Else
y = LCase(x)
End If
Text1 = x
Text2 = y
End Sub
3. 参考程序：
Private Sub Command1_Click()
Dim a!, b!, c!, s!, area!
a = InputBox("输入三角形边a")
b = InputBox("输入三角形边b")
c = InputBox("输入三角形边c")
If a<=0 or b<=0 or c<=0 or a + b <= c Or a + c <= b Or b + c <= a Then MsgBox "不能够成三角形，请重新输入"
Else
If a = b And b = c Then
Text4 = "是等边三角形"
ElseIf a = c Or b = c Or a = b Then
Text4 = "是等腰三角形"
ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 Then Text4 = "是直角三角形"
Else
Text4 = "是任意三角形"
End If
Open “D:\area.dat” For Output As#1
Text1 = a
Text2 = b
Text3 = c
Text5 = a + b + c
s = (a + b + c) / 2
Text6 = Format(Sqr(s * (s - a) * (s - b) * (s - c)), "0.00")
Write #1，Text5，Text6
End If
End Sub
4. 参考程序：
Private Sub Option1_Click()
1 一元稀疏多项式的运算 问题描述：设有两个带头指针的单链表表示两个一元稀疏多项式A、B，实现两个一元稀疏多项式的处理。 实现要求： ⑴输入并建立多项式； ⑵输出多项式，输出形式为整数序列：n，c1，e1，c2，e2……c n，e n，其中n是多项式的项数，c i，e i分别为第i项的系数和指数。序列按指数降序排列； ⑶多项式A和B相加，建立多项式A+B，输出相加的多项式； ⑷多项式A和B相减，建立多项式A-B，输出相减的多项式； ⑸多项式A和B相乘，建立多项式A×B，输出相乘的多项式； ⑹设计一个菜单，至少具有上述操作要求的基本功能。 测试数据： (1) (2x+5x8-3.1x11)+(7-5x8+11x9) (2) (6x-3-x+4.4x2-1.2x9)-(-6x-3+5.4x2+7.8x15) (3)(x+x2+x3)+0 (4)(x+x3)-(-x-x-3) 2 成绩排序 假设某年级有4个班，每班有45名同学。本学期有5门课程考试，每门课程成绩是百分制。假定每个同学的成绩记录包含：学号、姓名各门课程的成绩共7项，其中学号是一个10位的字符串，每个学生都有唯一的学号，并且这4个班的成绩分别放在4个数组中，完成以下操作要求： ⑴编写一个成绩生成函数，使用随机数方法，利用随机函数生成学生的各门课程的成绩（每门课程的成绩都是0∽100之间的整数），通过调用该函数生成全部学生的成绩； ⑵编写一个平均成绩计算函数，计算每个同学的平均成绩并保存在成绩数组中； ⑶用冒泡排序法对4个班的成绩按每个同学的平均成绩的以非递增方式
进行班内排序； ⑷用选择排序法对4个班的成绩按每个同学的平均成绩的以非递增方式进行班内排序； ⑸对已按平均成绩排好序的4个班的同学的构造一个所有按平均成绩的以非递增方式排列的新的单链表； ⑹设计一个菜单，至少具有上述操作要求的基本功能。 3 迷宫问题 问题描述：以一个m×n的长方阵表示迷宫，0和1分别表示迷宫中的通路和障碍。设计一个程序，对任意设定的迷宫，求出一条从入口到出口的通路，或得出没有通路的结论。 实现要求： ⑴实现一个以链表作存储结构的栈类型，然后编写一个求解迷宫的非递归程序。求得的通路以三元组（i,j,d）的形式输出，其中：（i,j）指示迷宫中的一个坐标，d表示走到下一坐标的方向。 ⑵编写递归形式的算法，求得迷宫中所有可能的通路； ⑶以方阵形式输出迷宫及其通路。 [测试数据] 迷宫的测试数据如下：左上角（1，1）为入口，右下角（8，9）为出口。 1 2 3 4 5 6 7 8 实现提示：
学生实验报告 院系：测绘学院 专业班级：测绘13级3班 学号：2013305517 学生姓名：王泽 指导教师：郭辉老师 2016年05月20日
安徽理工大学实验报告 实验课程名称：数据结构与软件开发上机实验 开课院系及实验室：测绘学院红楼二楼机房 实验1 编程基本知识练习 实验目的： 通过该实验课内容的练习，学生应掌握VB 编程的基本语法、变量的定义、数组（动态数组）的定义、VB 语言中子过程与函数的定义以及文本文件的读写等知识。 实验内容： 1）变量的定义动态数组的定义与应用； 2）矩阵的加、减、乘运算(定义Sub()子过程或Function()来实现)； 3）数据文件的建立、数据的读取与写入。 实验步骤： 1.编辑界面 1.1 打开VB 编程工具，进入编程主界面。
1.2 在窗体上新建“读入数据”和“输出数据”两个按钮。 1.3 双击“窗体”进入代码输入界面，进行代码编辑。 2.用VB 编写的源代码 2.1 矩阵基本运算源码详见附录一。 （1）两矩阵相加 （2）两矩阵相减 （3）矩阵转置 （4）两矩阵相乘 （5）矩阵求逆 2.2 文本文件(本实验中data.txt)的读取源代码 （1）建立文本文件并输入数据 在桌面上新建一“data.txt” ( 文本文件路径为C:\Users\ WH\Desktop\练习\data.txt”）。输入以下内容： 6,7,4,0.005 A,35.418 B,45.712 C,25.270
D,24.678 在桌面上新建一“result.txt” ( 文本文件路径为C:\Users\ WH\Desktop\练习\result.txt”）。（2）从文本文件中读数据 Dim linedata as string, m_GaochaN as integer,m_Pnumber as integer,m_knPnumber as integer,M as Double,k1 as integer 'linedata 为存储文本文件一行信息的字符串变量 Dim a() as String,H() as Double 'a()为存储点名，H()存储高程 Open“C:\Users\ WH\Desktop\练习\data.txt”For Input As #1 Line Input #1, linedata k = Split(linedata, ",") m_GaochaN = Val(k(0)) m_Pnumber = Val(k(1)) m_knPnumber = Val(k(2)) M = CDbl(k(3)) For k1 = 1 To m_knPnumber Line Input #1, linedata k = Split(linedata, ",") a（k1）= k(0) GetstationNumber (a) H(k1) = CDbl(k(1)) Next Close #1 （3）将读入点名存储到点名数组中，且返回该点名所对应编号 Function GetstationNumber(name As String) Dim i As Integer For i = 1 To m_Pnumber If P_Name(i) <> "" Then '将待查点名与已经存入点名数组的点比较 If P_Name(i) = name Then GetstationNumber = i Exit For End If Else '待查点是新的点名，将新点名放到P_Name 数组中 P_Name(i) = name GetstationNumber = i Exit For End If Next i End Function （4）从文本文件中写数据(将从data.txt 读入的数据，写入到result.txt 文件中) Open“C:\Users\ WH\Desktop\ 练习\result.txt” For Output As #1 outstring = outstring + str(m_GaochaN) +","
《程序设计基础》 实验报告 专业班级： 姓名： 学号：
实验一 面向过程的简单程序设计 1.实验目的要求 （1） 使用C++语言编写简单的计算机程序，掌握C++程序从编辑、编译到运行的全过程， 初步了解C++程序的特点。 （2） 掌握C++语言的数据类型（包括对各种数据类型变量的定义、初始化、赋值等）、运 算符和表达式的使用。 （3） 掌握赋值语句的使用。 （4） 掌握数据的输入输出方法。 2.实验内容 （1）设计简单程序，分别计算下列表达式，式中变量由键盘输入，输出表达式的值。 <1> d c b a x -++ <2> 11 11+++x x <3> sinX+cosX+tan -1 X <4> e x+y +e x-y <5> log 10(1+21x +) <6> 22b a -+??b a - （其中??a 表示取不大于a 的最大整数）。 <1> #include
cout<
**大学程序设计基础实验报告 实验名称：实验三分支结构 实验目的： 1、掌握IF-ELSE语句使用。 2、掌握ELSE-IF语句使用。 3、熟悉SWITCH语句使用。 实验内容： 在本地电脑中新建一个文件夹，用于存放C程序，文件夹的名字要求是“学号姓名-实验序号”，如E:\ 1920115555张三-03。启动C-Free，完成如下各题。 1、编程题：输入参数a,b,c,求一元二次方程ax2+bx+c=0的根（①a、b、c都为0，②a 和b为0，c不为0，③a为0，b不为0，c任意，④a不为0，且a、b、c满足b2-4ac ≥0，⑤a不为0，且a、b、c满足b2-4ac<0）。 2、编程题：输入职工的月薪salary,计算并输出应缴纳的个人所得税tax。tax=rate * (salary –850)，rate的计算方式如下： 当salary <= 850，则rate = 0; 当850 < salary <= 1350，则rate = 5%; 当1350 < salary <= 2850，则rate = 10%; 当2850 < salary <= 5850，则rate = 15%; 当salary > 5850，则rate = 20%;。 3、编程题：根据输入的3个边长a、b、c，判断它们是否能构成三角形，若能构成三 角形，则进一步判断此三角形是哪种类型的三角形（等边三角形、等腰三角形、直角三角形和一般三角形。等腰直角算作等腰）。 4、编程题：输入一个形式如“操作数运算符操作数”的表达式，对2个整数进行乘、 除或求余运算。【请分别用if语句和switch语句实现此题功能】 上交作业的方法： 1.将程序代码及注释和运行程序的窗口复制到实验结果下方对应的题号上，并把这 次实验上机操作中遇到的问题及解决方法、心得等填好完成实验报告。 2.保存以上所有按要求已调试通过，并形成.c（或.cpp）和.exe文件到以自己的“学 号姓名-03”命名的文件夹中，并将以自己的“学号姓名”命名的文件夹压缩后上 交到ftp://10.172.250.252:1161中的“作业上传”文件夹下的“报告上交02”文件 夹下的子文件夹“源文件压缩上交”中，同时把以“学号姓名-03”命名的word 文档上交到“报告上交03”文件夹下的另一子文件夹“word文件上交”中。 特别提醒：每次上传的文件名一定要是“学号姓名-实验序号. doc”(如1720115555张
设计题目：学生成绩管理系统班级：计0902 姓名：付乐颖 学号：20091221067 完成日期：2010.10.15
1. 课程设计目的和要求 随着科学的发展和社会的进步，许多过去有人工处理的繁杂事务开始交付计算机来完成。学生成绩管理系统可以说是一个得力助手，它利用计算机对学生成绩进行统一管理，实现学生成绩信息管理工作流程的系统化、规范化和自动化，提高了广大教师的工作效率。 本程序旨在训练学生的基本编程能力，了解管理信息系统的开发流程，熟悉C语言的文件等的各种基本操作，使学生能对C语言的文件操作有一个更深的理解。为进一步开发出高质量的信息管理系统打下坚实的基础。 2. 课程设计任务内容 学生包含以下信息项：学号、姓名、学院、班级、高数成绩、英语成绩、C语言成绩、总分、平均分。系统的主要功能包括： 1. 创建学生成绩信息文件，根据提示输入学生的各项信息，计算出总分和平均分，然后按学号对学生信息进行排序，并将排序后的学生成绩信息存储到一个二进制文件中。 2. 增加学生信息，在原有学生信息文件的基础上增加新的学生成绩信息，要求：增加后的学生信息仍按学号排序，并继续保存至原文件。 3. 删除学生信息，提示用户输入要进行删除操作的学号，如果在文件中有该信息存在，则将该学号所对应的学生信息删除，否则输出提示信息，并提示用户选择是否继续进行删除操作。 4. 修改学生信息，提示用户输入要进行修改操作的学号，如果在文件中有该息存在，则将提示用户输入该学号对应的要修改的选项，结果保存至原文件，并提示用户选择是否继续进行修改操作。 5. 按不同条件对学生信息进行查询操作，输出满足条件的学生信息。 (1) 按学号查询，输入一个学号，输出对应的学生信息。
《C程序设计》实验教学大纲 一、适用范围 大纲适用信息管理专业本科教学使用。 二、课程名称 C程序设计 三、学时数与学分 总学时：90 总学分：4 实验学时：28 实验学分：1 四、教学目的和基本要求 目的：通过C程序设计实验，培养学生对学习程序设计的兴趣，加深对讲授内容的理解，尤其是通过上机来掌握语法规则，使学生全面了解 C 语言的特点，熟练掌握 C 语言程序设计的基本方法和编程技巧。 基本要求：了解和熟悉C语言程序开发的环境；学会上机调试程序，善于发现程序中的错误，并且能很快地排除这些错误，使程序能正确运行，达到实验知识和理论知识的融会贯通。上机实验前，学生必须事先根据题目的内容编好程序，然后在实验时输入程序、调试程序、直至运行结果正确为止，上机结束后，应整理出实验报告。 注：带*的实验项目为选做实验项目 六、教材、讲义及参考书 《C程序设计题解与上机指导》谭浩强主编清华大学出版社 七、实验成绩评定办法 实验成绩=平时实验表现+实验报告。实验成绩占总成绩的20%。 实验成绩以等级形式给出，评定等级分优、良、中、及格、不及格五类。 1、平时考核：上机实验前，学生必须事先根据题目的内容编好程序，然后在实验时输入程序、调试程序、直至运行结果正确为止。在实验中，教师可根据学生编程操作能力、观察和分析及运用知识能力、程序编制正确性以及学生的课堂纪律、实验态度、保持实验室卫生等方面的表现进行综合考核。
2、实验报告：学生实验后应按时完成实验报告。 八、实验教学大纲说明 本大纲共安排28学时的实验，其中带*号实验项目为选做实验项目，实际课时为18学时。实验项目多为设计性实验项目，每个设计性实验项目中都包含数个小的设计性题目，其中带*号的题目为选做题目，有时间和有能力的同学可以选做。 九、实验项目 实验一C程序的运行环境和运行一个C程序的方法 一、实验目的 1.了解Visual C++6.0编译系统的基本操作方法，学会独立使用该系统。 2.了解在该系统上如何编辑、编译、连接和运行一个C程序。 3.通过运行简单的C程序，初步了解C源程序的特点。 二、实验内容 1.用编辑程序，输入教材第一章例1.1程序，并进行编译和运行。应了解所用的系统是用什么命令进行编译和连接运行的。编译和连接后所得到的目标程序的后缀是什么形式的？ 2.编写一个C程序，输出以下信息： **************************** very good! **************************** 3.输入并运行教材第一章中例1.3，了解如何在运行时向程序变量输入数据。 实验二数据类型、运算符和表达式 一、实验目的 1.掌握C语言数据类型，熟悉如何定义一个整型、字符型、实型变量，以及对它们赋值的方法，了解以上类型数据输出时所用格式转换符。 2.学会使用C的有关算术运算符，以及包含这些运算符的表达式，特别是自加(++)和自减(--)运算符的使用。 二、实验内容 1.输入并运行以下程序： main( ) { char c1,c2; c1=97;c2=98; pr intf(“%c %c\n”,c1,c2); printf(“%d %d\n”,c1,c2); } 在此基础上 ①将第三行、第四行改为: c1=321;c2=353; 再使之运行，分析其运行结果。 ②将第二行改为： int c1,c2; 再使之运行，分析其运行结果。。 2.输入并运行以下程序：
分支与循环程序设计实验-报告
————————————————————————————————作者: ————————————————————————————————日期：
实验名称 分支与循环程序设计实验 指导教师 罗志祥 专业班级 光电140６ 姓名 段昳晖 学号 Ｕ2014**＊** 联系电话 13７*＊***＊＊＊ 一、任务要求 1. 设有8ｂits 符号数X 存于外部RA Ｍ单元,按以下方式计算后的结果Y 也存于外部RAM 单元，请按要求编写完整程序。 264/2 106410 X X Y X X X X ?≥? =<
第一章目的与要求 书上有。 第二章需求分析 软件设计的一个重要的环节就是需求分析。本章在对ATM取款机管理系统的应用情况作了全面调查的基础上，确定系统目标，并对系统所需要的基础功能进行分析，从而确定用户的需求。以下是ATM取款机管理系统所需要的需求分析。 ATM管理系统包括六个模块：登录，挂失功能，修改密码，取款功能，转账功能，查询功能。 ①登录： 输入银行卡的账号，密码，验证银行卡的卡号，密码是否正确，之后进入主界面 ②挂失功能： 确认是否对银行卡进行挂失，挂失后账户无法操作 ③修改密码： 用户可自由对其银行卡密码进行修改，修改之后的新密码将会覆盖其原密码 ④取款功能： 用户可自由取得所持银行卡内的存款，所取款数必须在其原有账户余额之内 ⑤转账功能： 用户可将本账户中的存款转入其他账户，转账过程中，需要转入账户的账
号 ⑥查询功能： 用户可查询用户信息，其中包括用户姓名、用户身份证号码、银行卡号以及存款余额 模拟ATM取款机的操作： 首先录入账户信息，格式如下 ㈠、登录功能：输入帐号和密码进行登录，如密码错误提示重新输入密码，如帐号错误提示无此帐户。 ㈡、查询功能：查询账户余额。 ㈢、取款功能：取款，更新余额。 ㈣、挂失功能：挂失后，该账户不能进行任何操作。 ㈤、修改密码：输入原密码和新设置密码。 ㈥、转账功能：输入转账的转出账户以及转账金额，进行转账。
第三章设计分析 3.1、ATM系统管理 3.1.1系统基本功能 首先，确定系统中存在两种用户，一种是ATM，可以进行信息录入和后台管理。另外一种是取款人，取款人主要是进行信息的查询，不能进行信息录入。所以在创建类的时候，先创建一个ATM类，然后创建取款人类，并与ATM 类形成有元，进而继承ATM的所有功能，并添加录入信息的功能。 基本功能： 登录功能---------输入帐号和密码进行登录，如密码错误提示重新输入密码，如帐号错误提示无此帐户。 查询功能---------查询账户余额。 取款功能---------取款，更新余额。 挂失功能---------挂失后，该账户不能进行任何操作。 修改密码---------输入原密码和新设置密码。 转账功能---------输入转账的转出账户以及转账金额，进行转账。、
C语言程序设计实验报告（数组） 1实验目的 （1）熟练掌握一维数组，二维数组的定义，初始化和输入、输出方法； （2）熟练掌握字符数组和字符串函数的使用； （3）掌握与数组有关的常用算法（查找、排序等）。 2实验内容 编写函数catStr(char str1[],char str2[])用于进行两个字符串的连接，编写函数lenStr(char str[])用于统计一个字符串的长度，并在主函数中调用。 要求： 1、不允许用strcat()和strlen()字符处理库函数； 2、在主函数以直接初始化的方式输入两个字符串str1和str2.调用函数 strlen()计算并返回两个字符串的长度； 3、调用函数catstr()连接两个字符串（将str2连接在str1后面）； 4、调用函数lenstr()计算并返回连接后字符串的长度； 5、在主函数中输入两个原始的字符串及几个字符串的长度，以及处理后字 符串及其长度。
3算法描述流程图
4源程序 #include
for (i=0;m[i]!='\0';i++); printf("%d",i); } void main() {char s1[50]="forever",s2[50]="more"; printf("s1=%s,s2=%s",s1,s2); printf("\ns1的长度:"); lenStr(s1); printf("\ns2的长度:"); lenStr(s2); catStr(s1,s2); printf("\n连接后的字符:"); printf("%s\n",s1); printf("连接后字符的长度:"); lenStr(s1); printf("\n"); } 5测试数据 s1=forever, s2=more 6运行结果 7出现问题及解决方法 在输入程序时，少写了半边引号，调试时发现存在错误，找到了错误并加以改正。无论什么事，细心都是必不可少的，认真是解决问题的关键。 8实验心得 通过本次实验，对于函数的定义和声明，数组以及循环语句有了进一步的认识,掌握了字符数组和字符串函数的使用，以及与数组有关的常用算法。此次实验不是调用strlen()和strcat()函数，而是通过自己设计程序来进行字符串的连接以及计量字符串的长度，由此我学会了如何去理清自己的思路来设计程序。
实验二 MATLAB 程序设计 一、 实验目的 1.掌握利用if 语句实现选择结构的方法。 2.掌握利用switch 语句实现多分支选择结构的方法。 3.掌握利用for 语句实现循环结构的方法。 4.掌握利用while 语句实现循环结构的方法。 5.掌握MATLAB 函数的编写及调试方法。 二、 实验的设备及条件 计算机一台（带有MATLAB7.0以上的软件环境）。 M 文件的编写： 启动MATLAB 后，点击File|New|M-File ，启动MATLAB 的程序编辑及调试器（Editor/Debugger ），编辑以下程序，点击File|Save 保存程序，注意文件名最好用英文字符。点击Debug|Run 运行程序，在命令窗口查看运行结果，程序如有错误则改正 三、 实验内容 1.编写求解方程02=++c bx ax 的根的函数（这个方程不一定为一元二次方程，因 c b a 、、的不同取值而定） ，这里应根据c b a 、、的不同取值分别处理，有输入参数提示，当0~,0,0===c b a 时应提示“为恒不等式!”。并输入几组典型值加以检验。 （提示：提示输入使用input 函数） 2.输入一个百分制成绩，要求输出成绩等级A+、A 、B 、C 、D 、E 。其中100分为A+，90分～99分为A ，80分～89分为B ，70分～79分为C ，60分～69分为D ，60分以下为E 。 要求：（1）用switch 语句实现。 （2）输入百分制成绩后要判断该成绩的合理性，对不合理的成绩应输出出错信息。 （提示：注意单元矩阵的用法） 3.数论中一个有趣的题目：任意一个正整数，若为偶数，则用2除之，若为奇数，则与3相乘再加上1。重复此过程，最终得到的结果为1。如： 2?1 3?10?5?16?8?4?2?1 6?3?10?5?16?8?4?2?1 运行下面的程序，按程序提示输入n=1,2,3,5,7等数来验证这一结论。 请为关键的Matlab 语句填写上相关注释，说明其含义或功能。 4. 的值，调用该函数后，
1 矩阵的操作（6人） 设有两个矩阵A=(a ij)m×n，B=(b ij)p×q 实现要求： ⑴编写矩阵输入函数INPUT_MAT，通过该函数完成矩阵的输入并返回保存矩阵的数组和对应矩阵的行数、列数。（不能使用全局变量） ⑵编写矩阵输出函数OUTPUT_MAT，通过该函数完成矩阵的输出。 ⑶求矩阵的转置，矩阵的转置A’=(a ji)n×m，转置前输出原矩阵，转置后输出转置矩阵。 ⑷求矩阵A、B的和。矩阵A和B能够相加的条件是：m=p，n=q；矩阵A和B如果不能相加，请给出提示信息；若能够相加，则求和矩阵C并输出C。 C=A+B=(c ij)m×n，其中c ij=a ij+b ij ⑸求矩阵A、B的积。矩阵A和B能够相乘的条件是：p=n；矩阵A和B 如果不能相乘，请给出提示信息；若能够相乘，则求积矩阵D并输出D。 D=A×B=(d ij)m×q，其中d ij=∑a ik×b kj，k=1,2,……,n ⑹设计一个菜单，具有求矩阵的转置、求矩阵的和、求矩阵的积、退出等基本的功能。在求矩阵的和或求矩阵的积时要求能够先提示输入两个矩阵的，然后再进行相应的操作。
2 数据汇总 (6人) 问题描述： 在数据处理中经常需要对大量数据进行汇总，将相同关键字记录的某些数据项的值叠加起来，生成一个分类汇总表。 假设某超级市场销售有m种商品（假设商品的编号为1，2，3，┅┅，m），有n台前台收款机（假设收款机的编号为1，2，3，┅┅，n）进行收款，以记录的形式提供给计算机，每个记录表示某台收款机的一种商品一次交易的数量和销售额。记录由4个域组成：收款机编号、商品编号、销售数量、销售金额。构造一个结构体类型，每次销售数据以一个结构体变量保存在一个数据文件中。实现要求： ⑴编写实现将数据记录插入到数据文件的最后的函数； ⑵编写以收款机为单位的数据分类处理函数。构造n个单链表，每个链表保存一台收款机的销售记录，这n个单链表的头指针存放在一个指针数组中，通过数组的下标就可以知道是哪台收款机。读取数据文件的记录，将所有的销售记录(数据文件中的全部记录)分解插入到n个单链表； ⑶统计每台收款机的销售总额； ⑷编写以商品为单位的数据分类处理函数。构造m个单链表，每个链表保存一种商品的销售记录，这m个单链表的头指针存放在一个指针数组中，通过数组的下标就可以知道是哪种商品。读取数据文件的记录，将所有的销售记录(数据文件中的全部记录)分解插入到m个单链表； ⑸以商品为单位，统计每种商品的销售总额。 ⑹设计一个菜单，具有插入数据记录、按收款机统计销售总额、按商品统计销售总额、退出系统等最基本的功能。
实验6 数组 一、实验目的 1、掌握一维数组和二维数组的定义、赋值和输入输出的方法； 2、掌握字符数组和字符串函数的使用； 3、掌握与数组有关的算法（特别是排序算法）。 二、实验内容和步骤 编程序并上机调试运行。 1、以下给定程序MODI1.C的功能是： 求一维数组a中所有元素的平均值, 结果保留两位小数。例如，当一维数组a中的元素为：10, 4, 2, 7, 3, 12, 5, 34, 5, 9时，程序的输出应为：The aver is: 9.10 程序中有两处错误，错误都在提示行：/***********found***********/的下面一行。请改正程序中的错误， 使它能得出正确的结果。 注意：程序中的其它地方请不要随意改动，不得增行或删行，也不得更改程序的结构！ #include
测量数据处理程序设计指导书 设计名称：测量数据处理程序设计 计划周数：２周 适用对象：测绘工程专业本科 先修课程：测量学，测量平差基础，大地控制测量，测量程序设计 一、设计目的 测量数据处理程序设计是学生在系统学习完大地控制测量学、测量平差基础、测量程序设计等相关课程之后，为了系统理解控制网平差的整体过程及综合运用科学工具而安排的。通过课程设计主要达到以下几个目的：掌握控制网平差课程设计具体内容、方法和步骤；通过理论联系实际，进一步巩固已学到的专业理论知识，并加深对理论的认识；培养学生对编写代码，上机调试和编写说明书等基本技能；锻炼学生阅读各类编程参考书籍及加以编程运用的能力。 二、设计内容及日程 在VB、 VC软件或matlab科学计算软件的平台上，选择的具体课程设计题目，进行程序设计与实现，共计10个工作日，工作程序如下： 三、设计的组织： 1.设计领导 （１）指导教师：由教研室指派教师、实验员兼任。
职责：全面组织设计大纲的实施，完成分管工作及相关技术指导。 （２）设计队长：学生班长兼任。 职责：协助教师做好本班学生的人员组织工作。 （３）设计组长：每组一人。 职责：组织执行下达的设计任务，安排组内各成员的工作分工。 2.设计分组 学生实习作业组由3～4人组成（含组长一人）。 四、设计内容 在VB、VC或MATLAB 软件平台上，按选择的设计题目进行相关程序开发 1、闭合导线简易平差、附合导线简易平差支导线计算 2、闭合水准网计算、附合水准网简易平差 3、地形图编号（新、旧两种方法） 4、误差椭圆的参数的计算与绘制误差椭圆 5、水准网严密平差 6、高斯正反算计算 7、高斯投影换带计算 8、七参数大地坐标转换（WGS84-bj54坐标转换、WGS84-CGCS2000坐标转换） 9、四参数坐标转换（西安80-bj54坐标转换、CGCS2000-bj54坐标转换、CGCS2000-西安80坐 标转换（平面） 10、大地高转换为正常高的计算 11、工程投影变形超限的处理 12、遥感图像数据处理 13、曲线（曲面）拟合 14、摄影测量空间后方交会 15、****管理信息系统设计与开发 五、上交成果 1) 小组利用vb、vc或matlab编写的软件包一个及测试数据一份 2）小组关于所开发程序设计说明书一份 3) 个人课程设计的心得一份 4）小组答辩PPT一份
C++程序设计 实验报告 专业计算机科学与技术班级 ____________ 学号 ____________ 姓名 ____________ 指导教师 __许加兵_ 信息与电子工程学院2013年9月-12月
C++程序设计实验报告 专业__________班级__________学号__________姓名__________ 成绩____________ 指导教师____________ 日期____________ 实验1 C++集成开发环境与C++函数程序设计 一、实验目的 1、了解和使用Visual Studio 2010的C++集成开发环境； 2、熟悉Visual Studio 2010环境的基本命令、功能键和常用的菜单命令； 3、学会完整的C++程序开发过程； 4、学习并掌握C++函数程序设计； 二、实验内容 1、安装、了解和使用Visual Studio 2010的C++集成开发环境； 2、通过以下的C++函数程序设计，熟悉Visual Studio 2010环境的基本命令、功能键和常用的菜单命令； 3、通过以下的C++函数程序设计，学会完整的C++程序开发过程； 4、完成以下的C++函数程序设计和调试: 1）编写一个函数print（），将一个整型向量输出到cout。此函数接受两个参数：一个字符串（用于“标记”输出）和一个向量。 2) 编写一个函数，接受一个vector
学生实验报告 （理工类） 课程名称： C#程序设计专业班级：M11计算机科学与技术（专转本）学生学号： XXXXXXXX 学生姓名： XXX 所属院部：信息技术学院指导教师： XXX 2012 — 2013学年第 1 学期 金陵科技学院教务处制
实验报告书写要求 实验报告原则上要求学生手写，要求书写工整。若因课程特点需打印的，标题采用四号黑体，正文采用小四号宋体，单倍行距。纸张一律采用A4的纸张。 实验报告书写说明 实验报告中实验目的和要求、实验仪器和设备、实验内容与过程、实验结果与分析这四项内容为必需项。教师可根据学科特点和实验具体要求增加项目。 填写注意事项 （1）细致观察，及时、准确、如实记录。 （2）准确说明，层次清晰。 （3）尽量采用专用术语来说明事物。 （4）外文、符号、公式要准确，应使用统一规定的名词和符号。 （5）应独立完成实验报告的书写，严禁抄袭、复印，一经发现，以零分论处。 实验报告批改说明 实验报告的批改要及时、认真、仔细，一律用红色笔批改。实验报告的批改成绩采用五级记分制或百分制，按《金陵科技学院课堂教学实施细则》中作业批阅成绩评定要求执行。 实验报告装订要求 实验批改完毕后，任课老师将每门课程的每个实验项目的实验报告以自然班为单位、按学号升序排列，装订成册，并附上一份该门课程的实验大纲。
实验项目名称：C#基础编程实验学时： 6 同组学生姓名：实验地点： A205 实验日期： 9月17日-9月24日实验成绩： 批改教师：批改时间：
实验1 C#基础编程 一、实验目的 1、熟悉Visual Studio .NET开发环境； 2、掌握C#应用程序的基本操作过程； 3、掌握C#的数据类型，运算符以及表达式的使用； 4、掌握分支和循环语句的使用方法； 5、掌握一维数组，二维数组及数组型数组的使用。 二、实验要求 （1）编写程序要规范、正确，上机调试过程和结果要有记录； （2）做完实验后给出本实验的实验报告。 三、实验设备、环境 安装有Visual Studio .NET软件。 四、实验步骤 1、分析题意； 2、根据题目要求，新建项目； 3、编写并输入相关的程序代码； 5、运行与调试项目； 6、保存项目。 五、实验内容 1、编写一个简单的控制台应用程序，打印一行文字(如你的姓名)。using System; using System.Collections.Generic; using System.Text; namespace Test1_1 { class Program { static void Main(string[] args) { Console.WriteLine("1121412016 张明星！"); Console.ReadLine(); } } } 2、编写一个简单的Windows应用程序，在标签中显示你的姓名。 Form窗体的代码： using System; using System.Collections.Generic;
. 课程设计 课程名称C++面向对象程序设计题目名称公司人员管理系统 专业班级13级计算机科学与技术一班学生林涛、甑德胜、梁增辉 吴志伟、齐、江靖 学号51302011015、51302011016、51302011001 51302011037、51302011006、51302011009指导教师郭有强 二○一四年六月二十日
目录 一、引言 (2) 二、课程设计报告 (4) 1、问题描述 (4) 2、系统总体方案 (4) 3、设计思路和主要步骤 (5) 4、各功能模块和流程图 (5) （1）各功能模块 (5) （2）流程图 (6) 三、系统测试 (9) 四、心得体会 (15) 五、参考文献 (17) 附：程序设计代码 (18)
一、引言 1985年，管理信息系统的创始人，高登?戴维斯给出的管理信息系统的定义是：“它是一个利用计算机硬件和软件，手工作业，分析、计划、控制和决策模型，以及数据库的用户一机器系统。它能提供信息，支持企业或组织的运行、管理和决策。”这个定义说明了管理信息系统的组成要素：计算机硬件、软件、数据库、模型库和用户。 随着我国社会的不断进步,人们对管理信息系统越来越重视,再加之管理信息系统在管理方面所产生的巨大影响,也使得人们越来越关注管理信息系统的发展趋势。由于管理信息系统的发展受到以上各种变革因素的制约,传统的管理信息系统必然向现代管理信息系统发展,在这个发展过程中,管理信息系统的发展将会呈现出以下趋势: 管理信息系统将会越来越注重以人为本。管理科学的发展有科学管理理论、行为管理理论和现代管理理论三个发展阶段,正在向着越来越人性化的方向发展,即以人为本。基于管理学的这一研究视角,管理信息系统也将向着更加人性化的方向发展。在今后的管理信息系统中将会越来越注重人的因素,以人为出发点和中心,围绕着激发和调动人的主动性、积极性、创造性展开的,以实现人与社会共同发展的一系列管理活动。而且这种人性化还会贯穿于管理信息系统的开发设计与研究中,具体表现为今后的管理信息系统将具有更加友好的人机界面,易于人们操作,也会考虑到不同用户的不同需求,更加个性化。 管理信息系统向智能化方向发展。随着人工智能技术的发展,数据仓库、数据挖掘技术在管理信息系统中的应用,管理信息系统必将向着智能化方向发展,如产生了很多的决策支持系统、专家系统等等。智能化的管理信息系统具有思维模拟活动,它具有很高的自学习、自组织和进化性,并具有知识创新功能,可以解决非结构化事务,在决策中处于主导地位,是人的向导,在体系上将是大规模分布式计算模式,以基于网络神经元构件的智能网为主。 管理信息系统向集成化方向发展。随着当前系统集成技术的提高,集成技术和方法也逐步地运用到管理信息系统中。由于管理信息系统将包含多个子系统,因此将这些功能集合在一起以便更好地发挥它的作用,这就是集成化的管理信息系统。集成化的管理信息系统将管理信息系统的各个子系统有机地结合起来,达到互通信息、共享数据资源的目的,其支撑技术是数据库和计算机网络。集成管
《程序设计基础》 实验报告 学号：2016211990 姓名：王贯东 班级：16-计算机科学与技术-1班
学院：计算机与信息学院 实验五指针 1.实验目的要求 （1）掌握指针的概念，学会定义和使用指针变量。 （2）学会使用数组指针和指向数组的指针变量。 （3）学会使用字符串指针和指向字符串的指针变量。 （4）了解指向指针的指针的概念以及其使用方法。 （5）掌握指针、引用、数组做函数参数的传递机制。 （6）*学会使用指向函数的指针变量。 2．实验设备 Visual C++ 6.0 3．实验内容 （1）阅读下面程序，写出其运行结果。
<1> #include
{ int stre ( char[ ] ) ; char str [ 10 ] , *p = str ; gets ( p ) ; cout << stre ( p ) << endl ; } int stre ( char str[ ] ) { int num = 0 ; while( * ( str + num ) != ’\0’ ) num ++ ; return ( num ) ; } 解：题目库函数少了