回 帖 发 新 帖 刷新版面

主题:菜鸟再次求教  呵呵

Dim msg, userinput
  msg = "please enter a letter"
  userinput = InputBox(msg)
  If Not IsNumeric(userinput) Then
  If Len(userinput) <> 0 Then
  Select Case Asc(userinput)
  Case 65 To 90
  msg = "you entered the uppercase letter"
[color=FF0000]  msg = msg & Chr(Asc(userinput)) & "."表达的是什么意思呢?

回复列表 (共9个回复)

沙发

这句话的意思是把msg变量赋值    一开始MSG=you entered the uppercase letter下面一句也是赋值,
把Chr(Asc(userinput))的值加到you entered the uppercase letter的后面去,相当于连接

板凳

userinput是通过userinput = InputBox(msg)取得的字符串,
Asc(userinput)是其第一字符的asc码
Chr(Asc(userinput)) 再还原成字符
msg = msg & Chr(Asc(userinput))  & "."
添加到字符串msg的后面,并在最后加句号。

3 楼


[em2]hehe 谢谢.原来是这样啊!

4 楼

请问这个程序
Private Sub Command1_Click()
  x = 0
  n = InputBox("")
  For i = 1 To n
  For j = 1 To i
  x = x - 1
  Next j
  Next i
  Print x
End Sub
怎么莫名地冒出个"x"啊,这个"x"是起什么作用?
与这个问题相关的知识我也想了解一番.谢谢各位!
还有"sub".与"private sub"有区别么?

5 楼

1、private是“私有的”。只能在本窗体一级被调用。
2、x在本程序中是用于计数的。这段程序的本意应该是看一共循环多少次。

6 楼


[em2]哦,谢谢.还有想请教一下这个表达式的计算步骤是什么呢?
4+5\6*7/8Mod9
恩,还有这个程序我又该如何理解呢?
private sub command1-click()
  a=3:b=4
  REM PRINT a;b
  print b;a
  REM PRINT A;B
  END SUB
问题是运行后输出的结果.
可是rem 不是起解释说明的作用么它怎么会影响输出结果呢?
我认为正确的输出是 43
起作用的是[color=FF0000]print b;a[/color]
但是书上说正确的结果是 34  是我错了还是书上错了?
[size=4][color=0000FF]多谢了[/color][/size]

7 楼

4+5\6*7/8Mod9:
4+5\6*7/8Mod9
=4+0*7/8Mod9
=4+0/8Mod9
=4+0Mod9
=4Mod9
=4
也许不对,我没有验算。

至于那段程序的输出结果,你自己运行一下就知道了。不要乱猜测。

8 楼

[quote]
[em2]哦,谢谢.还有想请教一下这个表达式的计算步骤是什么呢?
4+5\6*7/8Mod9
恩,还有这个程序我又该如何理解呢?
private sub command1-click()
  a=3:b=4
  REM PRINT a;b
  print b;a
  REM PRINT A;B
  END SUB
问题是运行后输出的结果.
可是rem 不是起解释说明的作用么它怎么会影响输出结果呢?
我认为正确的输出是 43
起作用的是[color=FF0000]print b;a[/color]
但是书上说正确的结果是 34  是我错了还是书上错了?
[size=4][color=0000FF]多谢了[/color][/size][/quote]
4+5\6*7/8Mod9
此题是优先级的问题:先算乘除,再整除,然后求余,最后加减,最后结果为5

9 楼

这个我知道啊
我就是理不清楚计算的次序 
不过您挺高的算对了
嘿嘿[em12]

我来回复

您尚未登录,请登录后再回复。点此登录或注册