[求助]有没有一个各个表都能打开的通用录入窗口 - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

易表在线答疑 → 技术与交流 → 用户社区 → [求助]有没有一个各个表都能打开的通用录入窗口

共有33485人关注过本帖树形打印复制链接主题：[求助]有没有一个各个表都能打开的通用录入窗口

smileboy

小大 41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：8672 积分：1734 威望：0 精华：0 注册：2006/8/11 10:52:00

Post By：2008/5/11 9:21:00 [只看该作者]

下面引用由老有所乐在 2008/05/10 11:18pm 发表的内容：
如是楼上二位所说，那就好。VB确实很难学，加上年岁较大，又没学过英语的来说，要想学会就更难。从几次相关贴看VB的语言语法会关联密切。等新版再说。发个VB九九表程序：
Dim I%, j%, str$
...

Dim I,J as Integer
Dim str as string
output.show("九九乘法表")
For I = 1 To 9
For j = 1 To 9
str = I & "×" & j & "=" & I * j
OutPut.Show(str)
Next
Next

东方虬龙

小大 42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：侠之大者帖子：584 积分：160 威望：0 精华：0 注册：2006/8/13 12:16:00

Post By：2008/5/11 9:26:00 [只看该作者]

谢谢楼主的耐心讲解!得益非浅...

Czy

小大 43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13147 积分：-89 威望：0 精华：0 注册：2006/8/11 11:14:00

Post By：2008/5/11 11:56:00 [只看该作者]

下面引用由smileboy在 2008/05/11 09:21am 发表的内容：
Dim I,J as Integer
Dim str as string
output.show("九九乘法表")
For I = 1 To 9
For j = 1 To 9
str = I & "×" & j & "=" & I * j

好版牛

老有所乐

小大 44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：272 积分：264 威望：0 精华：0 注册：2006/9/18 9:22:00

Post By：2008/5/11 13:47:00 [只看该作者]

我用Vb6.0好版的公式就不行，会提示：编译错误变量未定义并 "output"标为蓝色

lxl

小大 45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：蜘蛛侠帖子：1191 积分：-50 威望：0 精华：0 注册：2007/5/25 12:56:00

Post By：2008/5/11 15:07:00 [只看该作者]

如果用1楼的小程序,可以这样
Dim str As String
For a As Integer = 1 To 9
For b As Integer = 1 To a
str =str & b & "×" & a & "=" & a*b & " "
Next
str = str & Microsoft.VisualBasic.ControlChars.CrLf
Next
Msgbox(str)

-=-=-=- 以下内容由 lxl 在 2008年05月11日 03:11pm 时添加 -=-=-=-
如果想对齐好看的话还可以

Dim str,strs As String
For a As Integer = 1 To 9
For b As Integer = 1 To a
str = b & "×" & a & "=" & a*b
strs = strs & str.PadRight(10)
Next
strs = strs & Microsoft.VisualBasic.ControlChars.CrLf
Next
Msgbox(strs)

Czy

小大 46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13147 积分：-89 威望：0 精华：0 注册：2006/8/11 11:14:00

Post By：2008/5/11 15:20:00 [只看该作者]

下面引用由lxl在 2008/05/11 03:07pm 发表的内容：
如果用1楼的小程序,可以这样
Dim str As String
For a As Integer = 1 To 9
For b As Integer = 1 To a
str =str & b & "×" & a & "=" & a*b ...

受教了。

Microsoft.VisualBasic.ControlChars.CrLf，太专业了。