Question

求助一道VB题

编一程序
一个富翁试图与一个陌生人做一笔换钱生意，规则是：陌生人每天给富翁10万元，直到满一个月（30天）；而富翁每天给陌生人1分钱，第二天2分，第三天4分......（每天给的钱是前一天的2倍）直到一个月满。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？

Answer 1

Private Sub Form_Load()
Dim i As Long
Dim x As Long
Dim Sum1
Dim Sum2
Dim sum3

For i = 1 To 30
x = 100000
Sum1 = Sum1 + x

Next

Debug.Print "穷人给富商的钱为: " & Sum1

Sum2 = 0.01
sum3 = Sum2
Debug.Print "富商给穷人到第1天一共的钱; " & sum3
For i = 2 To 30

Sum2 = Sum2 * 2
sum3 = sum3 + Sum2
Debug.Print "富商给穷人到第" & i & "天一共的钱" & sum3
Next

End Sub

Answer 2

Private Sub Command1_Click()
Dim i, n As Long, s As Double
For i = 0 To 30
s = 0
s = s + (2 ^ i) / 100
n = 30 * 100000
Next
Print "陌生人给富翁的钱为（单位：元）："; s
Print "富翁给陌生人的钱为（单位：元）："; n
End Sub

Answer 3

这题的答案是19。在VB程序里面，各种运算符(包括^乘方,-符号,*乘号,/除号,\整除,mod取模,+加,-减)有着不同的优先级，就像加减乘除四级运算一样。
运算符
含义
优先级
实例
结果
^
乘方
1
3^2
9
-
负号
2
-1
-1
*
乘
3
9*2
18
/
除
3
8/2
4
\
整除
4
10\4
2
mod
取模
5
3
mod
2
1
+
加
6
18+1
19
-
减
6
2-1
1
帅哥我是照着我们的课本来给你解释的，敲字狠辛苦，大家都不容易，您看，满意不?希望可以帮助到你。

Answer 4

这题答案是
B
由于flags设置为3,所以不能进行颜色设置
如果不设置flags
值,将会报错
flags属性如下:
cdlcfscreenfonts(屏幕字体),属性值为1
cdlcfprintfonts(打印机字体),属性值为2
cdlcfboth(即可以打印机字体也可以是屏幕字体),属性值为3
这就是你问的CommonDialog1.Flags=3意思
fontname
指选定字体的名称
fontsize
指选定的字体的大小
fontbold
指是否选定粗体
fontltalic
指是否选定斜体
fontunderline
指是否选定下划线
fontstrikethru
是否选定删除线
forecolor
指字体颜色