Question

求VB高手帮我解答一道编程题

1.在名称为Form1的窗体单击事件中输入代码，要求程序运行时，单击窗体，将系统当前日期及时间按照格式“X年XX月XX日”在窗体上显示出来

Answer 1

Private Sub Form_Click()
Print Format$(Now, "dddddd")
End Sub

这里是格式化函数format的用法：http://wenku.baidu.com/link?url=IHc1tQksn7cJ6q0OG25ud33Sc8ukaxcXfuuIXfBOIsj8D1PHWUr2EsfIdQJj3rH-T8ayoYP006YYHUyCjdc1tBuHwYO2LsYS0GF-7HLucYi

Now是系统提供的函数，获取代表当前时间的变量，在用format转成长日期“xxxx年xx月xx日”（即后面的格式化字符串“dddddd”。

记得采纳哦

追问

不好意思 我题目看错了
是X年XX月XX日X时X分

追答

这个就麻烦些了 format不支持这个

得手工合成：

Private Sub Form_Click()
    Print Format(Date, "dddddd") & Format(Time, "hh时mm分")  '两种办法区别是月份如果是个位数前面有没有'0'
    Print Format(Now, "yyyy年mm月dd日hh时mm分")  '这样也行
End Sub

也可以手动编辑

print format(now,"<xxx>")

关键字 含义

yyyy：年份

mm：分钟或者日期

dd：日期

hh：小时数

如："yyyy年mm月dd日hh时mm分"

Answer 2

案例描述：贷款付款计算器应用

通常情况下银行提供的贷款期限，从4时59分1至5年（ 12至60个月） 。借款人偿还贷款，并在每月的金额每月支付是基于长度的贷款，借款的数额和利率。
设计和代码的应用程序，允许用户输入贷款金额，首期付款金额和年利率贷款。在处理完输入后的数据，该计划产生的付款计划在5年内，包括每年的利息，所支付的款项总额，并按月支付。

第1步：

当用户运行应用程序的形式出现。进入用户的数量，首期付款，并选择利率从组合框然后点击按钮，输入数据。

第2步：

随着用户选择的数据，并通过点击按钮的输入数据，该计划准备计算。用户输入检索和价值观被分配到各自的变量，在计算按钮被按下。
提示：请务必将宣布模块级变量仅在需要时。您将下调宣布不合理的模块级变量。

第3步：

当使用者按下按钮的计算完成所有计算的数据显示在丰富的文本。更准确的分期贷款及利息每年计算并显示5条款。每学期被视为持续12个月。

第4步：

用户可以运行该应用程序的'东经'多少次不同的价值观。

第5步：

如果用户是满意的情况，他/她可以点击保存到文件按钮，将它保存在该文件中。您必须保存在一个文本文件名为“ Scenario.txt ”项目中的Bin文件夹。下面的图表显示的数据应当保存在该文件。

公式
利息总金额/ （利率/ 100 ） *任期
所支付的款项总额金额+利息总额

每月付款（光电倍增管）光电倍增管（个月，个月，贷款金额）
个月利率/一百分之一十二

实例（也提供了一个Excel工作表）
案例1计算利息： 9.50 ％ 。金额： 30000 。首期付款： 8000

个月总利息所支付的款项总额每月付款
12 $ 2,090.00 $ 32,090.00 $ 1,929.04
24 $ 4,180.00 $ 34,180.00 $ 1.010.12
36 $ 6,270.00 $ 36,270.00七百〇四点七二美元
48 $ 8,360.00 $ 38,360.00五百五十二点七一美元
60 $ 10,450.00 $ 40,450.00四百六十二点零四美元
希望能解决您的问题。