Question

计算从1到500所有自然数不含数字4的自然数共有多少个用vb的循环代码

计算从1到500所有自然数不含数字4的自然数共有多少个用vb的循环代码,是我们高中信息作业。。。请靠谱一点

Answer 1

以下是用perl 写的，你自己修改下：

for ($a=1;$a<501;$a++){
if( !($a=~/4/)){

$i++;

print "第$i个： $a \n";

}

}

测试结果：共324个没有4的数。
第1个数： 1
第2个数： 2
第3个数： 3
第4个数： 5
第5个数： 6
第6个数： 7
第7个数： 8
第8个数： 9
第9个数： 10
第10个数： 11
第11个数： 12
第12个数： 13
第13个数： 15
第14个数： 16
第15个数： 17
第16个数： 18
第17个数： 19
第18个数： 20
第19个数： 21
第20个数： 22
第21个数： 23
第22个数： 25
第23个数： 26
第24个数： 27
第25个数： 28
第26个数： 29
第27个数： 30
第28个数： 31
第29个数： 32
第30个数： 33
第31个数： 35
第32个数： 36
第33个数： 37
第34个数： 38
第35个数： 39
第36个数： 50
第37个数： 51
第38个数： 52
第39个数： 53
第40个数： 55
第41个数： 56
第42个数： 57
第43个数： 58
第44个数： 59
第45个数： 60
第46个数： 61
第47个数： 62
第48个数： 63
第49个数： 65
第50个数： 66
第51个数： 67
第52个数： 68
第53个数： 69
第54个数： 70
第55个数： 71
第56个数： 72
第57个数： 73
第58个数： 75
第59个数： 76
第60个数： 77
第61个数： 78
第62个数： 79
第63个数： 80
第64个数： 81
第65个数： 82
第66个数： 83
第67个数： 85
第68个数： 86
第69个数： 87
第70个数： 88
第71个数： 89
第72个数： 90
第73个数： 91
第74个数： 92
第75个数： 93
第76个数： 95
第77个数： 96
第78个数： 97
第79个数： 98
第80个数： 99
第81个数： 100
第82个数： 101
第83个数： 102
第84个数： 103
第85个数： 105
第86个数： 106
第87个数： 107
第88个数： 108
第89个数： 109
第90个数： 110
第91个数： 111
第92个数： 112
第93个数： 113
第94个数： 115
第95个数： 116
第96个数： 117
第97个数： 118
第98个数： 119
第99个数： 120
第100个数： 121
第101个数： 122
第102个数： 123
第103个数： 125
第104个数： 126
第105个数： 127
第106个数： 128
第107个数： 129
第108个数： 130
第109个数： 131
第110个数： 132
第111个数： 133
第112个数： 135
第113个数： 136
第114个数： 137
第115个数： 138
第116个数： 139
第117个数： 150
第118个数： 151
第119个数： 152
第120个数： 153
第121个数： 155
第122个数： 156
第123个数： 157
第124个数： 158
第125个数： 159
第126个数： 160
第127个数： 161
第128个数： 162
第129个数： 163
第130个数： 165
第131个数： 166
第132个数： 167
第133个数： 168
第134个数： 169
第135个数： 170
第136个数： 171
第137个数： 172
第138个数： 173
第139个数： 175
第140个数： 176
第141个数： 177
第142个数： 178
第143个数： 179
第144个数： 180
第145个数： 181
第146个数： 182
第147个数： 183
第148个数： 185
第149个数： 186
第150个数： 187
第151个数： 188
第152个数： 189
第153个数： 190
第154个数： 191
第155个数： 192
第156个数： 193
第157个数： 195
第158个数： 196
第159个数： 197
第160个数： 198
第161个数： 199
第162个数： 200
第163个数： 201
第164个数： 202
第165个数： 203
第166个数： 205
第167个数： 206
第168个数： 207
第169个数： 208
第170个数： 209
第171个数： 210
第172个数： 211
第173个数： 212
第174个数： 213
第175个数： 215
第176个数： 216
第177个数： 217
第178个数： 218
第179个数： 219
第180个数： 220
第181个数： 221
第182个数： 222
第183个数： 223
第184个数： 225
第185个数： 226
第186个数： 227
第187个数： 228
第188个数： 229
第189个数： 230
第190个数： 231
第191个数： 232
第192个数： 233
第193个数： 235
第194个数： 236
第195个数： 237
第196个数： 238
第197个数： 239
第198个数： 250
第199个数： 251
第200个数： 252
第201个数： 253
第202个数： 255
第203个数： 256
第204个数： 257
第205个数： 258
第206个数： 259
第207个数： 260
第208个数： 261
第209个数： 262
第210个数： 263
第211个数： 265
第212个数： 266
第213个数： 267
第214个数： 268
第215个数： 269
第216个数： 270
第217个数： 271
第218个数： 272
第219个数： 273
第220个数： 275
第221个数： 276
第222个数： 277
第223个数： 278
第224个数： 279
第225个数： 280
第226个数： 281
第227个数： 282
第228个数： 283
第229个数： 285
第230个数： 286
第231个数： 287
第232个数： 288
第233个数： 289
第234个数： 290
第235个数： 291
第236个数： 292
第237个数： 293
第238个数： 295
第239个数： 296
第240个数： 297
第241个数： 298
第242个数： 299
第243个数： 300
第244个数： 301
第245个数： 302
第246个数： 303
第247个数： 305
第248个数： 306
第249个数： 307
第250个数： 308
第251个数： 309
第252个数： 310
第253个数： 311
第254个数： 312
第255个数： 313
第256个数： 315
第257个数： 316
第258个数： 317
第259个数： 318
第260个数： 319
第261个数： 320
第262个数： 321
第263个数： 322
第264个数： 323
第265个数： 325
第266个数： 326
第267个数： 327
第268个数： 328
第269个数： 329
第270个数： 330
第271个数： 331
第272个数： 332
第273个数： 333
第274个数： 335
第275个数： 336
第276个数： 337
第277个数： 338
第278个数： 339
第279个数： 350
第280个数： 351
第281个数： 352
第282个数： 353
第283个数： 355
第284个数： 356
第285个数： 357
第286个数： 358
第287个数： 359
第288个数： 360
第289个数： 361
第290个数： 362
第291个数： 363
第292个数： 365
第293个数： 366
第294个数： 367
第295个数： 368
第296个数： 369
第297个数： 370
第298个数： 371
第299个数： 372
第300个数： 373
第301个数： 375
第302个数： 376
第303个数： 377
第304个数： 378
第305个数： 379
第306个数： 380
第307个数： 381
第308个数： 382
第309个数： 383
第310个数： 385
第311个数： 386
第312个数： 387
第313个数： 388
第314个数： 389
第315个数： 390
第316个数： 391
第317个数： 392
第318个数： 393
第319个数： 395
第320个数： 396
第321个数： 397
第322个数： 398
第323个数： 399
第324个数： 500

Answer 2

Private Sub Command1_Click()
n = 0
For i = 1 To 500
ReDim a(Len(i)) As Integer
For x = 1 To Len(i)
a(x - 1) = Mid(i, x, 1)
Next x
For m = 0 To Len(i) - 1
If a(m) = 4 Then Exit For
l = l + 1
Next m
If l > 0 Then n = n + 1
l = 0
Next i
Print n
End Sub