本帖子已过去太久远了，不再提供回复功能。★2013vb实验报告册-实验报告
您现在的位置：&&>>&&>>&《2013vb实验报告册》
2013vb实验报告册
　　你实验一 一、选择题　　DDBAB,CC(D)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类　　form2.show 有语法错误 错误 事件 结构化　　文件名和结构 工程 代码　　双击任意控件或右健快捷菜单选“代码窗口”　　vb的安装文件夹 属性 方法 font load 对象 三、编程 1-1　　Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub
1-2　　Private Sub Command2_Click() For i = 100 To 110
Print Sqr(i) Next i End Sub　　1-3（基本设置在属性窗口完成！） Private Sub Command3_Click() Print &郑州大学在前进!& End Sub　　1-4（基本设置在属性窗口完成！） Private Sub Command4_Click()　　Label1 = &蓝天、白云、绿水、青山& End Sub 实验二 一　　BCBCC,CBBDA,CCCBA,CBDCC 二　　form_click() interval,5000 vbp,frm　　top,left,height,width,像素 picture load locked　　font,alignment gotfocus,lostfocus 属性窗口，代码 三 2-1　　Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub　　Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub
2-2　　Private Sub Command1_Click() Picture1.Visible = True　　Picture1 = LoadPicture(&C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Water lilies.jpg&) End Sub　　Private Sub Command2_Click() Picture1.Visible = True　　Picture1 = LoadPicture(&C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Win/anquangongzuojihua/
ter.jpg&) End Sub　　Private Sub Command3_Click() Picture1.Visible = False End Sub
2-3　　Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub
2-4　　Private Sub Command1_Click() Text2 = Text1 End Sub　　Private Sub Command2_Click() Text1 = && Text2 = && End Sub　　Private Sub Text1_Change() Command1.Visible = True Command2.Visible = True End Sub
2-5　　Private Sub Command1_Click() Timer1.Interval = 500 End Sub　　Private Sub Command2_Click() Timer1.Interval = 0 End Sub　　Private Sub Timer1_Timer()　　Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width))　　Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub 实验三 一/xindetihui/
　　A(BC)(BC)AA,A(BCD)DBB,B 二　　3，4，5，6，8，10，11，12，14，15，16 三　　abs(x+y) (3+x*y)^2　　(-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四　　int(rnd*71+20) x*y&0　　x mod 3=0 or xmod 7=0 x&=10 and x&20 x&=&A& and x&=&Z& left(s,3) 或者,mid(s,1,3) 五 3-2　　Private Sub Command1_Click() Dim x As Single x = Val(Text1)　　Print Format(x ^ 2, &##.000&), Format(Sqr(x), &##.000&), Format(x ^ 3, &##.000&), Format(x ^ (1 / 3), &##.000&) End Sub
3-3　　Private Sub Command1_Click() Dim x As Integer　　x = Int(Rnd * 900 + 100) Text1 = Trim(Str(x))　　Text2 = Right(Text1, 1) + Mid(Text1, 2, 1) + Left(Text1, 1) End Sub
3-4　　Private Sub Command1_Click() Dim max, min As Integer min = Val(Text1) max = Val(Text2) Randomize　　Print Int(Rnd * (max - min + 1) + min), Int(Rnd * (max - min + 1) + min), Int(Rnd * (max - min + 1) + min) End Sub
3-5　　Private Sub Command1_Click() Text1 = Date Text2 = Time　　Text3 = WeekdayName(Weekday(Date))　　End Sub 实验四 一　　CDCDA,DBBAC 二　　(1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3　　print m & &月是第二季度& end select 三　　(1) x=4
y=13 (2) 10 四 4-1　　Private Sub Command1_Click() Dim num, a1, a2, a3 As Single num = Val(Text1) * 180 / 3.14 a1 = Int(num) num = num - a1 a2 = Int(num * 60) num = num * 60 - a2　　a3 = Format(num * 60, &##.000&) Print a1, a2, a3 End Sub
4-2　　Private Sub Command1_Click() Dim y As Integer y = Val(Text1)　　If (y Mod 400 = 0 Or y Mod 4 = 0 And y Mod 100 && 0) Then　　MsgBox y & &是闰年& Else　　MsgBox y & &不是闰年& End If End Sub
Private Sub Command1_Click() Dim x, y, z, t As Integer　　x = Val(InputBox(&input x:&)) y = Val(InputBox(&input y:&)) z = Val(InputBox(&input z:&)) If x & y Then t = x: x = y: y = t If y & z Then　　t = y: y = z: z = t　　If x & y Then t = x: x = y: y = t End I/cehuashu/
f　　Print x, y, z End Sub
4-4　　Private Sub Command1_Click()　　Dim nettime As Integer, money As Single nettime = Val(InputBox(&每月上网时数：&, &上网费用&))　　If nettime = -1 Then
money = 0　　ElseIf nettime & 10 Then
money = 25　　ElseIf nettime & 50 Then
money = nettime * 2 ElseIf nettime & 100 Then
money = nettime * 1.5 ElseIf nettime & 200 Then
money = nettime Else　　money = 200 End If　　If money && 0 Then MsgBox &该月上网费用为& & money & &元& 实验五 一　　BCBAC 二　　（1）for x=1 to 10 s*(1-1/x) (2) 0　　t&1E-6 (3) j　　t (4) 5　　11
5 三 5-1　　Private Sub Command1_Click() Dim i, sum As Integer sum = 0　　For i = 1 To 100 sum = sum + i Next i　　Print &1+2+...+100=&; sum End Sub
5-2　　Private Sub Command1_Click() Dim x, y As Integer For x = 0 To 20
For y = 0 To 33　　If 5 * x + 3 * y + (100 - x - y) / 3 = 100 Then　　Print x, y, 100 - x - y
Next x End Sub
5-3　　Private Sub Command1_Click() Dim i As Integer i = 7 Do　　If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then
Exit Do Else　　i = i + 7 End If Loop End Sub
5-4　　Private Sub Command1_Click() Dim x, y, z As Integer For x = 1 To 9
For y = 1 To 9
For z =/jingxuanyanjianggao/
0 To 9　　If 100 * x + 10 * x + z + 100 * y + 10 * z + z = 532 Then　　Print x, y, z
Next y Next x End Sub
5-5　　Private Sub Command1_Click() Dim sum As Single, n As Integer sum = 1　　Do While sum &= 4
sum = sum * 1.1
n = n + 1 Loop　　Print &经过&; &年销售收入翻两番& End Sub
5-6　　Private Sub Command1_Click() Dim sum, i, n As Integer sum = 0　　n = Val(InputBox(&请输入n的值：&)) For i = 1 To n　　sum = sum + i * (-1) ^ (i + 1) Next i　　Print &1-2+3-4+...=&; sum End Sub
5-7　　Private Sub Command1_Click()　　Dim sum, isum, i, n As Integer sum = 0 isum = 0　　n = Val(InputBox(&请输入n的值：&)) For i = 1 To n　　isum = isum + i
sum = sum + isum Next i　　Print &1+(1+2)+(1+2+3)+...=&; sum End Sub
5-8　　Private Sub Command1_Click() Dim pi, ti As Single Dim i As Integer pi = 0 ti = 1 i = 1　　Do While Abs(ti)/jingxuanyanjianggao/
ti = (-1) ^ (i + 1) / (2 * i - 1)
pi = pi + ti
i = i + 1 Loop End Sub
5-9　　Private Sub Command1_Click() Dim i, j, k As Integer Print &水仙花数有：& For i = 1 To 9
For j = 0 To 9　　For k = 0 To 9　　If i * 100 + j * 10 + k = i ^ 3 + j ^ 3 + k ^ 3 Then　　Print i, j, k
Next j Next i End Sub
5-10　　Private Sub Command1_Click() Dim i, j, k As Integer k = 0　　For i = 999 To 100 Step -1
For j = 2 To Int(Sqr(i))　　If i Mod j = 0 Then Exit For
Next j　　If j = Int(Sqr(i)) + 1 Then k = k + 1: Print i　　If k = 3 Then Exit For Next i　　End Sub
5-11　　Private Sub Command1_Click() Dim i, n, min, max As Integer Dim aver As Single min = 100 max = 50　　For i = 1 To 20　　n = Int(Rnd * (99 - 51) + 51)
P　　If i Mod 5 = 0 Then Print
If n & max Then max = n
If n & min Then min = n
aver = aver + n Next i　　Print &max=&; max Print &min=&; min　　Print &average=&; aver / 20 End Sub
5-12　　Private Sub Command12_Click() Dim i, j As Integer For i = 1 To 5　　For j = 1 To (2 * i - 1)　　Print Tab(20 - i + j); &*&;　　Next j Next i　　End Sub 实验六 一　　BCCCD DDDCA 二、 6-1　　Option Base 1　　Private Sub Command1_Click() Dim ia(10) As Integer　　Dim Max, min, aver As Integer, iMax, imin As Integer　　For i = 1 To 10　　ia(i) = Int(Rnd * 51 + 50)
Print ia(i); Next i Print　　Max = ia(1): iMax = 1 min = ia(1): imin = 1 aver = ia(1) For i = 2 To 10　　aver = aver + ia(i)　　If ia(i) & Max Then Max = ia(i): iMax = i　　If ia(i) & min Then min = ia(i): imin = i Next i　　Print &max=&; Max, &imax=&; iMax Print &min=&; min, &imin=&; imin Print &aver=&; aver / 10 End Sub
6-2　　Private Sub Command1_Click() Dim ia(20), num(5) As Integer　　Dim Max, min, aver As Integer, iMax, imin As Integer　　For i = 1 To 20　　ia(i) = Int(Rnd * 101)
Print ia(i);　　Select Case ia(i)
Case Is & 60　　num(1) = num(1) + 1
Case 60 To 69
num(2) = num(2) + 1
Case 70 To 79　　num(3) = num(3) + 1
Case 80 To 89　　num(4) = num(4) + 1
Case 90 To 100　　num(5) = num(5) + 1
End Select Next i Print　　Print &各分数段的人数分别是(0~59,60~69,70~79,80~89,90~100)：& For i = 1 To 5
Print num(i); Next i End Sub
6-3　　Private Sub Command1_Click() Dim a(10) As Integer, t% For i = 1 To 10　　a(i) = Int(Rnd * 51)
Print a(/zhenggaifangan/
i); Next i Print　　For i = 1 To 9　　For j = i + 1 To 10　　If a(i) & a(j) Then t = a(i): a(i) = a(j): a(j) = t　　Next j Next i　　Print &排序后：& For i = 1 To 10
Print a(i); Next i　　End Sub
6-4　　Private Sub Command1_Click() Dim a(20) As Integer, t% For i = 1 To 20　　a(i) = Int(Rnd * 51)
Print a(i);　　If (i + 1) Mod 5 = 0 Then Print Next i End Sub
6-5　　Private Sub Command1_Click() Dim a(9), b(3, 3) As Integer, s%, t% For i = 1 To 9　　a(i) = Int(Rnd * 101)
Print a(i);　　If i Mod 3 = 0 Then
t = 3: s = i / 3
Else　　t = i Mod 3: s = i \ 3 + 1
b(s, t) = a(i) Next i Print　　For i = 1 To 3
For j = 1 To 3
Print b(i, j);
Print Next i End Sub
6-6　　Private Sub Command1_Click() Dim a() As Integer n = InputBox(&n=?&) ReDim a(n, n) For i = 1 To n
For j = 1 To n　　a(i, j) = Int(Rnd * 10)
Print a(i, j);
Print Next i　　End Sub
6-7　　Private Sub Command1_Click() Dim a() As Integer n = InputBox(&n=?&) ReDim a(n, n) For i = 1 To n
a(i, i) = 1 Next i　　For i = 1 To n
For j = 1 To n
Print a(i, j);
Print Next i End Sub
6-8　　Private Sub Command/xuexijihua/
1_Click() Dim ia() As Integer　　Dim Max As Integer, iMax, jmax As Integer m = InputBox(&m=?&) n = InputBox(&n=?&) ReDim ia(m, n)　　Max = 0: iMax = 0: jmax = 0 For i = 1 To m
For j = 1 To n　　ia(i, j) = Int(Rnd * 101)
Print ia(i, j);　　If ia(i, j) & Max Then Max = ia(i, j): iMax = i: jmax = j
Print Next i　　Print &max=&; Max, &imax=&; iMax, &jmax=&; jmax End Sub 实验七 一　　CCDAB DDAAA 二　　（1）n！　　（2）1到n累加和 （3）n是否是素数 （4）冒泡排序　　（5）递归调用实现斐波那契数列 （6）求最大公约数和最小公倍数 三 7-1　　Private Sub Command1_Click() Dim n, sum As /cehuashu/
Integer n = Val(InputBox(&n=?&)) sum = jsh(n)　　Print &1!+2!+...+&; &!=&; sum End Sub　　Public Function jsh(n) As Integer Dim i, s, t As Integer s = 0 t = 1　　For i = 1 To n
s = s + t Next i jsh = s　　End Function
7-2　　Private Sub Command1_Click() Dim n, flag As Integer n = Val(InputBox(&n=?&)) flag = 1 sushu n, flag Print &n=&; flag End Sub　　Public Sub sushu(n, flag) Dim i As Integer For i = 2 To n - 1　　If n Mod i = 0 Then flag = 0: Exit For Next i End Sub
7-3　　Private Sub Command1_Click() Dim flag As Integer, str As String str = InputBox(&n=?&) flag = huiwen(str)　　If flag = 1 Then P &是回文数& Else P &不是回文数& End Sub　　Public Function huiwen(str) As Integer Dim lens, m, i As Integer lens = Len(str)　　For i = 1 To Int(lens / 2)　　If Mid(str, i, 1) && Mid(str, lens - i + 1, 1) Then Exit For Next i　　If i = Int(lens / 2) + 1 Then huiwen = 1 Else huiwen = 0 End Function
7-4　　Private Sub Command1_Click()　　Dim n, m, c1, c21, c22, c23 As Integer n = Val(InputBox(&n=?&)) m = Val(InputBox(&m=?&))　　c1 = jc1(n) / (jc1(m) * jc1(n - m)) Print &函数计算c1=&; c1 jc2 n, c21 jc2 m, c22 jc2 n - m, c23　　Print &子过程计算c2=&; c21 / (c22 * c23) End Sub　　Public Sub jc2(n, c) Dim i As Integer c = 1　　For i = 1 To n
c = c * i Next i End Sub　　Public Function jc1(n) Dim i As Integer s = 1　　For i = 1 To n
s = s * i Next i jc1 = s　　End Function
7-5　　Private Sub Command1_Click() Dim str1 As String　　str1 = InputBox(&请输入一个实数：&) MsgBox sum(str1) End Sub　　Public Function sum(str As String) Dim lens, i, n As Integer Dim c As String * 1 lens = Len(str) n = 0　　For i = 1 To lens
c = Mid(str, i, 1)　　If c &= &9& And c &= &0& Then
n = n + Val(c)
End If Next i sum = n　　End Function
7-6　　Private Sub Command1_Click() Dim str1 As String　　str1 = InputBox(&请输入一个字符串：&) Print str1; &中有数字字符&; num(str1); &个。& End Sub　　Public Function num(str As String) Dim lens, i, n As Integer Dim c As String * 1 lens = Len(str) n = 0 For i = 1 To lens
c = Mid(str, i, 1)　　If c &= &9& And c &= &0& Then
End If Next i num = n　　End Function
7-7　　Private Sub Command1_Click()　　'可参考本实验填空第六题或采用本方法，注意两法的形参是传地址还是传值的区别 Dim m, n, y, b As Integer　　m = Val(InputBox(&please input a integer(m):&))　　n = Val(InputBox(&please input a i/xueshenghuigongzuojihua/
nteger(n):&)) P &和&; gysgbs m, n, p　　Print &的最大公约数为&; n Print &最小公倍数为&; p End Sub　　Public Sub gysgbs(a, b, c) Dim r As Integer c = a * b r = a Mod b Do While r && 0
b = r　　r = a Mod b Loop c = c / b End Sub　　《Visual Basic程序设计》课程考试大纲　　 　　（本学期19周，1-16周上课，周4学时，课程总学时64，其中：理论32+上机32）　　【基本要求】　　熟悉Visual Basic集成开发环境；了解Visual Basic中对象的概念和事件驱动程序的基本特性；掌握Visual Basic的基本语句；了解简单的数据结构和算法；掌握Visual Basic常用控件及其控件的三个要素；掌握模块化程序设计的过程设计（包括函数过程、子过程）方法；能针对简单的实际问题构造算法，并能正确地实现算法与程序之间的转换，具有使用Visual /diaochabaogao/
Basic编制和上机调试简单程序的能力；培养利用计算机解决问题的意识、思路和能力，为今后进行计算机应用奠定基础。　　 　　【考试范围】　　1. Visual Basic程序设计概述　　? 发展、特点、版本、安装、启动、退出　　? Visual Basic 6.0集成开发环境（7个主要窗口）　　2. Visual Basic程序设计的相关概念　　? 对象和类的概念　　? 对象的建立和编辑　　? 对象的属性、事件和方法　　? 事件驱动的实质　　? 窗体和控件的基本属性　　? 窗体、标签、文本框、命令按钮、时钟（主要属性、事件、方法）　　? 常用方法（Print 和 Cls）　　? 工程的管理　　? 环境的设置（利用“工具”菜单下的“选项”命令提供的选项卡完成）　　? 帮助系统的使用　　? 程序调试　　3. Visual Basic语言基础　　? 基本数据类型（Integer、Single、String、Date、Variant等）　　? 常量和变量　　? 局部变量和全局变量　　? 缺省声明　　? 编码规则　　? 运算符　　? 算术运算符　　? 字符串运算符　　? 关系运算符（=、&、&=、&、&=、&&）　　? 逻辑运算符（Not、And、Or）　　? 表达式　　? 常用内部函数　　? 数学函数　　? 转换函数（Str、Val、Int、Round、Ucase、Lcase等）　　? 字符串函数（Len、Mid、Trim、String、Space等）　　? 日期/jingxuanyanjianggao/
函数（DateAdd、DateDiff、Date、Time、Now、Month、MonthName、　　WeekDay、WeekDayName等）　　4. 基本控制结构　　? 赋值语句　　? Inputbox函数　　? Msgbox过程　　? If语句　　? Select Case语句　　? For-Next　　? Do-Loop　　? 结构嵌套（循环、选择）　　? 辅助控制语句（Exit for、Exit do、End if、End Sub、End Function）　　5. 数组　　? 数组的基本概念　　? 静态数组及其声明　　? 动态数组及其声明　　? 一维数组基本操作　　? 给数组元素赋初值、数组元素的输入、数组元素的赋值、数组元素的输出、求　　数组中最大（小）元素及其下标、求元素之和、交换数组元素、数组中元素的插入和删除等　　? 二维数组基本操作　　? 给数组元素赋初值、数组元素的输入、数组元素的赋值、数组元素的输出、求　　数组中最大（小）元素及其下标、求元素之和（积）等　　6. 过程　　? 函数过程的定义和调用　　? 子过程的建立和调用　　? 参数传递　　? 作用域　　7. 文件　　? 文件的基本概念　　? 文件的定义及其分类　　8. 常用算法　　? 累加、连乘、穷举、递推、最大公约数、最大值、最小值、平均值、排序（选择、　　冒泡）、顺序查找、分类统计、简单的字符处理应用等。　　 　　【考试方式】　　上机考试（网上考试系统），考试时间100分钟，满分100分。　　 　　【考型】　　一、单项选择题（40道小题，每小题1分，共40分）　　二、填空题（5道小题，每小题2个空，1个空2分，共20 分）　　三、综合应用题（3道小题，共40分）　　 　　 　　郑州大学信息工程学院　　2/hexieshehuiyanjianggao/
008-05-6　　
本&&篇:《》来源于:
优秀范文，论文网站
本篇网址:/show/259652.html
好文大家读
上一篇文章：
下一篇文章：
Copyright &
All Rights Reserved.《》2292人阅读
应用程序管理（7）
最近在入门学习.NET编程，慢慢的学习了一些门道，同时也需要将学习的点点滴滴记录下来，今天我就自己想了想，把水仙花数的代码写出来，运行也通过了，就贴在这里，分享给大家，也给自己做一个记录。using Susing System.Collections.Gusing System.Lusing System.Tusing System.Threading.Tnamespace ConsoleApplication10{&&& class Program&&& {&&&&&&& static void Main(string[] args)&&&&&&& {&&&&&&&&&& for(int i=100;i&1000;i++) //100-1000以内循环。&&&&&&&&&& {&&&&&&&&&&&&&& int hundred = i / 100; //求出百位数&&&&&&&&&&&&&& int ten = (i - hundred * 100) / 10; //求出10位数&&&&&&&&&&&&&& int gewei = i-hundred*100-ten*10; //求出个位数&&&&&&&&&&&&&& int shuixianhua=hundred*hundred*hundred+ten*ten*ten+gewei*gewei* //定义各个位数的加法。&&&&&&&&&&&&&& if (shuixianhua ==i) //如果水仙花数与我们的循环数相当&&&&&&&&&&&&&& {&&&&&&&&&&&&&&&&&& Console.WriteLine(&水仙花数{0}&, i); //那么这个数就是水仙花数，将这个水仙花数打印出来&&&&&&&&&&&&&& }&&&&&&&&&& }&&&&&&&&&& Console.ReadKey(); //等待输入任何字符&&&&&&& }&&& }我们运行了结果：
&&相关文章推荐
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1328731次
积分：16619
积分：16619
排名：第543名
原创：386篇
评论：106条
阅读：4906
阅读：5111
阅读：9519
文章：10篇
阅读：17552
文章：12篇
阅读：65955
阅读：38361
阅读：23457
文章：15篇
阅读：99664
(6)(1)(1)(1)(1)(14)(14)(11)(14)(30)(3)(3)(2)(1)(17)(9)(1)(1)(2)(6)(3)(3)(2)(50)(9)(5)(4)(2)(9)(5)(6)(2)(9)(1)(3)(5)(4)(8)(2)(1)(5)(28)(2)(2)(12)(1)(1)(1)(3)(18)(3)(7)(1)(1)(2)(4)(1)(17)(5)