主论坛元旦活动答案＋结果～（感谢各位参与～辛苦了～为自己鼓掌～）

-Y-

看到改过了 - -0

21点。。。。
还好还没走。。。

TL

大家快去…………

-Y-

活动结束啦！
斑斑们统计辛苦了！
祝大家新年快乐！

偶zzzzz去了。。。

TL

新年快乐！~~。。计算分值中…………

平安是福

汗 总算完了%&173

和川慧子

惨了!第二个活动原来不是说22点开始的吗,休息了一会,现在上来发现已经结束了!怎么办!
这个算是工作人员的失误吧!
5~~~~~

-Y-

[quote=TL]新年快乐！~~。。计算分值中…………[/quote]

辛苦了……明天来看结果……虽然没啥机会。。。

-Y-

[quote=和川慧子]惨了!第二个活动原来不是说22点开始的吗,休息了一会,现在上来发现已经结束了!怎么办!
这个算是工作人员的失误吧!
5~~~~~[/quote]

版主立刻就说明了……前后没有几秒的。。

和川慧子

[quote=-Y-]版主立刻就说明了……前后没有几秒的。。[/quote]

我看到之后马上就下了,就算没有几秒也是有一段时间的呀!算我自己倒霉?!

TL

[QUOTE=和川慧子]我看到之后马上就下了,就算没有几秒也是有一段时间的呀!算我自己倒霉?![/QUOTE]
………………这个。。。。%&205

我有责任你也有点吧。。。。。

和川慧子

[quote=TL]………………这个。。。。%&205

我有责任你也有点吧。。。。。[/quote]

版主言重了，没想让你负责任，是我动作太快了。恩，就是这样的。
不要再讨论了，不然算版聊我就惨了。

平安是福

偶正确率果然低……飘下线……

斑竹们辛苦了 过年好

小uv

[quote=和川慧子]版主言重了，没想让你负责任，是我动作太快了。恩，就是这样的。
不要再讨论了，不然算版聊我就惨了。[/quote]
呵呵，我们有责任啦。。看错时间了呵～～向你道歉～小小失误～～

不算版聊哈。。本来就是给大家讨论的～～


快到新年啦。。大家新年快乐～～愿牙齿天天晒太阳撒～～～


借个地方放一下
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
  Print y,
  Print z
  Print
  Print x; y
  Print z
  Print
  Print
  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
   
  Print
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

小uv

新年啦～～～～哈哈哈哈哈哈哈哈哈哈哈

新年第一灌～～～啦啦啦

小uv

[quote=夏の猪猪]祝大家新年快乐，斑竹辛苦啦~~大家辛苦啦~~2006年继续支持柯南哦~~~我的目标是：看熟TV版，明年再来过！！哈哈哈哈~~~
PS：愿牙齿天天晒太阳撒 虾米意思？[/quote]
大家都辛苦哈～～～～～

牙齿晒到太阳就是笑嘛～～～意思就是愿大家天天都开心快乐～～～～这比什么都重要～～～

Ralph

汗 最后一题没答上竟然混上名次了  先给自己鼓掌咔咔   
JJ和TL和大家都辛苦了~~~  
祝大家新年快乐 万事如意 恭喜发财[EMAIL="........^@#$%]........^@#$%[/EMAIL]&*

空の轨迹

竟然混了个第一……斑竹辛苦了……大家新年快乐啊

平安是福

斑竹能不能把第二题的答案写的详细一点 就是连连看

新年快乐~~%&162

幻风翼

没名次...还是祝大家新年快乐啦~

TL

[QUOTE=平安是福]斑竹能不能把第二题的答案写的详细一点 就是连连看

新年快乐~~%&162[/QUOTE]


不是已经很清楚了么。。。。那是正确的排序号码