vb问题(计算机二级),求救

软件  |  电脑网络

阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。
【程序说明】
自定义函数DTOB实现将十进制整数转换为字符串形式的二进制数。
【程序】
Private Sub Form_click()
Static k As Integer
Dim x As Integer
x = x + 2 : k = k + x
Open "c:\result.txt" For Output As 1
Print #1, DTOB(x);
Print #1, x
Print #1, DTOB(k);
Print #1, k
Close #1
End Sub
private Function DTOB(ByVal n As Integer) As String
Dim s As String, c As String
While (17)
c = (18)
s = c + s : n = (19)
Wend
(20)
End Function
A、n<=0 B、n=1 C、n>0 D、n<>1
A、chr(n \ 2) B、trim(str(n mod 2)) C、trim(str(n \ 2)) D、val(n mod 2)
A、n = n \ 2 B、n = n / 2 C、n = n mod 2 D、n = n - 2
A、s = DTOB B、DTOB(n) = s C、Print s D、DTOB = s
单击窗体两次后,文件C:\result.txt中的内容是什么?
A、10 2 B、10 2 C、“10”,2 D、“10” 2
100 4 10 2 “10”,4 “10” 2
其它代码不变,仅将程序中的print全部换为write,单击窗体两次后,文件C:\result.txt中的内容是什么?
A、10 2 B、10 2 C、“10”,2 D、“10” 2
100 4 10 2 “100”,4 “10” 2
其它代码不变,仅将函数DTOB的形参定义由Byval n as integer换成n as integer,单击窗体两次后,文件“C:\result.txt”中的内容是什么?
A、10 2 B、10 0 C、“10”,2 D、“10” 0
10 2 10 0 “100”,4 “10” 0
其它代码不变,仅将打开文件语句中的output改为append,单击窗体两次后,文件C:\result.txt中的内容是什么?
A、10 2 B、10 2 C、“10”,2 D、“10” 2
10 2 100 4 “100”,4 “10” 4
10 2 “10” 2
100 4“100” 4
分享:
2017-08-20

2017-08-20最佳答案

(17)---C、n>0
(18)---B、trim(str(n mod 2))
(19)---A、n = n \ 2
(20)---D、DTOB = s
单击窗体两次后,文件C:\result.txt中的内容是什么?
A、10 2
100 4
其它代码不变,仅将程序中的print全部换为write,单击窗体两次后,文件C:\result.txt中的内容是什么?
C、“10”,2
“10”,2

其它代码不变,仅将函数DTOB的形参定义由Byval n as integer换成n as integer,单击窗体两次后,文件“C:\result.txt”中的内容是什么?
B、10 0
10 0
其它代码不变,仅将打开文件语句中的output改为append,单击窗体两次后,文件C:\result.txt中的内容是什么?
A、10 2
10 2
10 2
100 4