vb 设计新建一个工程，完成“秒表计时”程序的设计，如图13-11所示。具体要求如下：

一、vb 设计新建一个工程，完成“秒表计时”程序的设计，如图13-11所示。具体要求如下：

在最上面通用部分 dim n as integer ‘用来放总时间

command1_click()事件代码：

if command1.caption =计时开始 then

command1.caption =停止

timer1.enabled=true

else

command1.caption =计时开始

timer1.enabled=false

h=n\3600 '把总时间换算成小时、分、秒

m=(n mod 3600) \ 60

s= n mod 60

msgbox 一共运行 & h & 小时 & m & 分 & s & 秒

end if

timer()事件代码如下

n=n+1 '总时间加1

label1.capiton=n

以上单引号后面为注释部分，可以不写

二、求做vb程序设计编写函数fun功能是求1到100以内能被m或n整除的数的总和并显示，总和变量sum

function s(byval a as integer, byval b as integer) as integer

dim i as integer

for i = 1 to 1000

if i mod a = 0 and i mod b = 0 then

s = s + i

end if

next

end function

三、骑马与砍杀 装备导入

你貌似少了一步。。 我告诉你正确的路径把。。。 1.将.brf 文件放到 mod的Resource这文件夹里面，.dds文件放到mod的Textures文件夹里面。 2.打开MOD里的module.ini在最后一行添加，load_mod_resource = （文件名） 这个你下的压缩包应该有代码的。如果没有，那你要添加的文件如果是wuqi.brf那这段就应该是load_mod_resource = wuqi 3.将代码加到item_kinds1.txt 这文件的最后面，然后在文件开头加数字。添加几段代码就在前面原数字上+几。 4.打开mod里面的languages＼cn_s＼item_kinds.csv（用记事本打开）。itm_wuqi|偃 月 刀 itm_wuqi_pl|偃 月 刀 这样就是把你添加进去的文件，取了名字，游戏里才显示中文名。。 这样应该算是完整了。 如果还出错误的话，那就应该是你的武器包有问题，或者是你的MOD不兼容。

四、SDUSB-Loader_cfg34b怎样播放背景音乐？？

- 增加强制PAL 50，PAL60，NTSC video模式(tnx Narolez)

option: video=pal50, pal60, ntsc

- 当安装完成，自动light up DVD（弹出光盘？？）（Dteyn/Bool)

-测 试支持mp3背景音乐 - 播放位置 sd:/usb-loader/music.mp3.

注意: 有时候音乐会有点卡, 没有把握修复这问题。

选项

option: music=0

增强usb和sd卡失败时候重新初始化的次数(tnx: Narolez)

- 增强读取mp3

- 增加支持mod格式的背景音乐文件

- option: music = [1], 0, 文件名（filename）

option music 接受 (.mp3 or .mod)格式 并且直接指向 sd:/usb-loader 或者一个绝对路径

如果选项设置成: music = 1 就会搜索 music.mp3

护着 music.mod 位置是 sd:/usb-loader