UC知道VB简单调试?谢谢!
来源：百度知道 编辑：UC知道 时间：2024/07/07 06:30:48
这是在TextBox控件显示九九乘法表的代码?可它显示在同一行内,不会换行?也就是说效果不美观,怎么在相应的位置添加换行符?
Private Sub Command1_Click()
Dim i, j, k As Integer
Dim str As String
str = ""
For i = 1 To 9
For j = 1 To i
k = j * j
str = str & j & "*" & i & "=" & k & " "
Next j
Next i
Label2.Caption = str
End Sub
Private Sub Command1_Click()
Dim i, j, k As Integer
Dim str As String
str = ""
For i = 1 To 9
For j = 1 To i
k = j * j
str = str & j & "*" & i & "=" & k & " "
Next j
Next i
Label2.Caption = str
End Sub
换行符是\n
打印机换行\r
tab \t
str=str & "\r\n"
这样子就是换行符了
下面是js代码
<script>
var chengfabiao="";
for (i=0;i<9;i++){
for (i2=0;i2<i;i2++){
chengfabiao+=i+"X"+i2+"="+i*i2+"\t" ;
\*这里每次循环是一个计算公式 所以在结尾追加\t *\
}
chengfabiao+="\r\n";
/*这里 i的这个for循环中 是循环9次 每次一行所以在结尾追加\r\n */
}
alert(chengfabiao);
</script>
你随便建立个文本文件复制代码 然后给后缀改成htm 就可以测试下
如果解决了你的问题 还请多追加点分啊
str = str & j & "*" & i & "=" & k & " "&vbCrLf
诶，1楼，你这个是js的写法，这个是vbs，注意一下！！！