青岛科技大学VB实验题一

青岛科技大学VB实验题一
青岛科技大学VB实验题一

实验八综合实验(4个学时)

一、实验目的

1.掌握常用控件的使用。

2.掌握下拉菜单的设计方法。

3.掌握创建多重窗体程序的有关技术。

4.了解常用事件及过程。

5.综合运用所学的知识,编写具有可视化界面的应用程序。

二、实验内容

利用菜单、对话框、选择结构语句、循环结构语句、多窗体、常用控件、过程等知识点进行综合程序设计。具体要求:

1.在主窗体上,设计下拉式菜单:

数值计算实验加载退出

n! 成绩统计问题(5-1)

1+3+…+99 输出星花矩阵(6-1)

滚动字幕(7-4)

2.分别单击菜单项n!( 要求从键盘键入n的值),1+3+5+….99时,要求在主窗体中设置Label1显示题目,Label2显示结果。

1)Form1中的代码设计如下:

Option Explicit

Private Sub Form_Load()

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

End Sub

Private Sub mnu1_Click()

Dim a As Integer, i As Integer

a = 0

For i = 1 To 99 Step 2

a = a + i

Next i

Label3.Caption = "1+3+…+99=" & a

End Sub

Private Sub mnucheng_Click()

Form11.Show

End Sub

Private Sub mnuexit_Click()

End

End Sub

Private Sub mnugun_Click()

Form13.Show

End Sub

Private Sub mnun_Click()

Dim n As Integer, i As Integer, s As Double

n = Val(InputBox("请输入n的值"))

s = 1

For i = 1 To n

s = s * i

Next i

Label1.Caption = n & "!="

Label2.Caption = s

End Sub

Private Sub mnuxing_Click()

Form12.Show

End Sub

2)将从键盘上输入n = 9时的运行界面剪切下来粘贴在下面。,

3.单击菜单项“实验加载”,将已做过的实验指导书上的实验分别加载到该综合实验中,练习已存在窗体的加载。

1)写出各菜单项的代码。

成绩统计问题(5-1)

Option Explicit

Option Base 1

Private Sub Form_Click()

Dim s(10) As Integer, i As Integer, sum As Integer, m As Integer

sum = 0

For i = 1 To 10

s(i) = Val(InputBox("请输入第" & i & "个学生的成绩"))

Print s(i);

If i Mod 5 = 0 Then Print

sum = sum + s(i)

Next i

m = sum / 10

Print "该十名学生的平均分为" & m

Print "高于平均分的成绩为"

For i = 1 To 10

If s(i) > m Then Print s(i);

Next i

End Sub

输出星花矩阵(6-1)

Option Explicit

Dim n As Integer, i As Integer, j As Integer

Private Sub Command1_Click()

n = Val(InputBox("请输入n的值"))

Call mysub

End Sub

Public Sub mysub()

If n Mod 2 = 0 Then

For i = 1 To n / 2

Print Tab(13 - i);

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

For i = n / 2 To 1 Step -1

Print Tab(13 - i);

For j = 2 * i - 1 To 1 Step -1

Print "*";

Next j

Print

Next i

Else

For i = 1 To (n + 1) / 2

Print Tab(13 - i);

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

For i = (n - 1) / 2 To 1 Step -1

Print Tab(13 - i);

For j = 2 * i - 1 To 1 Step -1

Print "*";

Next j

Print

Next i

End If

End Sub

滚动字幕(7-4)

Option Explicit

Private Sub Command1_Click()

Timer1.Enabled = True

Timer2.Enabled = False

End Sub

Private Sub Command2_Click()

Timer2.Enabled = True

Timer1.Enabled = False

End Sub

Private Sub Command3_Click() Timer1.Enabled = False

Timer2.Enabled = False

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Timer2.Enabled = False

Form4.Picture = LoadPicture("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg") End Sub

Private Sub Timer1_Timer()

If Label1.Left > -Label1.Width Then

Label1.Move Label1.Left - 100

Else

Label1.Left = Form1.Width

End If

End Sub

Private Sub Timer2_Timer()

If Label1.Left < Form1.Width Then

Label1.Move Label1.Left + 100

Else

Label1.Left = -Label1.Width

End If

End Sub

2)粘贴运行结果。

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件,即 C ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的 D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时,在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去,其实现的方法是 D 。 12、以下选项中,不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后,Visual Basic将显示的窗口是 A 。 A.代码窗口 B.工具箱 C.项目(工程)窗口 D.属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句: Strl=InputBox("输人","","练习") 从键盘上输人字符“示例”后,Strl的值是 D 。 A.“输入” B.“” C.“练习” D.“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间,需设置的属性是 C 。 A.Enabled B.Value C.Interval D.Text 19、能够改变复选框中背景颜色的属性是 C 。

脚本编程技术-实验报告模板

青岛科技大学实验报告 姓名:陈嘉诚专业:惠普测试班级:151 学号:1508090125 课程:脚本编程技术时间:2017/9/14 实验项目:一、编写、保存、运行JSP页面 一、实验目的 本实验的目的是让学生掌握怎样设置Web服务目录,怎样修改Tomcat服务器的端口号,怎样访问Web服务目录下的JSP页面。 二、实验要求 (1)安装Tomcat服务器 (2)设置Web服务目录 在硬盘分区C下新建一个web服务目录,名为student。 将student设置为web服务目录,并未该web服务目录指定为friend的虚拟目录。(3)修改端口号 在server.xml文件中找到修改端口号部分,将端口号修改为9999。 (4)启动Tomcat服务器 (5)编写jsp页面 (6)访问jsp页面 三、实验内容 代码如下: <%@ page contentType="text/html;charset=GB2312" %> 如果一个正整数刚好等于它的真因子之和,这样的正整数位完数,
例如,6=1+2+3,因此6就是一个完数。
1到1000内的完数有: <% int i,j,sum; for(i=1,sum=0;i<=1000;i++){ for(j=1;j

if(sum==i) out.print(" "+i); } %> 四、实验总结 掌握了如何设置web服务目录,怎样修改Tomcat服务器的端口号,怎样访问jsp页面。

九江学院VB期末考试题目及详细答案

九江学院期末考试复习题(政法A1111)第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。(J 2、Print_Text 是一个不合法的变量名。(为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。(翌 4、设置字体大小应使用Font属性(为 5、Sub过程可以实现嵌套调用(寸 6、IIF函数中的三个参数都不能省略。(寸 7、块结构条件语句以End If结束,而单行结构条件语句没有End旧(明 8、当终值小于初值时,步长为负数。(5 9、执行While-Wend循环时,如果一开始条件就不成立,则语句块一次也不会执行。(寸 10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(/) 二、单项选择题 1. Print Format (123, ” ###说执行之后的结果为 A)# 123B) 123C) 123# D) # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A)R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件

【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是: A)如果过程被定义为Static类型,则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块,可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句,运行时将出现错误

Python白盒测试实验报告

青岛科技大学实验报告 课程:软件测试基础实验项目:白盒测试 专业:计算机科学与技术班级:惠普测试142 姓名:闫伟明日期:2016-11-25 实验要求: (1)根据下述C代码及对应流程图,将其转换成Python代码; void DoWork (int x,int y,int z) { int k=0,j=0; if ( (x>3)&&(z<10) ) { k=x*y-1; j=sqrt(k); } //语句块1 if ( (x==4)||(y>5) ) { j=x*y+10; } //语句块2 j=j%3; //语句块3 } 流程图:

Python代码: #py001.py import math def DoWork(x,y,z): k=0 j=0 if x>3 and z<10: k=x*y-1 j=math.sqrt(k) if x==4 or y>5: j=x*y+10 j=j%3 return k,j (2)根据Python代码设计白盒测试用例,包括: 语句覆盖; 测试用例输入为:{ x=5、y=6、z=7 } 程序执行的路径是:abd 判定覆盖; 测试用例的输入为:{x=5、y=6、z=7};{x=1、y=2、z=3} 程序执行的路径分别是:abd;ace 条件覆盖;

判定/ 条件覆盖; 组合覆盖 对DoWork函数中的各个判定的条件取值组合加以标记: 根据组合覆盖的思想,设计测试用例如下:

(3)根据设计的测试用例,使用unittest 完成测试实验。 (注:每一个测试方法用一个py文件,共5个py文件) 1.test001.py # -*- encoding:utf8 -*- import unittest from py001 import DoWork class Test001(unittest.TestCase): """ 语句覆盖: 测试用例的输入为:{x=5、y=6、z=7} """ def test_yjfg(self): self.assertEquals(DoWork(5,6,7),(29,1)) 2.test002.py # -*- encoding:utf8 -*- import unittest from py001 import DoWork class Test002(unittest.TestCase): """ 判定覆盖: 测试用例的输入为:{x=5、y=6、z=7};{x=1、y=2、z=3} """ def test_pdfg1(self):

初三_vb期末考试试卷+答案

九年级期末VB 考试试卷 班级:学号:姓名: 123456789101112131415 一、选择题(每题两分,共十五题) 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键,然后按 Alt+X键 4.假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的,应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度,正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度

左右来回循环的流水灯实验报告

青 岛 科 技 大 学 微机原理与接口技术综合课程设计(报告) 题 目 __________________________________ 指导教师__________________________ 学生姓名__________________________ 学生学号__________________________ _______________________________ 院(部)____________________________ 专业________________班 ______年 ___月 ___日 直流电机控制综合实验 周艳平 宋雪英 01 信息科学技术学院 计算机科学与技术0961 2012 12 27

摘要 (2) 1、单片机概述 (2) 2、仿真软件介绍 (2) 3、需求分析 (3) 一、课程设计目的 (3) 二、课程设计要求 (4) 三、实验内容 (4) 1、设计任务与要求 (4) 2、系统分析 (4) 1).硬件电路设计(画出原理图、接线图) (5) 2)软件框图 (7) 3、用keil建项目流程 (8) 4、程序清单 (9) 4、系统调试 (11) 四、设计总结(结论) (12)

摘要 近年来,随着电子技术和微型计算机的发展,单片机的档次不断提高,起应用领域也在不断的扩大,已在工业控制、尖端科学、智能仪器仪表、日用家电、汽车电子系统、办公自动化设备、个人信息终端及通信产品中得到广泛的应用、成为现代电子系统中最重要的智能化的核心部件。而AT89C51就是其中一种,它是一种带4K字节闪烁可编程可擦除只读存储器的低电压,高性能CMO8位微处理器,为很多嵌入式控制系统提供了一种灵活性高且价廉的方案。本课程设计介绍一种LED小灯控制系统的设计方法,以单片机作为主控核心,与按键、排阻、电阻、电容等较少的辅助硬件电路相结合,利用软件实现对LED灯进行控制。能够通过按键控制8个LED小灯从左到右依次点亮。 关键字:单片机、LED流水灯 1、单片机概述 单片机微型计算机是微型计算机的一个重要分支,也是颇具生命力的机种。单片机微 型计算机简称单片机,特别适用于控制领域,故又称为微控制器。 通常,单片机由单块集成电路芯片构成,内部包含有计算机的基本功能部件:中央处 理器、存储器和I/O 接口电路等。因此,单片机只需要和适当的软件及外部设备相结合, 便可成为一个单片机控制系统。 单片机经过1、2、3、3 代的发展,目前单片机正朝着高性能和多品种方向发展,它 们的CPU 功能在增强,内部资源在增多,引角的多功能化,以及低电压底功耗。 2、仿真软件介绍 (1).Keil uv3 运行Keil uv3

大一VB期末考试试卷及答案

大一VB期末考试试卷及答案 1.在代码中引用一个控件时,应使用控件的( b )属性。 A.Caption B.Name C.Text D.Index 2.设变量x = 4,y = -1,a = 7,b = -8,下面表达式( a )的值为“假”。 A.x+a <= b-y B. x > 0 AND y < 0 C.a = b OR x>y D. x+y > a+b AND NOT (y < b) 3.表达式Int(Rnd*71)+10产生的随机整数范围是( c )。 A.(10,80) B.(10,81) C.[10,80] D.[10,81] 4.函数Sgn(3.1416)的返回值是( c )。 A.-1 B.0 C.1 D.以上都不对 5.67890属于( d )类型数据。 A.整型 B.单精度浮点数 C.货币型 D.长整型 6.下列变量名中正确的是( d )。 A.3S B.Print C.Select My Name D.Select_1 7.下列赋值语句( a )是有效的。 A.sum = sum -sum B.x+2 = x + 2 C.x + y = sum D.last = y / 0 8.以下的控件或方法具有输入和输出双重功能的为( b )。 A.Print B.Textbox C.Optionbutton D.Checkbox 9.若要获得列表框中被选中的列表项的内容,可以通过访问( d )属性来实现。 A.Name B.ListIndex C.ListCount D.Text 10.下列代码的运行结果为( b )。 Private Sub command1_click() Dim m(10)

vbvb期末考试实验答案作业

请参考10_2.exe程序的运行结果,新建一个工程,完成"调色板"程序的设计,该程序由红绿兰三原色进行调色,如果预览满意,单击"应用"按钮,将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下: 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条,都会在相应的文本框中显示该颜色成分的当前取值,并且动态改变预览框中长方形的颜色。[注意:滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据,相应的滚动条的滑块都会移到正确的位置上,并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题:拖动滚动条时有没有触发滚动条的Change事件? 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1(工具箱中的),将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0,Max设为255;三个文本框的Text属性设为空字串。

3. 要求操作任意一个滚动条,都会在相应的文本框中显示该颜色成分的当前取值,并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b)函数来表示,其中r,g,b是红、绿、兰颜色的饱和度,分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据,相应的滚动条的滑块都会移到正确的位置上,并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件: Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果,新建一个工程,完成"过程练习"程序的设计,并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下: 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题":编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!);其中m>=n;m和n从键盘输入。 3. "第二题":编写一个求1+2+……+n的函数Sum(n),利用该函数计算1+(1+2)+(1+2+3)+……+(1+2+……+100)的和。 4. "第三题":编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0,50]之间的整数,然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题":编写一个每行可以打印5个下标变量的打印数组的通用过程,。随机产生一个∈[100,500]、有20个下标变量的数组,调用该通用过程打印出原始数据;再将该数组中的偶数组成一个新的数组,再调用该通用过程打印出偶数数组。 思考题:通用过程与函数过程的区别? 提示:

大一的vb期末考试题和答案

大一的vb期末考试题和答案 1.在代码中引用一个控件时,应使用控件的()属性。 A.Caption B.Name C.Text D.Index 2.设变量x = 4,y = -1,a = 7,b = -8,下面表达式()的值为“假”。 A.x+a <=b-y B.x>0 AND y<0 C.a = b OR x>y D. x+y > a+b AND NOT (y < b) 3.表达式Int(Rnd*71)+10产生的随机整数范围是()。 A.(10,80) B.(10,81) C.[10,80] D.[10,81] 4.函数Sgn(3.1416)的返回值是()。 A.-1 B.0 C.1 D.以上都不对 5.67890属于()类型数据。 A.整型 B.单精度浮点数 C.货币 型 D.长整型 6.下列变量名中正确的是()。

A.3S B.Print C.Select My Name D.Select_1 7.下列赋值语句()是有效的。 A.sum=sum-sum B.x+2=x+2 C.x+y = sum D.last = y / 0 8.以下的控件或方法具有输入和输出双重功能的为()。 A.Print B.Textbox C.Optionbutto n D.Checkbox 9.若要获得列表框中被选中的列表项的内容,可以通过访问()属性来实现。 https://www.360docs.net/doc/dc16050609.html, B.ListIndex C.ListCount D.Text 10.下列代码的运行结果为()。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5

vbvb期末考试实验答案

下载10_1.exe 请参考10_1.exe程序的运行结果,新建一个工程,完成"过程练习"程序的设计,并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下: 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题":编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!);其中m>=n;m和n从键盘输入。 3. "第二题":编写一个求1+2+……+n的函数Sum(n),利用该函数计算1+(1+2)+(1+2+3)+……+(1+2+……+100)的和。 4. "第三题":编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0,50]之间的整数,然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题":编写一个每行可以打印5个下标变量的打印数组的通用过程,。随机产生一个∈[100,500]、有20个下标变量的数组,调用该通用过程打印出原始数据;再将该数组中的偶数组成一个新的数组,再调用该通用过程打印出偶数数组。 思考题:通用过程与函数过程的区别? 提示: 1. 各题必须按要求用通用过程或函数过程进行编程。 2. “第一题”:编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!);其中m>=n;m和n从键盘输入。 阶乘自定义函数F(n)的编写参考上课讲义 计算二项式系数Cmn可以通过调用F(n)函数完成:cmn=F(m)/(F(n)*F(m-n)) 3. “第二题”:编写一个求1+2+……+n的函数Sum(n),利用该函数计算1+(1+2)+(1+2+3)+……+(1+2+……+100)的和。 自定义函数Sum(n)的编写: Function Sum(n As Integer) As Long ……'编写s=1+2+...+n的程序段 Sum=s '将计算结果赋值给函数名 End Function 计算1+(1+2)+(1+2+3)+……+(1+2+……+100)的和就转化为计算Sum(1)+Sum(2)+Sum(3)+……+Sum(100)的编程。 参考计算1!+2!+……+10!的程序 4. “第三题”:编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0,50]之间的整数,然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。

青岛科技大学-橡胶实验九--撕裂强度

实验九撕裂强度 (Determination of tear strength) 一、实验目的 1、了解撕裂试样种类,掌握撕裂试样的制备 2、熟悉测试撕裂强度的设备及其工作原理 3、掌握实验结果的分析 4、掌握影响撕裂强度的因素 二、试样种类及形状 按试样形状分类,撕裂试验的试样主要有以下几种。 1、直角型 直角型试样的形状和尺寸如图9-1所示。 图9-1 直角型试样(GB530-81)(单位:mm) 2、圆弧型 此类试样又称为新月型或腰型。国家标准试验方法中,过去称为延续型。其形状和尺寸如图9-2所示。 图9-2 圆弧型试样(GB529-81)(单位:mm) 3、裤型 试样的形状和尺寸如图9-3所示。它是一种带有割口的试样。该试样在试验机上的夹持情况如图9-4所示。

该试样的特点是其撕裂强度对割口长度不敏感。因此,试验结果的重复性好。它还便于进行撕裂能的计算,为撕裂能的理论分析提供较理想的方法。 4、德耳夫特(Delft )型 该试样的形状和尺寸如图9-5所示。 此种试样内,切有一个狭长的切口,是一种比较容易从成品上裁取的小尺寸试样。在国际标准ISO816中,采用了此种试样。 图6-5 德耳夫特型试样(ISO 816) (单位:mm) 直角型撕裂试验,由于试验不需事先割口,故测试的人为影响因素少,本试验选用此法。 三、试样的制备 国家标准GB 529和GB 530对试样的裁取和圆弧型试样割口方法均有规定。 1、试样的裁取 圆弧型和直角型试样均用裁刀裁取。裁刀刃口应保持锋利,不应出现缺口或卷刃等现象。用裁片机裁取试样时,可先用水或中性肥皂溶液润滑刀的刃口,以便于裁切。在裁切过程中,为了防止裁刀刃口与裁片机的金属底板相撞而受到损坏,在试样的下面应垫有合适的软质材料。裁取试样时,裁刀撕裂角等分线的方向应与胶料压延、压出方向一致,即试样的长度方向应与压延、压出方向垂直。这是因为,橡胶材料产生裂口后,撕裂扩展的方向常是沿着与压延、压出平行的方向进行的。 2、试样割口方法 试样在拉伸过程中,为了使应力集中于一点,以便迅速地从此产生裂口,使撕裂从该裂口扩展,可于试样的某一部位进行割口。 图9-3 裤型试样(BS 903/A3-1982) (单位:mm) 图9-4 裤型试样在试验机上的位置

VB期末考试上机题编程答案

VB期末考试上机题编程答案 1.新建一个工程,编写一个找出所有四位荣幸数显示在列表框中,并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件无法上传,后果自负! 详尽要求: 1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见; 2、单击“查找“按钮,则开始查找并在列表框中显示结果,并在文本框中显示荣幸数的个数; 3、单击“清除”按钮,则将列表框和文本框清空; 4、单击“退出”按钮,结束程序运行; 5、程序中应包含一个过程,用于判断一个数是否是荣幸数。 解:Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()

End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程,编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数,计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件无法上传,后果自负! 详尽要求: 1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见; 2、单击“求和“按钮,则在文本框中显示计算得到的因子和; 3、单击“清除”按钮,则将文本框清空,焦点设置在第一个文本框; 4、单击“退出”按钮,结束程序运行;

青岛科技大学实验报告(实验一)

班级:姓名:学号:成绩: 实验一: Qt 开发环境的搭建 (一)实验目的: ?掌握Qt 开发环境的搭建方法 ?掌握Qt Creator 的基本使用方法 ?了解Qt Creator 的界面布局 ?了解Qt 相关工具软件 (二)实验准备 ?对Qt 及Qt Creator 有基本了解 ?了解MinGW ?下载Qt 4.8.5、Qt Creator 2.8.0 和MinGW 安装包 (三)实验内容: ?安装Qt Creator ?安装MinGW ?安装Qt ?关联Qt Creator 和Qt ?运行一个示例程序 ?查看Qt 工具 (四)实验过程 1.安装Qt Creator (1)双击运行qt-creator-windows-opensource-2.8.0.exe 安装包,将出现如图1.1 所示的安装向导界面。单击“下一步”按钮。

图1.1 Qt Creator 安装向导 (2)选择安装位置界面如图1.2 所示。这里默认安装在C 盘,选中“Associate common filetypes with Qt Creator”选项会为Qt Creator 关联相应类型的文件,以后双击相应类型的文件(如Qt 项目文件)可直接在Qt Creator 中打开。这里保持默认设置,单击“下一步”按钮。 图1.2 选择安装位置 (3)在如图 1.3 所示的“许可协议”界面,选择“我接受此许可”即可。然后单击“下一步”按钮。 图1.3 许可协议界面

(4)在设置“开始菜单快捷方式”界面,可以在系统开始菜单中创建Qt Creator 的快捷方式,可以选择显示的位置和更改显示名称。如图1.4 所示。这里保持默认即可。单击“下一步”按钮。 图1.4 设置开始菜单快捷方式 (5)在“已做好安装准备”界面,单击“安装”按钮开始安装。如图1.5 所示。 图1.5 已做好安装准备界面 (6)完成安装。在完成安装界面,单击“完成”按钮结束安装。因为默认勾选了“Launch Qt Creator”,所以完成安装后会自动运行Qt Creator。如图1.6 所示。

VB期末考试题库及答案

试卷方案:201105 Visual Basic 期末考试方案 一、单项选择_共50题(选:20题*1’=20分) 第1题 以下有关对象属性的说法中,错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ,则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性,事件和方法构成 B. 对象的所有属性既可以在属性窗口设置,又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象,并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时,如果要求菜单项是灰色,不能被用户选择,则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句,只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题

青岛科技大学电子束实验报告

篇一:青岛科技大学c语言上机实验报告 实验一上机操作初步(2学时) 一、实验方式:一人一机 二、实验目的: 1、熟悉vc++语言的上机环境及上机操作过程。 2、了解如何编辑、编译、连接和运行一个c程序。 3、初步了解c程序的特点。 三、实验内容:说明:前三题为必做题目,后两题为选做题目。 1、输出入下信息:(实验指导书p3) ************************* very good ************************* 2、计算两个整数的和与积。(实验指导书p4) 3、从键盘输入一个角度的弧度值x,计算该角度的余弦值,将计算结果输出到屏幕。(书p4) 4、在屏幕上显示一个文字菜单模样的图案: ================================= 1 输入数据 2 修改数据 3 查询数据 4 打印数据 ================================= 5、从键盘上输入两个整数,交换这两个整数。 四、实验答案:(代码+运行结果截屏) 第一题: #include<stdio.h> main() { printf(***************************\n); printf( very good\n); printf(***************************\n);} 第二题: #include<stdio.h> #include<math.h> main() { int a,b,c,d; printf(请输入两个数a,b\n); scanf(%d %d,&a,&b); c=a+b; d=a*b; printf(下面为两数之和\n); printf(%d\n,c); printf(下面为两数之积\n); printf(%d\n,d);} 第三题: #include<stdio.h>

vb期末考试练习卷5及答案知识讲解

练习卷五 一、语言基础题(40分) 判断题(本题10分,每小题1分) 1. 可以在窗体的通用部分声明静态变量。 2. 事件过程也可以用Sub过程调用语句进行调用。 3. 表达式#5/22/99 6:22:30 PM# - #4/22/99#的值是数值型的。 4. 表达式 -5^2 > Rnd*10 的值为False. 5. 对象的Top和Left属性值都必须大于或等于零。 6. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值。 7. 执行Hscroll1.Value=Hscroll1.Value+1赋值语句,就会产生Hscroll1滚动条的Change事件。 8. 每个Vb对象都有Name属性。 9. 组合框ComboBox和列表框ListBox都有Selected属性。 10. CommonDialog 对象的ShowSave方法能保存用户指定的文件。 单选题(本题10分,每小题1分) 1. 菜单条的顶层菜单控件__。 [A] 不允许设置快捷键[B] 允许设置快捷键 [C] 不存在ShortOut属性[D] 有子菜单时允许有快捷键 2. 当某文本框对象具有焦点时,击键盘上的一个键会触发该文本框对象的KeyPress事件,__。 [A] 该事件发生在文本框对象的KeyDown事件前。 [B] 该事件发生在文本框对象的KeyDown事件后。 [C] 随后便发生文本框对象的Lick事件。 [D] 随后便发生文本框对象的 GotFocus事件。 3. 程序运行时,单击水平滚动条右边的箭头,滚动条的Value属性值__。 [A] 增加一个SmallChange量[B] 减少一个SmallChange量 [C] 增加一个LargeChange量[D] 减少一个LargeChange量 4. 执行Form1.Scale (10,-20)-(-30,20)语句后,Form1窗体座标系X和Y轴的正方向是__。 [A] 向左和向下[B] 向右和向上 [C] 向左和向上[D] 向右和向下 5. 执行List1.List(List1.ListCount)= “80”语句后,__。 [A]会产生出错信息 [B] List1列表框最后一个表项被改为“80” [C] List1列表框会增加一个“80”表项 [D] 指定List1列表框的表项个数为80个 6. 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作,需要 在__。 [A] Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive和在Dir1的Change事件过程 中加入File1.Path=Dir1.Path代码 [B] Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path ,在Dir1的Change事件中加 入Dir1.Path = File1.Path代码 [C] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程 中加入File1.Path=File1.Filename代码 [D] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程 中加入File1.Path=Dir1.Path代码 7. 在Form1窗体启动时,为使Form1.Text1文本框首先获得焦点,可以在窗体的Form_Load事件 过程中加入__语句。 [A] Text1.Index=0 [B] Text1.TabIndex=0 [C] Text1.Appearance=0 [D] Text1.Tag=0 8. 窗体Form、框架Frame、图片框Picture、图像框Image中__是容器控件。 [A] Image、Form、Frame [B] Frame、Picture、Image

JSP实验报告3-request对象

青岛科技大学实验报告 姓名:陶浩专业:惠普测试班级:171 学号:1708090122 课程:脚本编程技术时间:2019/10/10 实验项目:试验三request对象 一、实验目的 1.掌握怎样在JSP中使用内置对象request。 2.掌握怎样在JSP中使用tag文件。 二、实验要求 编写一个JSP页面inputNumber.jsp,该页面提供一个表单,用户可以通过表单输入两个数和四则运算符号提交给该页面。用户提交表单后,JSP页面inputNumber.jsp将计算任务交给一个tag文件Computer.tag去完成。 1)inputNumber.jsp的具体要求 inputNumber.jsp页面提供一个表单,要求表单中提供两个text输入框,供用户输入数字;提供一个select下拉列表,该下拉列表有加减乘除四个选项,供用户选择运算符号,如图1 所示。用户在表单中输入数字、选择运算符号提交给inputNumber.jsp页面。inputNumber.jsp使用tag标记调用Tag 文件Computer.tag,并将表单提交的数字和运算符号传递给Computer.tag。 图1 inputNumber.jsp页面效果 2)Computer.tag的具体要求 要求Computer.tag使用attribute指令得到JSP页面传过来的值,使用variable指令将计算结果返回给JSP页面inputNumber.jsp 三、实验内容 (1)代码:

1.inputNumber文件 <%@page contentType="text/html;charset=UTF-8" %> <%@taglib tagdir="/WEB-INF/tags"prefix="computer"%>

? 输入运算数,选择运算符号:

<% String a=request.getParameter("numberOne"); String b=request.getParameter("numberTwo"); String operator=request.getParameter("operator"); if(a==null||b==null){ a=""; b=""; } if(a.length()>0&&b.length()>0){ %> 计算结果 <%= a %><%= operator %><%= b %>=<%=result %> <% } %>
2.tag文件代码 <%@tag pageEncoding="UTF-8"%> <%@attribute name="numberA"required="true"%> <%@attribute name="numberB"required="true"%> <%@attribute name="operator"required="true"%>

相关文档
最新文档