一些关于VB的问题,在线等,帮帮忙哈~~

发布网友 发布时间：2022-05-09 07:26

我来回答

共4个回答

热心网友 时间：2024-01-29 04:47

2.B
11.A
14.A
15.D
16.题目有错~在VB6.0中~A为变体 B才是双精度
17.C
18.C
21.A 印刷错误 if x>l then 又是L
22.D
填空
1. 15 '因为a = l :b =5:c = 3 a=L 不是1
2. step 3
第五题
sub sswf()
dim x as integer,y as integer
x=val(inputbox("shuru"))
if x mod 2 =0 and x mod 3=0 and x mod 5=0 then text1.text=x
y=x^2
print y
end sub

热心网友 时间：2024-01-29 04:47

选择题：
B A C D B C C A D
填空：
16
3

Privite sub sswf()
dim x as integer
dim y as integer
x = val(inputbox("输入x",""))
if (x mod 2) and (x mod 3) and (x mod 5) then
text1.text = str(x)
y = x*x
print(y)
end if
end sub

热心网友 时间：2024-01-29 04:48

2.B
11.A
14.C
15.D
16.B
17.C
18.C
21.A
22.D
(1).16
(2).4
五、程序综合题
Privite sub sswf()
dim x as integer,dim y as integer
x = val(inputbox("输入x",""))
if (x mod 2) and (x mod 3) and (x mod 5) then
text1.text = str(x)
y = x*x
print(y)
end if
end sub

热心网友 时间：2024-01-29 04:48

一、2、B 14、A 15、D 16、B 17、C 18、C 21、A 22、D
四、(1)、 16 (2)、 4