【贴游】各大帝国（模拟国家）第三季
Private_Sub Command1_Click
Set a＝OLE1.object.activesheet.range
Let x＝×
Let y＝1
Do while y＜35
……
Let y＝y+1
If y＝× then
Let x＝x+1
End If
Loop
End Sub
Set a＝OLE1.object.activesheet.range
Let x＝×
Let y＝1
Do while y＜35
……
Let y＝y+1
If y＝× then
Let x＝x+1
End If
Loop
End Sub
NY
对战系统（Vistual Basic）大致如下
Private_Sub Command1_Click
Set a＝OLE1.object.activesheet.range
Let x＝×
Let y＝1
Do while y＜35
……
Let y＝y+1
If y＝× then
Let x＝x+1
End If
Loop
End Sub
奖励编写人台风happier一只嗨皮鸭
0.52
对战系统（Vistual Basic）大致如下
Private_Sub Command1_Click
Set a＝OLE1.object.activesheet.range
Let x＝×
Let y＝1
Do while y＜35
……
Let y＝y+1
If y＝× then
Let x＝x+1
End If
Loop
End Sub
奖励编写人台风happier一只嗨皮鸭
0.52
民心影响
1.抽经费比（+-）
2.被攻击（++）
3.违规（-）
4.老是YY好事（-）
5.守规（+）
稳定度影响
1.kbxj（-）
2.主动打玩家（-）
3.ZZ失败（--）
4.ZZ胜利（++）
5.内乱（-）
6.天灾（-）
7.危机（-）
8.治乱成功（++）
1.抽经费比（+-）
2.被攻击（++）
3.违规（-）
4.老是YY好事（-
）5.守规（+）
稳定度影响
1.kbxj（-）
2.主动打玩家（-）
3.ZZ失败（--）
4.ZZ胜利（++）
5.内乱（-）
6.天灾（-）
7.危机（-）
8.治乱成功（++）
NYT
兼容机
NRL-2001A
CPU：胜利8-3800H
GPU：星空-100S
声卡：YT-100
内存：NC100 DDR400+ 256MB/512MB/1GB
硬盘：TR HDD 64GB/128GB/256GB/512GB
WI-FI：802.11a/b
4.56
兼容机
NRL-2001A
CPU：胜利8-3800H
GPU：星空-100S
声卡：YT-100
内存：NC100 DDR400+ 256MB/512MB/1GB
硬盘：TR HDD 64GB/128GB/256GB/512GB
WI-FI：802.11a/b
4.56