首页 范文大全 古典文学 职场知识 中国文学 公文书信 外国名著 寓言童话 百家讲坛 散文/诗歌 美文欣赏 礼仪知识 民俗风情
  • 范文大全
  • 古典文学
  • 职场知识
  • 中国文学
  • 公文书信
  • 外国名著
  • 寓言童话
  • 百家讲坛
  • 散文/诗歌
  • 美文欣赏
  • 礼仪知识
  • 民俗风情
  • 谜语大全
  • 名言警句
    • 蒲公英阅读网 > 名言警句 > 正文

    程序设计基础(vb)实验报告一

    时间：2020-08-26 11:39:30 来源：蒲公英阅读网 本文已影响人 蒲公英阅读网手机站

    相关热词搜索：程序设计 实验 基础

    　程序设计基础 （vb) 实验报告 一 一. 要求：在标题为“日期时间查询”的窗体 Form1 上，添加两个标题分别为“当前日期”和“当前时间”的标签 Label1 和 Label2；然后在添加两个文本内容为空白的文本框 Text1 和 Text2;最后添加两个标题分别为“查询”和“清空”的命令按钮 Commmand1 和 Command2. 单击“查询”按钮，在 Text1 和 Text2 中分别出现系统当前日期和时间 单击“清空”按钮，则清除查询结果 2 代码：

    　Private Sub Command1_Click() Text1.Text = Date Text2.Text = Time End Sub

    　Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub

    　二 二. 新建一个“ 标准 EXE” 工程，编程实现下列功能。

    　1. 要求：开始运行程序时，文本框 Text1 和标签 Label3 都是空白。

    　在 Text1 输入一个名字，单击按钮Command1，则 Label3 中会显示出这个名字，以及前后相应的文字。

    　2. 代码：

    　Private Sub Command1_Click() Label3.Caption = "你好！" & Text1.Text End Sub 三． 新 建“ 标准 EXE” 工程， 编写程序， 运行时用户输入半径，求圆面积。

    　1. 要求：

    　在窗口中输入圆的半径可以得到圆的面积，要求可多次运用。

    　2. 代码：

    　Private Sub Command1_Click() Const PI = 3.14159 Dim r As Single, s As Single r = Val(Text1.Text) s = PI * r ^ 2 Label2.Caption = "圆面积：" & s End Sub

    　Private Sub Command2_Click() Text1.Text = "" Label2.Caption = "" End Sub 3. 结果：

    　输入 输出 （1）

    　1 3.14159 （2）

    　1.5 7.068577 （3）

    　10.23 328.7765 （4）

    　-2 12.56636 四．要求：在标题为”算术运算“的窗体 Form1 上，添加 3 个标题分别为”操作数 1“，”操作数 2“和”操作数 3“的标签 Labell1,Labell2 和 Labell3，然后再添加 3 个文本内容为空的 Text1,Text2,Text3,最后添加 4 个分别为”加“”减“”乘“”除“的命令按钮 Command1,Command2,Command3 和Command4, 运行图：

    　代码：

    　Private Sub Command1_Click()

    　Dim a As Single

    　Dim b As Single

    　Dim c As

    　Single

    　a = Text1.Text

    　b = Text2.Text

    　c = a + b

    　Text3.Text = Str(c)

    　End Sub

    　Private Sub Command2_Click()

    　Text3.Text = Str(Val(Text1.Text) - -

    　Val(Text2.Text))

    　End Sub

    　Private Sub Command3_Click()

    　Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text))

    　End Sub

    　Private Sub Command4_Click()

    　Text3.Text = Str(Val(Text1.Text) / Val(Text2.Text))

    　End Sub 运行结果：

    　Text1 输入 Text2 输入 单击按钮 Text3 输出

    　12.5

    　39.1

    　Command1

    　( 加) 51.6

    　 197.6

    　5.46

    　Command2

    　( 减) 192.14

    　-1.5

    　2.1

    　Command3

    　( 乘) -3.15

    　20

    　8

    　Command4

    　( 除) 2.5

    　10

    　0

    　Command4

    　( 除) 除数不可为 0 五．的 文本框输入身高和体重，计算出相应的 BMI 指数。运行界面如下图。

    　BMI 指数（身体质量指数，Body Mass Index）是衡量个人体重及健康状况的标准之一。

    　运行截图：

    　 代码：

    　Private Sub Command1_Click()

    　Dim a As Single

    　Dim b As Single

    　Dim c As Single

    　a = Text1.Text

    　b = Text2.Text

    　c = b / a ^ 2

    　Label3.Caption = " 您的 I BMI 指数是 " & Str(c)

    　End Sub

    　运行结果（请自拟三组数据，尽量真实一点，胖瘦都有）：

    　运行次数 输入身高 输入体重 输出 1 1.7 76 26.29758 2 1.5 50 22.2222 3 1.6 70 27.34375 六．成 随机生成 3 个正整数，一个一位数，一个两位数，一个三位数，计算它们的平均值（保留两位小数）。说明：窗体中有四个标签(Label)、三个文本框(TextBox)和两个命令按钮(CommandButton)。

    　第一个按钮生成三个指定范围的随机整数，并显示在三个文本框中；第二个按钮计算文本框中三个数据的平均值，并显示在第四个标签中；第三个按钮清除三个文本框和结果的标签的内容。

    　提示：使用随机函数产生指定区间随机整数的方法，以及四舍五入取小数位，请参考刘必雄老师的课程第 2.5 节，找到适合的函数。

    　要求：运行程序时应多次运行，反复来回单击各个按钮，看结果是否符合题意。

    　截图：

    　代码：

    　Private Sub Command1_Click()

    　a = Int(Rnd * 51 + 50)

    　b = Int(Rnd * 51 + 50)

    　c = Int(Rnd * 51 + 50)

    　Text1.Text = Str(a)

    　Text2.Text = Str(b)

    　Text3.Text = Str(c)

    　Text4.Text = Str((a + b + c) / 3)

    　End Sub

    　Private Sub Command2_Click()

    　Text1.Text = ""

    　Text2.Text = ""

    　Text3.Text = ""

    　Text4.Text = ""

    　End Sub

    　运行结果：

    　运行次数 数 随机数 1 数 随机数 2 数 随机数 3 均值 1 85 77 79 80.33334 2 64 65 89 72.66666

    　3 86 52 71 69.66666 七． 模仿完成 刘必雄老师课程视频 [2.8 实验示例] 三角函数。

    　运行截图：

    　代码：Private Sub Command1_Click() Const pi As Single = 3.14159 Dim a As Single Dim b As Single a = Val(Text1.Text) b = Sin(a * pi / 180) Text2.Text = Str(Round(b, 3)) End Sub

    　Private Sub Command2_Click() Const pi As Single = 3.14159 Dim a As Single Dim c As Single a = Val(Text1.Text) c = Cos(a * pi / 180) Text3.Text = Str(Round(c, 3)) End Sub

    　运行测试：

    　输入角度 输出 Sin 输出 Cos 0 0 1 30 0.5 0.866

    　45 0.707 0.707 45.6 0.714 0.7 60 0.866 0.55 90 1 0 120 0.866 -0.5 180 0 -1 210 -0.5 -0.866 八． 编程实现摄氏温度 （℃）

    　与华氏温度（ °

  • 【描写秋天景色古诗句】 描写夏天景色的古
  • 春节假期安全卫生保证书 端午节卫生安全保
  • 出租车意见范文|法律意见书范文
  • 苏教版六年级下册语文 [苏教版六年级语文
  • 【cad绘图方法步骤怎样学习】
  • [15岁抽烟的危害]戒烟三个月肺部图片
  • 高中政治创新知识点【高中政治传统文化知识
  • [1995年猪属于什么五行] 1995年属猪是什么五行
  • 卫生间标语 卫生间幽默标语
    • 范文大全
    • 职场知识
    • 精美散文
    • 名著
    • 讲坛
    • 诗歌
    • 礼仪知识
    最新文章

    推荐访问

    大反思大讨论活动 保安全” 筑防线 “查思想 贡献伟大时代” “以青春之我 工作评议报告 创建活动综述 市社保局党支部 自述报告 “党员先锋示范岗” 党建德育工作 达标创星活动 “星级党支部”创建 评星定级管理 社会组织党支部 第四巡察组 新进年轻干部 委厅机关 党性教育培训班 履职能力建设专题培训班 新考录社区工作者 “头雁领航”重点培训班 党组织业务培训 能力提升培训会 赋能经济高质量发展 “五好”园区 三年攻坚行动 行政管理能力建设提升班 高质量发展能力提升培训班 市疾控系统 中基层管理人员 专业能力提升专题培训班 新发展预备党员 进驻工作 迎接审计组 讲评推进大会 “三抓三促”行动动员 “永不过时的红岩精神” 市委党史研究室 科学绿化现场会 深化以案促改 一体推进不敢腐不能腐不想腐 奋斗精神 专题辅导讲稿 坚守使命追求 涉密 《党史学习教育工作条例》 百年新征程 “百年定位” 党课教育

    本文程序设计基础(vb)实验报告一由蒲公英阅读网整理提供，版权归原作者、原出处所有。

    Copyright © 蒲公英阅读网 All Rights Reserved.