标题:小弟我刚刚学习编程的visual basic ,作业遇到了麻烦,请求大虾帮忙!
只看楼主
fsi087186
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2010-3-27
结帖率:0
已结贴  问题点数:20 回复次数:6 
小弟我刚刚学习编程的visual basic ,作业遇到了麻烦,请求大虾帮忙!
小弟我刚刚开始学习programming,讲课的老师非常差,表达也有问题,搞到我现在什么都不懂,非常的沮丧。。现在又有作业,实在不知道如何开始,所以只好来论坛请教各位高手!希望大虾们能帮帮我!我用的是VB08

这个作业主要是写一个程序来计算公务旅行的花费,程序要求输入去旅游的企业名,日期,地点,机票费,住宿费,出租费,还有饮食娱乐费(50%的饮食娱乐费可以报销),最后要计算出总额(除了饮食娱乐费用)和减去50%后的饮食娱乐费用。

input的格式已经给了出来,如下所示


然后再就是output 的list box



目前我只做了一个界面,里面的代码什么的根本不知道怎么写,希望大虾们能帮帮我!
搜索更多相关主题的帖子: 作业 visual basic 
2010-03-27 12:40
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:5 
英文?
不认识.

无能为力.


授人于鱼,不如授人于渔
早已停用QQ了
2010-03-27 12:51
冰雪天
Rank: 2
来 自:陕西咸阳
等 级:论坛游民
帖 子:60
专家分:34
注 册:2009-9-4
得分:5 
给第一个窗口的按钮的click事件加代码,在另外一个窗口的text控件显示,调用第一个窗口中的text控件的text属性

我愛滑板!!!
2010-03-27 13:51
wei855198
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:5
帖 子:228
专家分:944
注 册:2009-4-24
得分:5 
你把VB2008的问题贴发在VB6版块里不是十分恰当。
另个输出到listbox控件里面感觉更不恰当了。
不过也不是不能实现,假定,在你所做的界面中,如你所传的图,文本框名字自上而下依次为textbox1到textbox7,在那个按扭的单击事件里编写如下代码:
程序代码:
Public Class Form1

   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num As Decimal
        ListBox1.Dock = DockStyle.Fill
        num = CDec(TextBox5.Text) + CDec(TextBox6.Text) + CDec(TextBox7.Text)
        ListBox1.Items.Clear()
        ListBox1.Items.Add("Business Travel Expense")
        ListBox1.Items.Add(vbCrLf)
        ListBox1.Items.Add("Trip to attend meetint of")
        ListBox1.Items.Add(TextBox1.Text)
        ListBox1.Items.Add(TextBox2.Text & " in " & TextBox3.Text)
        ListBox1.Items.Add(vbCrLf)
        ListBox1.Items.Add("Meals and entertainment         $" & CDec(TextBox4.Text))
        ListBox1.Items.Add("Airplane fare                   $" & CDec(TextBox5.Text))
        ListBox1.Items.Add("Lodging                         $" & CDec(TextBox6.Text))
        ListBox1.Items.Add("Taxi fare                       $" & CDec(TextBox7.Text))
        ListBox1.Items.Add(vbCrLf)
        ListBox1.Items.Add("Total other than meals and entertainment:                $" & num)
        ListBox1.Items.Add("50% of meals and entertainment:                          $" & CDec(TextBox4.Text) / 2)
    End Sub
End Class
备注:我在主窗体上加了个listbox控件,放在一边了,为了达到你所发的图片的效果,在运行后将它的Dock属性设置成了fill.
我试运行的界面和结果图片如下:

护肤小店 http://mina2010.
靓装小店 http://liangliyizu2010.
2010-03-27 14:15
fsi087186
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2010-3-27
得分:0 
实在太感谢楼上的大侠了!
顺便问一下,咱们论坛好像没有VB08的讨论区吧?
2010-03-27 18:14
wei855198
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:5
帖 子:228
专家分:944
注 册:2009-4-24
得分:0 
VB的08版本又叫

护肤小店 http://mina2010.
靓装小店 http://liangliyizu2010.
2010-03-27 19:27
xmulder
Rank: 1
等 级:新手上路
帖 子:3
专家分:5
注 册:2009-7-14
得分:5 
其实就是和初学的计算器原理一样,只不过运算复杂一点罢了.

[url=http://www.]牛扑网谁上谁牛叉[/url]


2010-03-31 16:18



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-300686-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.405465 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved