如何用Visual 做一个简单的银行贷款利率计算器器,求教,急!

mfc大作业,用VISUAL C++6.0 编写,过两天要交,什么画图或计算器的或其他新点的都行,不需要太大的程序,_百度知道
mfc大作业,用VISUAL C++6.0 编写,过两天要交,什么画图或计算器的或其他新点的都行,不需要太大的程序,
大神做好能附加个实验报告,跪求了...
大神做好能附加个实验报告,跪求了QQ
答题抽奖
首次认真答题后
即可获得3次抽奖机会,100%中奖。
采纳数:13
获赞数:37
擅长:暂未定制
给你发个画图的吧, 有直线, 曲线, 圆, 能选线条颜色, 我用的是VS2010, 我给你发的是6.0版本的, 你打开sln文件就可以了。
来自知道合伙人认证行家
采纳数:290
获赞数:529
深圳市潮范文化传播有限公司软件工程师.
发你邮箱了,请采纳。
我有WIN32画图的要不要
为你推荐:
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。用Visual studio2010 写个计算器的程序,输出两个数,能加减乘除,跪求啊,我是c++的新手不会弄啊_百度知道
用Visual studio2010 写个计算器的程序,输出两个数,能加减乘除,跪求啊,我是c++的新手不会弄啊
完整的一套程序,我想学一学求自己写的,别复制粘贴。。。...
完整的一套程序,我想学一学求自己写的,别复制粘贴。。。
答题抽奖
首次认真答题后
即可获得3次抽奖机会,100%中奖。
采纳数:33
获赞数:247
#include&iostream.h&void main(){double a, b,cout&&&请输入要预算的两数及运算类型&;cin&&a;cin&&b;cin&&if(type==&+&)
result=a+b;else if(type==&-&)
result=a-b;
else if(type==&*&)
result=a*b;
else if(type==&/&)
result=a/b;
else cout&&&Data Error.&;cout&&&The result is:&;cout&&result&&}
为你推荐:
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。【图文】《Visual_Basic程序设计项目化教程》制作简易计算器_百度文库
您的浏览器Javascript被禁用,需开启后体验完整功能,
享专业文档下载特权
&赠共享文档下载特权
&100W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员,立省24元!
《Visual_Basic程序设计项目化教程》制作简易计算器
阅读已结束,下载本文到电脑
定制HR最喜欢的简历
你可能喜欢希望为编程资料缺失的部分贡献自己的微薄之力……
【Visual Basic】纯代码不拖控件,利用动态生成控件的方式完成一个简单的四则运算计算器
vb6是一个典型的拖控件加代码的编程代表,因此也一直被认为难登大雅之堂,但是,在vb6中可以完全纯粹地使用代码控制这个窗体与窗体的控件。这样生成出来的控件位置摆放精确无比,无须拖好控件之后,再利用工具栏的“格式”菜单慢慢地调整大小。这种方式的确定是声明一个控件要耗费大量的代码,但其实Java中的Swing,HTML+CSS排放控件,比这好不了多少。
当然,比vc6中mfc的代码简单了不少,具体见《【mfc】基本对话框程序——加法器》()
一、基本目标
利用纯粹代码,不拖控件的方式,完成如下的一个简单的四则运算器:
如果用户输入的两个项都是数,并且选择好相应的运算,点击等于按钮,则显示结果。否则,弹出告警框。
二、基本布局
如上图,此乃一个宽750px高100px的窗体。里面有两个输入文本框,一个下拉菜单,一个等于号,一个标签文本用来显示运算结果。
组件与组件之间有10px的留白。
其中两个输入文本框与下拉菜单,显示结构的标签文本的宽度分别为150px.
vb的标题栏为40px,在高100px的窗体里面,上下留白10px之后,每一个组件的高度为40px,除了已经给vb6设定为只读的下拉菜单,不能调整高度。
另外,等于按钮的高度与宽度皆为40px
三、制作过程
有了上面的设定之后,就开始利用纯粹的代码制作这个小程序。
1、首先,由于vb6设定了最大化按钮是不可以用代码去修改的。因此只能一开始在Form1的属性栏的MaxButton属性设置为False,禁用最大化按钮。则按F7唤出代码窗口。
2、一开始,在开头先声明一下自己需要动态生成的组件。这些声明不要写在Form_Load()函数之后。
让所有动态生成的控件作为全局变量,以致于这个组件可以被调用。
由于这些组件并不是拖出来的。vb6根本就不会为你在系统内注册这些组件。
其中输入文本框Text1,Text2,下拉菜单Combo1,标签文本Label1皆没有事件,只是其它事件需要获取其属性,因此普通声明即可。
而Command1由于是有点击事件的,因此必须这样声明,Command1才拥有CommandButton控件的所有事件过程。
Dim Text1 As TextBox
Dim Combo1 As ComboBox
Dim Text2 As TextBox
Dim WithEvents Command1 As CommandButton
Dim Label1 As Label3、之后是Form1的初始化函数,这个函数其实就是一直在声明各个组件与各个组件该有的属性,核心就一句Set xx=Controls.Add,把某某组件加入到Form1里面。值得注意的是vb6代码与代码之间的分割是一个回车,而不是;之类的。
Private Sub Form_Load()
'设置窗体的标题,尺寸为750px x 100px
Form1.Caption = "四则运算"
Form1.Width = 7500
Form1.Height = 1000
'初始化输入框1
Set Text1 = Controls.Add("VB.TextBox", "Text1", Form1)
Text1.Text = ""
Text1.Width = 1500
'vb窗体的标题栏长40px,其整个窗体为100px高,那么上下留白10px,再搞个100px高的控件就对了
Text1.Height = 400
Text1.Top = 100
Text1.Left = 100
'动态创建的控件默认都是不显示的,必须有这行
Text1.Visible = True
'初始化下拉列表
Set Combo1 = Controls.Add("VB.ComboBox", "Combo1", Form1)
Combo1.Width = 1500
'ComboBox的高度是固定,不可以设置,因此这里就不进行设置了
Combo1.Top = 100
Combo1.Left = 1700
Combo1.Visible = True
Combo1.AddItem "+"
Combo1.AddItem "-"
Combo1.AddItem "*"
Combo1.AddItem "/"
Combo1.Text = "+"
'初始化输入框2
Set Text2 = Controls.Add("VB.TextBox", "Text2", Form1)
Text2.Text = ""
Text2.Width = 1500
Text2.Height = 400
Text2.Top = 100
Text2.Left = 3300
Text2.Visible = True
'初始化按钮
Set Command1 = Controls.Add("VB.CommandButton", "Command1", Form1)
Command1.Caption = "="
Command1.Width = 400
Command1.Height = 400
Command1.Top = 100
Command1.Left = 4900
Command1.Visible = True
'初始化结果标签
Set Label1 = Controls.Add("VB.Label", "Label1", Form1)
Label1.Width = 1500
Label1.Height = 400
Label1.Top = 100
Label1.Left = 5400
Label1.Visible = False
'由于一开始没有结果,因此无须显示Label1
End Sub4、最后是Command1的点击过程。我们还需要写一个vb的过程Command1_Click(),这个过程逻辑很简单,先获取Text1与Text2的控件里面的东西,用IsNumeric()函数判断其是否是数,如果不是,则用MsgBox弹窗给出提示。如果是,则利用Select case的条件结构,给出各项结构。这个条件结构就是C、Java等语言的Switch...case结构,但这里无须加上使用val()函数,把组件中的值转换成函数,这里与vbscript的编程也就是asp基本上是一样的。
Private Sub Command1_Click()
'先判断用户输入的是否是数
If (IsNumeric(Text1.Text)) And (IsNumeric(Text2.Text)) Then
'如果是数,则取下拉列表的值,进行运算
Select Case Combo1.Text
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
Label1.Visible = True
Label1.Caption = Val(Text1.Text) - Val(Text2.Text)
Label1.Visible = True
Label1.Caption = Val(Text1.Text) * Val(Text2.Text)
Label1.Visible = True
Label1.Caption = Val(Text1.Text) / Val(Text2.Text)
Label1.Visible = True
End Select
'如果输入的不是数,则弹出提示
MsgBox "你输入的,任意一个不是数"
至此,整个vb6利用代码动态生成控件的方式已经说完,这里,阐述了在vb6如果动态生成控件,并为这些动态生成的控件绑定事件的方法。其核心是,注意在开头为这些组件声明全局变量。如果你手工拖控件,vb6则自动为你生成并注册这些控件。如果控件少的情况下,这种生成方式,显然不够拖控件的方式快,但是,如果控件多,要配合循环生成,这是一种解决方案。
VB6 动态创建用户控件
vb动态创建控件
VB:动态添加控件的示例
vb 让PictureBox控件透明 可加载gif 图片
在VB中创建和使用动态数组控件的方法总结
VB中动态创建控件
VB动态创建控件
没有更多推荐了,&>&C#制作一个简单计算器程序
C#制作一个简单计算器程序
上传大小:52KB
用C#制作的一个简单计算器程序,Visual C# .NET (应用教程第二版)课后练习题
综合评分:0
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有0条
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验,不建议使用迅雷下载
C#制作一个简单计算器程序
会员到期时间:
剩余下载个数:
剩余积分:0
为了良好体验,不建议使用迅雷下载
积分不足!
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验,不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验,不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限,免积分下载
你下载资源过于频繁,请输入验证码
您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:!
若举报审核通过,可返还被扣除的积分
被举报人:
请选择类型
资源无法下载 ( 404页面、下载失败、资源本身问题)
资源无法使用 (文件损坏、内容缺失、题文不符)
侵犯版权资源 (侵犯公司或个人版权)
虚假资源 (恶意欺诈、刷分资源)
含色情、危害国家安全内容
含广告、木马病毒资源
*投诉人姓名:
*投诉人联系方式:
*版权证明:
*详细原因:
C#制作一个简单计算器程序

我要回帖

更多关于 商贷利率2018计算器 的文章

 

随机推荐