Ⅰ vb做九九乘法表
感觉你的挺麻烦的,试试我的吧
代码:
Private Sub Form_Click()
Print "9 9 Table!!"
Print "-------------------------------------------------------------------------------"
Print
For I = 1 To 9
For J = 1 To I
Print J; "*"; I; "="; J * I;
Next J
Print
Next I
End Sub
Ⅱ vb编程输出九九乘法表
上面的哪是九九乘法表啊
我这有专两种属
Private Sub Form_Load()
Me.AutoRedraw = True
Cls
For j = 1 To 9
For k = 1 To 9
If k > j Then Exit For
Print k & "*" & j & "=" & j * k; " ";
Next k
Print
Next j
End Sub
''''''''''''''''
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 9
Line (i * 200, j * 250)-(i * 200, j * 250)
ForeColor = i * j * 253
Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
Next j
Next i
End Sub
Ⅲ VB程序编译九九乘法表
错误之处:
fori=1 To n "For"与"i"之间加空格。
forj=1 to i 同上。
nextj 应将"Next"与"j"间加空格
nexti 同上。
printx 同上。"Print"与"x"之间加空格。
以下是修改后的:
Private Sub Command1_Click()
Form1.WindowState = 2
x = 0
n = Val(InputBox("n=?"))
For i = 1 To n
For j = 1 To n
x = i * j
Print i, "x", j, "=", x
Next j
Next i
End Sub
这样就可以了。
Ⅳ 怎样用VB编写打印九九乘法表
用VB编写打印九九乘抄法表可袭以参考下面的代码:
按钮单击代码
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
Print i & "*" & j & "=" & i * j & " ";
Next j
Next i
End Sub
(4)用vb程序九九乘法表扩展阅读:
vb常用函数:
And 运算符:执行两个表达式的逻辑连接。
Array 函数:返回含一数组的变体 。
Asc 函数:返回字符串首字母的 ANSI 字符代码。
赋值运算符 (=):给变量或属性赋值。
Atn 函数:返回数的反正切值。
调用语句将控制移交 Sub 或 Function 过程。
CBool 函数:返回已被转换为 Boolean 子类型的变体的表达式。
Ⅳ 用vb编写九九乘法表
用VB程序怎么做九九乘法表的步骤如下:
创建显示结果的窗体:
Ⅵ vb编程九九乘法表
因为在不该换行的地方换行了....
调用一次 print 完毕之后vb会自动跳到下一行...
做一个缓冲就好了,需要换行的时候再输出,否则放到strLine里面
Cls
Dim i As Integer, j As Integer
Dim strLine As String
For i = 1 To 9
For j = 1 To i
strLine = strLine & i & "*" & j & "=" & i * j & " "
Next j
Print strLine & vbCrLf
strLine = ""
Next i
Ⅶ 用VB程序怎么做九九乘法表
Public Class Form1
Private Sub Button1_Click(sender As Object,e As EventArgs)Handles Button1.Click
Dim i,j As Integer
Dim se As String
Label1.Text=""
For i=1 To 9 Step 1
For j=1 To 9 Step 1
se=i&"x"&j&"="&i*j
Label1.Text&=se&Space(10-Len(se))
Next
Label1.Text&=vbCrLf
Next
End Sub
Private Sub Button2_Click(sender As Object,e As EventArgs)Handles Button2.Click
Dim i,j As Integer
Dim se As String
Label1.Text=""
For i=1 To 9 Step 1
For j=1 To i Step 1
se=i&"x"&j&"="&i*j
Label1.Text&=se&Space(10-Len(se))
Next
Label1.Text&=vbCrLf
Next
End Sub
Private Sub Button3_Click(sender As Object,e As EventArgs)Handles Button3.Click
Dim i,j As Integer
Dim se As String
Label1.Text=""
For i=1 To 9 Step 1
For j=i To 9 Step 1
se=i&"x"&j&"="&i*j
Label1.Text&=se&Space(10-Len(se))
Next
Label1.Text&=vbCrLf&Space(i*10)
Next
End Sub
End Class
Label定义和用法
<label>标签为元素定义标注(标记)。
label元素不会向用户呈现任何特殊效果。不过,它为鼠标用户改进了可用性。如果您在label元素内点击文本,就会触发此控件。就是说,当用户选择该标签时,浏览器就会自动将焦点转到和标签相关的表单控件上。
<label>标签的for属性应当与相关元素的id属性相同。
实例
带有两个输入字段和相关标记的简单HTML表单:
<form>
<labelfor="male">Male</label>
<inputtype="radio"name="sex"id="male"/>
<br/>
<labelfor="female">Female</label>
<inputtype="radio"name="sex"id="female"/>
</form>
浏览器支持
所有主流浏览器都支持<label>标签。
Safari 2或更早的版本不支持<label>标签。
提示和注释
注释:"for"属性可把label绑定到另外一个元素。请把"for"属性的值设置为相关元素的id属性的值。
Ⅷ 九九乘法表vb完整编程
Sub 九九乘法()
Dim x&, y&, i&
Dim arr(1 To 9, 1 To 9)
For x = 1 To 9
For y = 1 To 9
If x <= y Then
arr(y, x) = y & "×" & x & "=" & x * y
End If
Next y
Next x
End Sub
Ⅸ 利用VB语言编程:输出九九乘法表
上面的哪是九九乘法表啊
我这有两种
Private Sub Form_Load()
Me.AutoRedraw = True
Cls
For j = 1 To 9
For k = 1 To 9
If k > j Then Exit For
Print k & "*" & j & "=" & j * k; " ";
Next k
Print
Next j
End Sub
''''''''''''''''
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 9
Line (i * 200, j * 250)-(i * 200, j * 250)
ForeColor = i * j * 253
Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
Next j
Next i
End Sub
我修过VB、、电脑正好有答案、、、
其实课本上也是有答案啊
满意请好评、。、谢谢。。
Ⅹ vb 九九乘法表
(1)print"*"
意思是打印一个字符"*"。
(2)print:print
VB中,一行一句命令,如果你想多句命令一行,可用冒号隔开。
print省略参数就表示输出一个空行。
简单说,"print:print"就等于:
print
print
打印两行空行。
(3)tab(n)函数。
用来将光标移到参数n指定的位置开始输出信息。tab(i*6),(i=1,2,3...),也就是在第6、12、24...格才输出表达式,这样看起来就像一个列表一样。如果你需要更要宽松一点,你写成tab(i*7)也是可以的:)
楼主提供的程序代码,语句有点混乱,运行也不正确.
请参考我提供的以下的乘法表(思路清晰):
Private Sub Form_Click()
Print Tab(35); "乘法表"
Dim Se As String
For I = 1 To 9
For J = 1 To I
Se = I & "X" & J & "=" & I * J
Print Tab((J - 1) * 9); Se;
Next J
Print
Next I
End Sub