VB 九九乘法表

[复制链接]
查看11 | 回复4 | 2011-6-23 17:02:41 | 显示全部楼层 |阅读模式
在窗体上显示下三角形式的九九乘法表形
具体要求,窗体的标题为“九九乘法表”,背景为“白色”,显示字体为“宋体”,字号为“小四”,字体颜色为“红色”。

回复

使用道具 举报

千问 | 2011-6-23 17:02:41 | 显示全部楼层
代码给你,其它背景字体什么的都是小问题Private Sub Command1_Click()
Dim i As Integer,j As Integer
For i = 1 To 9
For j = 1 To i
Print j & "X " & i & "= " & i * j & vbTab;
Next
Print
NextEnd Sub...
回复

使用道具 举报

千问 | 2011-6-23 17:02:41 | 显示全部楼层
(1)print"*"
意思是打印一个字符"*"。(2)print:print
VB中,一行一句命令,如果你想多句命令一行,可用冒号隔开。
print省略参数就表示输出一个空行。
简单说,"print:print"就等于:
print
print
...
回复

使用道具 举报

千问 | 2011-6-23 17:02:41 | 显示全部楼层
For i = 1 To 9 For k=0 To 9-j '先输出一系列空格字符 Text1.Text =Text1.Text & Space(9) Next k For j = i To 1 step -1 '逆序输出m=a*b 的形式 '用format函数定宽输出 Text1.Text =Text1.Text & for...
回复

使用道具 举报

千问 | 2011-6-23 17:02:41 | 显示全部楼层
Private Sub Command1_Click()'Text1.ScrollBars = 1'设计时设置Dim i As IntegerDim t As VariantDim j As IntegerText1.Text = ""For i = 1 To 9For j = 1 To 9 - iText1.Text = T...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行