简述无产阶级政党的群众观点的内容。

下面程序运行时，若输入395，则输出结果是（）。

Private Sub Command1_Click（）

Dim X％

x=InputBox("请输入一个3位整数")

Print x Mod 10，x\100，(x Mod 100)\10

End Sub

A.3 9 j

B.5 3 9

C.5 9 3

D.3 5 9

（30 ）下面程序运行时，若输入 395 ，则输出结果是

Private Sub Comand1_Click （）

Dim x%

x=InputBox (" 请输入一个 3 位整数 ")

Print x Mod 10,x\100, (x Mod 100 ) \10

End Sub

A ） 3 9 5

B ） 5 3 9

C ） 5 9 3

D ） 3 5 9

（30 ）下面程序运行时，若输入 395 ，则输出结果是

Private Sub Comand1_Click （）

Dim x%

x=InputBox (" 请输入一个 3 位整数 ")

Print x Mod 10,x\100, (x Mod 100 ) \10

End Sub

A ） 3 9 5

B ） 5 3 9

C ） 5 9 3

D ） 3 5 9

下面程序运行时，若输入395，则输出结果是（）。

A. 5 9 3

B. 3 5 9

C. 5 3 9

D. 3 9 5

A.3 9 j

B.5 3 9

C.5 9 3

D.3 5 9

A.5 9 3

B.3 5 9

C.5 3 9

D.3 9 5

下面程序运行时，若输入“Visual Basic Programming”。则在窗体上输出的是

Prirate Sub Command1_Click()

Dim count(25)As Integer，ch As String

ch=UCase(InputBox(”请输入字母字符串”))

For k=1 To Len(ch)

n=Asc(Mid(ch，k，1))-Asc(”A”)

If n>=0 Then

count(n)=count(n)+1

End If

Next k

m=count(0)

For k=1 T0 25

IfIn<count(k)Then

Ill=count(k)

End If

Next k

Print m

End sub

A．0

B．1

C．2

D．3

下面程序运行时，若输入“Visual Basic Programming”。则在窗体上输出的是

Prirate Sub Command1_Click()

Dim count(25)As Integer，ch As String

ch=UCase(InputBox(”请输入字母字符串”))

For k=1 To Len(ch)

n=Asc(Mid(ch，k，1))-Asc(”A”)

If n>=0 Then

count(n)=count(n)+1

End If

Next k

m=count(0)

For k=1 T0 25

IfIn<count(k)Then

Ill=count(k)

End If

Next k

Print m

End sub

A．0

B．1

C．2

D．3

下面程序的输出结果是【 】。

Private Sub Commandl_Click()

Dim a(1 To 20)

Dim i

Fori = 1 To 20

a(i) = i

Next i

For Each i In a()

a(i) = 20

Next i

Print a(2)

End Sub

有以下程序：运行时，若输入123450<回车>，则输出结果是（）。

A.6566456

B.66656

C.66666

D.6666656