C语言 二级 1-40上机模拟试题答案 .pdfVIP

1~40套模拟试题的简单应用和综合应用的答案

一：

2（1）：indexnn+2nf1

2（2）：ss,s1str(n)

3:

PrivateSubC1_Click()

DimxAsInteger

x=18000

DoWhilex18001

Ifisprime(x)ThenExitDo

x=x+1

Loop

Text1.Text=Str(x)

EndSub

PrivateSubC2_Click()

OpenApp.Path\out5.txtForOutputAs1

Print#1,Text1.Text

Close1

EndSub

二：

2（1）：check1.value“”#“”text2.text

2（2）：5xstr(x)

3：

DimiA