您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
VB实验报告（电子版题目及答案）.doc60页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
文档加载中...广告还剩秒
需要金币：150 &&
VB实验报告（电子版题目及答案）,vb实验答案,vb第四版课后实验答案,vb第四版实验答案,vb实验指导书答案,同济大学vb实验答案,vb实验报告答案,vb课后实验答案,vb程序设计实验答案,vb第四版实验题答案
你可能关注的文档：
··········
··········
学年第学期
实 验 报 告
实验课程名称 专 业 班 级 学 生 姓 号 学 生 姓 名 实验指导老师 实验项目清单
命令按钮、标签和文本框
实验实验实验
浙江大学城市学院实验报告
课程名称 VB程序设计基础实验 实验项目名称 程序设计初步 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求熟悉VB开发环境，掌握VB程序设计步骤。
理解基本概念：工程、窗体、属性、事件、方法。
熟悉立即窗口的使用。
掌握Print、赋值语句的正确书写规则。
二. 实验内容和原理在E盘建立一个自己的文件夹，准备用来保存VB编程过程中的相关文件。
文件夹的名字是学号。
如 E:\座机电话号码
2）将窗体文件“1-.Frm” 和 工程文件“1-.Vbp”上传到老师的ftp服务器上的”周三下午” 或 ”午” 或 ”午” 你的文件夹中。
如：“座机电话号码传媒0901张三”. 练习1-将窗体文件和工程文件上传到老师的ftp服务器上谢谢！【练习1-1】新建一个工程，单击窗体时，在窗体上显示“这是我的第一个VB实验”；双击窗体时，清除窗体上显示的所有信息。研究下面的代码段，考虑应填入什么内容？
Private Sub Form_Click
Private Sub Form_DblClick
调试运行以上程序，在同一文件夹下保存工程.vbp和窗体文件.frm。【练习1-2】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是“隶
书”和“黑体”，当程序运行后，在文本框中输入“欢迎光临VB世界”，是用粗体、18号、宋体、红色字显示 通过窗体加载事件完成 ；单击“隶书”按钮文本框中显示内容的字体是隶书，单击“黑体”
正在加载中，请稍后...VB编程题目在线等... vb编程题目，在线等
你正在浏览： & >
VB编程题目在线等...
VB编程题目在线等...
有一笔钱欲存银行，3年后取出，可以采用以下几种方案之一：（1）
活期3年；(r0)
P=p0*(1+r*n)（2）
3次1年定期(r1) P=p0*(1+r)n（3）
先存一次2年定期(r2)，再存一次1年定期(r1)；（4）
先存一次1年定期(r1)，再存一次2年定期(r2)；（5）
3年定期(r3俯郸碘肝鄢菲碉十冬姜)求本、利和的公式：P=p0*(1+r)n
p0为本金r0、r1、r2分别为一年期、两年期、三年期的利率要求：从键盘输入方案号（1、2、3、4、5）和利率、本金，在窗体上打印结果。
你好像少一个活期利率，另外是否有前一年利息自动滚入下一年本金，我给的例程没有滚入本金Private Sub Command1_Click()
Dim r0 As Single, r1 As Single, r2 As Single, r3 As Single
Dim p0 As Single
Dim p As Single
r0 = Val(T(0).Text) '活期利率
r俯郸碘肝鄢菲碉十冬姜1 = Val(T(1).Text) '一年期利率
r2 = Val(T(2).Text) '二年期利率
r3 = Val(T(3).Text) '三年期利率
p0 = Val(Text2.Text) '本金
Select Case Val(Text1.Text)
p = p0 * (1 + r0) * 3
p = p0 * (1 + r1) * 3
p = p0 * (1 + r2) * 2 + p0 * (1 + r1) * 1
p = p0 * (1 + r1) * 2 + p0 * (1 + r2) * 1
p = p0 * (1 + r3) * 3
End Select
Print pEnd Sub
你好像少一个活期利率，另外是否有前一年利息自动滚入下一年本金，我给的例程没有滚入本金Private Sub Command1_Click()
Dim r0 As Single, r1 As Single, r2 As Single, r3 As Single
Dim p0 As Single
Dim p As Single
r0 = Val(T(0).Text) '活期利率
r俯郸碘肝鄢菲碉十冬姜1 = Val(T(1).Text) '一年期利率
r2 = Val(T(2).Text) '二年期利率
r3 = Val(T(3).Text) '三年期利率
p0 = Val(Text2.Text) '本金
Select Case Val(Text1.Text)
p = p0 * (1 + r0) * 3
p = p0 * (1 + r1) * 3
p = p0 * (1 + r2) * 2 + p0 * (1 + r1) * 1
p = p0 * (1 + r1) * 2 + p0 * (1 + r2) * 1
p = p0 * (1 + r3) * 3
End Select
Print pEnd Sub
Private Sub Command1_Click()
Dim r0!, r1!, r2!, r3!, p0!, p!, a%
r0 = Val(InputBox(&活期利率&))
r1 = Val(InputBox(&一年期利率&))
r2 = Val(InputBox(&二年期利率&))
r3 = Val(InputBox(&三年期利率&))
p0 = Val(InputBox(&本金&))
a = Val(InputBox(&方案号&))
If a = 1 Then p = p0 * (1 + r0) ^ 3
If a = 2 Then p = p0 * (1 + r1) ^ 3
If a = 3 Then p = (p0 * (1 + r2) ^ 2) * (1 + r1) ^ 1
If a = 4 Then p = (p0 * (1 + r1) ^ 2) * (1 + r2) ^ 1
If a = 5 Then p = p0 * (1 + r3) ^ 3
Print pEnd Sub
因为保证是4位数输入 所以输入的时候做点手脚 #include&stdio.h&int main()...～～～
#include &stdio.h& #include &string.h& #include &c...～～～
#include &stdio.h& void main() { printf(&*********...～～～
#include&stdio.h& #include&iostream.h& class three...～～～
class Student{ private: unsigned short m_ strin...～～～
C语言的题目,在线等nzp(a[i]);这样就对输入的每个数进行判断。。。... ...～～～
第一题: #include &stdio.h&#include &time.h&#include &...～～～
#include &stdio.h&int GetInput(int s32Num, int *ps...
你可能感兴趣的内容？ 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
VB实验报告（电子版 题目及答案）
下载积分：100
内容提示：VB实验报告（电子版 题目及答案）
文档格式：PDF|
浏览次数：1426|
上传日期： 17:06:55|
文档星级：
全文阅读已结束，如果下载本文需要使用
 100 积分
下载此文档
阅读此文档的用户还读了
VB实验报告（电子版 题目及答案）
官方公共微信vb课程设计题目 课后习题解答系统 求代码 - 编程|雅兴问问
当前位置： & 编程 & vb课程设计题目 课后习题解答系统 求代码未解决问题 vb课程设计题目 课后习题解答系统 求代码
10:28 提问
详细问题描述及疑问：期待您的答案，你是我的宝贝,你是我的花,谢谢你对我的帮助！
本页链接：
满意答案相关内容
大家还关注}