回复: 主论坛元旦活动预告*^-^*（规则更新）
看到改过了 - -021点。。。。
还好还没走。。。
回复: 主论坛元旦活动预告*^-^*（规则更新）
大家快去…………回复: 主论坛元旦活动预告*^-^*（规则更新）
活动结束啦！斑斑们统计辛苦了！
祝大家新年快乐！
偶zzzzz去了。。。
回复: 主论坛元旦活动预告*^-^*（算分中……）
新年快乐！~~。。计算分值中…………回复: 主论坛元旦活动预告*^-^*（算分中……）
汗 总算完了%&173回复: 主论坛元旦活动预告*^-^*（算分中……）
惨了!第二个活动原来不是说22点开始的吗,休息了一会,现在上来发现已经结束了!怎么办!这个算是工作人员的失误吧!
5~~~~~
回复: 主论坛元旦活动预告*^-^*（算分中……）
新年快乐！~~。。计算分值中…………辛苦了……明天来看结果……虽然没啥机会。。。
回复: 主论坛元旦活动预告*^-^*（算分中……）
惨了!第二个活动原来不是说22点开始的吗,休息了一会,现在上来发现已经结束了!怎么办!这个算是工作人员的失误吧!
5~~~~~
版主立刻就说明了……前后没有几秒的。。
回复: 主论坛元旦活动预告*^-^*（算分中……）
版主立刻就说明了……前后没有几秒的。。我看到之后马上就下了,就算没有几秒也是有一段时间的呀!算我自己倒霉?!
回复: 主论坛元旦活动预告*^-^*（算分中……）
我看到之后马上就下了,就算没有几秒也是有一段时间的呀!算我自己倒霉?!………………这个。。。。%&205
我有责任你也有点吧。。。。。
回复: 主论坛元旦活动预告*^-^*（算分中……）
………………这个。。。。%&205我有责任你也有点吧。。。。。
版主言重了，没想让你负责任，是我动作太快了。恩，就是这样的。
不要再讨论了，不然算版聊我就惨了。
回复: 主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）
偶正确率果然低……飘下线……斑竹们辛苦了 过年好
回复: 主论坛元旦活动预告*^-^*（算分中……）
版主言重了，没想让你负责任，是我动作太快了。恩，就是这样的。不要再讨论了，不然算版聊我就惨了。
呵呵，我们有责任啦。。看错时间了呵～～向你道歉～小小失误～～
不算版聊哈。。本来就是给大家讨论的～～
快到新年啦。。大家新年快乐～～愿牙齿天天晒太阳撒～～～
借个地方放一下
1.
Private Sub Form_Click()
dim a, b, c, d as integer
a = Val(InputBox("输入小时h"))
b = Val(InputBox("输入分钟m"))
c = Val(InputBox("输入秒s"))
d = x*60*60+b*60+c
print(“共计” ;d; “秒”)
End Sub
2.
Private Sub Form_Click()
Dim a As Double
a = Val(InputBox("请输入一个角度"))
Print "角度为"; a; "度"
Print "正弦值＝"; Format(Sin(a * 3.1416 / 180), "####.000")
Print "正弦值＝"; Format(Cos(a * 3.1416 / 180), "####.000")
Print "正弦值＝"; Format(Tan(a * 3.1416 / 180), "####.000")
Print "正弦值＝"; Format(Atn(a * 3.1416 / 180), "####.000")
End Sub
2、.
Private Sub Form_Click()
Print "随机数为"; Int(Rnd * 5) + 51
End Sub
3．求下列表达式的值，并写出类型
（1）（8+(7*9-13)/5\9）^2 81, double
(2) “我们爱中国” & “的山水” “我们爱中国的山水 “ string
（3）2*3+6<=(7+2)/3 true boolean
(4) #12/31/2001# - #12/20/2001# 11 double
(5)2<3 and 7>8 false boolean
4、 根据给出的条件，写出表达式的值
（1） 分房条件为：已婚（marrige），年龄（age）不小于26岁，工作时间（workage）不少于5年
marriage and not age< 26 and not workage < 5
（2） x是小于100的非负数
x<100 and x>=0
或 x<100 and not x<0
5.
写出下列函数的值
(1) Int(-3.1415) -4
(2) Sqr(sqr(16)) 2
(3) Fix(3.1415) 3
(4) Int(abs(99-100)/2) 0
(5) Sgn(7*3+2) 1
(6) Left(“hello”,2) “he”
(7) Val(“16year”) 16
(8) Str(-459.65) “-459.65”
(9) Len(“hello”) 5
6.
计算函数值
(1)8/4*5/2.5*(3.25+6.75) 40
(2)3*7\2 10
(3)26\3 mod 0.4*int(2.5) 0
(4)ture and 8-3>=6 false
(5)# 8/5/1999# - 10 99-7-26
7.
下列变量名称哪些是错误的？
（1） N 对
（2） 3w 错，不能以数字开头
（3） Abs 错，abs是关键字
（4） X－y 错，不能含有－
（5） X%y 错，不能含有%
（6） Ef 对
（7） 出生日期对
（8） Grade_1 对
8. x是单精度符点型，写出表达式
（1） 对x取整，小数点后第一位四舍五入 round(x,1) 或 int(x+0.5)
（2） 截掉x小数点后面第3位及以后的数 int(x*100)/100
9. 按照有求产生随机数
（1）10到1000之间的整数（包含10和1000） 10+int(rnd*991)
（2）一个两位整数 int(10+rnd*90)
(1)
Private Sub Form_Click()
Dim I, T As Integer, K As Integer, S1 As String, S2 As String
Dim V1, V2, V3
I = 10 '赋值的表达式为常数
S1 = "abcdefg" '赋值的表达式为字符串
S2 = "xyz" '赋值的表达式为字符串
V1 = I '赋值的表达式为变量I的值(整型常数)
V2 = S1 '赋值的表达式为变量S1的值(字符串)
S2 = V2 + S2 '赋值的表达式为变量V1的值(字符串)与S2的值(字符串)的连接
V3 = I + T 'T没有被赋值(数值型被视为0,字符型被视为空值)
Print "I="; I
Print "s1="; S1
Print "s2="; S2
Print "v1="; V1
Print "v2="; V2
Print "v3="; V3
End Sub
(2)
Private Sub Form_Click()
Dim S1 As String, S2 As String, K As Integer
S1 = 10: S2 = 5 's1与s2都是数字类的字符型
K = S1 / S2 '数字类的字符型可作为数字进行运算,返回的结果强制转为整型
Print K
End Sub
(3)
Private Sub Form_Click()
Print Spc(5); "我们明天放假", "放3天假" 'spc(5)插入5个空格,逗号表示下个输出项在下个输出区(14列)
Print Tab(5); "我们明天放假"; "放3天假" 'tab(5)在第5列开始输出,分号表示下个输出项在在下个列
Print '输出空行
Print "是真的吗？", '输出文字后有一个逗号，表明下个输出的位置为14列以后
Print "是真的" '输出文字后没有逗号或分号，表明下次输出会显示在下一行
End Sub
(4)
Private Sub Form_Click()
Dim x, y, z As Integer
x = 1: y = 2: z = 3
Print "abcdefghijklmnopqrstuvwxyzabcdefg"
Print x, y, z:Print x; y; z
Print x: Print y: Print z
Print x,
Print y,
Print z
Print x; y
Print z
Print "abcdefghijklmnopqrstuvwxyzabcdefg"
Print "a"
Print 3; "a" '一个数字占两列的位置
Print 3; 3
Print Spc(5); 3, "a" '输出区是从头开始算，第15列
Print 3, "a"
Print 3, 3
End Sub
(5)
Sub Form_Click()
Const pi = 3.14159
Dim H As Integer, R As Single, V As Single
H = 10: R = 0.5
V = pi * R * R * H
Print "体积="; Format(V, "####.00")
End Sub
(6)
Sub Form_Click()
Dim A As Integer, B As Integer, C As Integer
A = InputBox("请输入A的值")
B = InputBox("请输入B的值")
C = B: B = A: A = C
Print "A="; A, "B="; B
End Sub
(7)
Sub Form_Click()
Dim A As Integer, B As Integer, C As Integer, D As Integer
Dim Num As Integer
Num = InputBox("请输入一个四位正整数")
A = Num Mod 10
B = (Num Mod 100) \ 10
C = (Num Mod 1000) \ 100
D = Num \ 1000
Print "千位数="; D, "百位数="; C
Print "十位数="; B, "个位数="; A
End Sub
(8)
Sub Form_Click()
Dim a As Single
Static s As Single, p As Single, i As Integer, j As Integer
a = Val(InputBox("请输入a的值", "例3-9"))
Print "a="; a
If a > 0 Then
s = s + a: i = i + 1
Print "s="; s, "共输入正数"; i; "个"
Else
p = p + a: j = j + 1:
Print "p="; p, "共输入负数"; j; "个"
End If
End Sub
(9)
Sub Form_Click()
Dim a As Single, x As Single, y As Single
a = Val(InputBox("请输入a 的值", "计算分段函数"))
x = Val(InputBox("请输入x 的值", "计算分段函数"))
If x < -a Then
y = 0
End If
If (x > -a) And (x <= a / 2) Then
y = Sqr(a * a - x * x)
End If
If x > a / 2 Then
y = x
End If
Print "a="; a, "x="; x, "y="; y
End Sub
(10)
Sub Form_Click()
Dim a As Single, b As Single, c As Single, d As Single
Dim x1 As Single, x2 As Single
Dim e As Boolean
a = Val(InputBox("请输入a的值", "计算一元两次方程"))
b = Val(InputBox("请输入b的值", "计算一元两次方程"))
c = Val(InputBox("请输入c的值", "计算一元两次方程"))
d = b * b - 4 * a * c: e = d >= 0
If e Then
x1 = (-b + Sqr(d)) / (2 * a): x2 = (-b - Sqr(d)) / (2 * a)
Print "x1="; x1, "x2="; x2
Else
Print "无实根"
End If
End Sub
(11)
Sub Form_Click()
Dim a As Single
a = Val(InputBox("请输入a的值"))
If a < 0 Then
End
End If
End Sub
387页 实验二 （一）参照样题做 第2题
Sub Form_Click()
Dim ch1 As String
Dim ch As String
Dim max As Integer
Dim i As Integer
max = 0
i = 0
ch1 = "#"
20: ch = InputBox("请输入一个字母")
If ch = "#" Then
GoTo 10
End If
If ch = ch1 Then
i = i + 1
Else
ch1 = ch
If max < i + 1 Then
max = i + 1
End If
i = 0
End If
GoTo 20
10: If max < i + 1 Then
max = i + 1
End If
If max <= 5 Then
Print "y"
Else
Print "n"
End If
End Sub
388页（二）自己动手做 实验题2（2)
Sub Form_Click()
Dim max As Integer
Dim mid As Integer
Dim min As Integer
Dim a, b, c As Integer
a = InputBox("请输入正整数A")
max = a
b = InputBox("请输入正整数B")
If b > max Then
mid = max
max = b
Else
mid = b
End If
c = InputBox("请输入正整数C")
If c < mid Then
min = c
End If
If c < max And c > mid Then
min = mid
mid = c
End If
If c > max Then
min = mid
mid = max
max = c
End If
Print "最小值="; min
Print "中间值="; mid
Print "最大值="; max
End Sub
389页 第3题
Sub Form_Click()
Dim x, a, b, c As Integer
x = Val(InputBox("请输入一个正整数"))
a = x Mod 5
b = x Mod 2
c = x Mod 3
If (a = 0) And (b = 0) And (c = 0) Then
Print "x="; x
Print "x的平方和为"; x ^ 2
Else
Print "x不能同时被2,3,5整除"
End If
End Sub
补充练习
Sub Form_Click()
Dim x As Integer
x = Int(Rnd * 100) + 1
Print x
If x < 50 Then
Print "x<50"
Else
Print "x>=50"
End If
End Sub
47页例题3-10
Sub Form_Click()
Dim a As Single, x As Single, y As Single
a = Val(InputBox("请输入a 的值", "计算分段函数"))
x = Val(InputBox("请输入x 的值", "计算分段函数"))
If x < -a Then
y = 0
End If
If (x > -a) And (x <= a / 2) Then
y = Sqr(a * a - x * x)
End If
If x > a / 2 Then
y = x
End If
Print "a="; a, "x="; x, "y="; y
End Sub
48页例题3-11
Sub Form_Click()
Dim a As Single, b As Single, c As Single, d As Single
Dim x1 As Single, x2 As Single
Dim e As Boolean
a = Val(InputBox("请输入a的值", "计算一元两次方程"))
b = Val(InputBox("请输入b的值", "计算一元两次方程"))
c = Val(InputBox("请输入c的值", "计算一元两次方程"))
d = b * b - 4 * a * c: e = d >= 0
If e Then
x1 = (-b + Sqr(d)) / (2 * a): x2 = (-b - Sqr(d)) / (2 * a)
Print "x1="; x1, "x2="; x2
Else
Print "无实根"
End If
End Sub
回复: 主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）
新年啦～～～～哈哈哈哈哈哈哈哈哈哈哈新年第一灌～～～啦啦啦
回复: 主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）
祝大家新年快乐，斑竹辛苦啦~~大家辛苦啦~~2006年继续支持柯南哦~~~我的目标是：看熟TV版，明年再来过！！哈哈哈哈~~~PS：愿牙齿天天晒太阳撒 虾米意思？
大家都辛苦哈～～～～～
牙齿晒到太阳就是笑嘛～～～意思就是愿大家天天都开心快乐～～～～这比什么都重要～～～
回复: 主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）
汗 最后一题没答上竟然混上名次了先给自己鼓掌咔咔JJ和TL和大家都辛苦了~~~
祝大家新年快乐 万事如意 恭喜发财........^@#$%&*
回复: 主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）
竟然混了个第一……斑竹辛苦了……大家新年快乐啊回复: 主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）
斑竹能不能把第二题的答案写的详细一点 就是连连看新年快乐~~%&162
回复: 主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）
没名次...还是祝大家新年快乐啦~回复: 主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）
斑竹能不能把第二题的答案写的详细一点 就是连连看新年快乐~~%&162
不是已经很清楚了么。。。。那是正确的排序号码