牛俊焱网上有关“九九乘法表vb程序”话题很是火热，小编也是针对九九乘法表vb程序寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望能够帮助到您。
'一个Picture，三个Option，大小位置随意
Private Sub Form_Load()
Option1.Caption = "矩形"
Option2.Caption = "上三角"
Option3.Caption = "下三角"
Option1.Value = True
Picture1.AutoRedraw = True
Picture1.Move 120, 720, 6100, 2150
Me.Width = 6500: Me.Height = 3500
Option1.Move 240, 120, 1100, 375
Option2.Move 1540, 120, 1100, 375
Option3.Move 2840, 120, 1100, 375
End Sub
Private Sub Picture1_Click()
Dim i As Integer, j As Integer, str1 As String
Picture1.Cls
For i = 1 To 9
For j = 1 To 9
If Option1.Value = True Then
str1 = i & "*" & j & "=" & i * j & Space(3 - Len(CStr(i * j)))
ElseIf Option2.Value = True Then
If i <= j Then
str1 = i & "*" & j & "=" & i * j & Space(3 - Len(CStr(i * j)))
Else
str1 = Space(7)
End If
Else
If i >= j Then
str1 = i & "*" & j & "=" & i * j & Space(3 - Len(CStr(i * j)))
Else
Exit For
End If
End If
Picture1.Print str1;
Next j
Picture1.Print
Next i
End Sub
vb,编写程序，将九九乘法表写入到C99.txt文件夹中
Dim i As Integer, j As Integer, s As Integer
Private Sub Command1_Click()
Print Tab(35); "九九乘法表"
For i = 1 To 9For j = 1 To 9
Print Tab((j - 1) * 9); i & "×" & j & "=" & i * j;Next j
End Sub
Private Sub Command2_Click()
Print Tab(35); "九九乘法表(下三角)"
For i = 1 To 9For j = 1 To i? '就只有这里有点变化1 to i
Print Tab((j - 1) * 9); i & "×" & j & "=" & i * j;Next j
End Sub
Private Sub Command3_Click()
Print Tab(35); "九九乘法表(上三角)"
For i = 1 To 9For j = i To 9? '就只有这里有点变化i to 9
Print Tab((j - 1) * 9); i & "×" & j & "=" & i * j;Next j
End Sub
主要程序：
Dim i, j As Int16
i = 1
Dim s As String
For i = 1 To 9
For j = 1 To i
s &= j.ToString & "x" & i.ToString & "=" & i * j & " "
Next
s &= vbCrLf
Next
然后把s变量写入到文件c99.txt就是了。如果你用vb6，那么.toString就不要写了。
关于“九九乘法表vb程序”这个话题的介绍，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！
评论列表（3条）
我是中宝号的签约作者“牛俊焱”
本文概览：网上有关“九九乘法表vb程序”话题很是火热，小编也是针对九九乘法表vb程序寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望能够帮助到您。'一个Pict...
文章不错《九九乘法表vb程序》内容很有帮助