【二期VBA入门班】第二课作业上交贴(3、4组)

laosanjie · 发表于 2008-5-8 00:11

【二期VBA入门班】第二课作业上交贴(3、4组)请3、4组的学员在此跟贴交作业。注意！首先上传好经压缩的作业以后，再就是一定要记得选点左边”特殊内容”下面的“威望贴”，并在出现“用户提示”的对话窗口下面的输入框中输入 5 (里面原来是1000，一定要改成5 )确定后，再点“发表”就可按要求上交作业。无论作业通过还是未通过，都不要再重复上交了(以第一次批改为准)，否则删贴并扣减论坛培训币！作业一旦上交，就不能再编辑自己的贴子了，否则以作弊论处！

hot · 发表于 2008-5-8 00:16

组别：3组ID：hot学号：37号[Power=5]

Zp3iZz2X.rar (6.42 KB, 下载次数: 5)

2008-5-8 00:13 上传

点击文件名下载附件
【二期VBA入门班】第二课作业上交贴(3、4组) 另外我把程序也上传上来：过程名是panduanSub panduan() Dim x  ←实际还是没给这个变量赋予啥类型？！这样VBA会将此变量默认(创建)为Variant类型的变量(这将比用任何其他数据类型消耗更多的内存)！ For x = 1 To 11 If Range("a" & x) = 0 Then    Range("B" & x) = "零" ElseIf Range("a" & x) > 0 Then    Range("b" & x) = "正数" ElseIf Range("a" & x) < 0 Then    Range("b" & x) = "负数" End If Next x End SubFor x = 1 To 11 If Range("a" & x) = 0 Then    Range("B" & x) = "零" ElseIf Range("a" & x) > 0 Then    Range("b" & x) = "正数" ElseIf Range("a" & x) < 0 Then    Range("b" & x) = "负数" End If Next x End Sub  [/Power]通过。感谢班主任这么晚发作业上交贴。

[此贴子已经被laosanjie于2008-5-8 9:20:03编辑过]

遥远的绿洲 · 发表于 2008-5-8 09:23

[Power=5]

a9oDBULw.rar (7.67 KB, 下载次数: 2)

肉丸丸 · 发表于 2008-5-8 09:56

[Power=5]

nFDu8Cqb.rar (7.01 KB, 下载次数: 3)

blacktulip20 · 发表于 2008-5-8 11:24

[Power=5] 组别：4组ID：blacktulip20

yrMEy824.rar (6.37 KB, 下载次数: 4)

2008-5-8 11:24 上传

点击文件名下载附件
【二期VBA入门班】第二课作业上交贴(3、4组) 1、运行按钮也懒得做一个？！2、你程序里的给变量赋值的语句这样写：Dim x  ←实际还是没给这个变量赋予啥类型？！这样VBA会将此变量默认(创建)为Variant类型的变量(这将比用任何其他数据类型消耗更多的内存)！  应该如：Dim x As Integer 或 Dim x% [/Power]可以通过。

[此贴子已经被laosanjie于2008-5-8 14:06:05编辑过]

taotaojing · 发表于 2008-5-8 12:29

[Power=5][/Power]id: taotaojing学号:59

taotaojing · 发表于 2008-5-8 12:30

[Power=5] [Power=5][/Power]ID:taotaojing学号:59[/Power]

[此贴子已经被作者于2008-5-8 12:31:50编辑过]

heroslang · 发表于 2008-5-8 12:31

[Power=5]

tFxjiYHD.rar (6.83 KB, 下载次数: 3)

taotaojing · 发表于 2008-5-8 13:24

[Power=5] [Power=5][/Power]4组:ID:taotaojing学号:59

Ku60oWUx.rar (6.52 KB, 下载次数: 2)

心馨 · 发表于 2008-5-8 13:48

[Power=5]upload=rar]viewFile.asp?ID=48302[/upload] [/Power]組別：3組用戶名：心馨

		自动登录	找回密码
密码			注册

【二期VBA入门班】第二课作业上交贴(3、4组)

VBA二期第二讲作业上交

交作业了