单项选择题

在窗体上画一个命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim n As Integer
n=InputBox("请输入一个数")
Print fun1(n)
End Sub
Function fun1(ByVal Bum As Long) As Long
Dim k As Long
k=0
Bum=Abs(Bum)
Do While Bum
k=k+(Bum Mod 10)
Bum=Bum\10
Loop
fun1=k
End Function
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为______。

A) 3
B) 4
C) 9
D) 10

<上一题目录下一题>

热门试题

单项选择题

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer) As Integer X=x+y：y=x+y Fun1=X+y End Function Private Function Fun2(x As Integer,y As Integer) As Integer Fun2=2 *x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是______。

A) 2 4
2 4
B) 2 4
4 8
C) 10 10
58 58
D) 4 4
8 8

单项选择题

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明： Type Person name As String *8 major As String*20 End Type 当单击保存按钮时，将两个文本框中的内容写入一个随机文件C： Testl.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是______。

A) Open "c: \Test1.dat" For Random As#1

Get #1 ,1 ,p
Close#1
B) Open "c: \Test1.dat" For Random As#1 Len=
Len(p)
Get #1,1,p
Close #1
C) Open "c:\Test1.dat" For Random As#1
Put #1,1,p
Close #1
D) Open "c:\Test1.dat" For Random As#1 Len=
Len(p)

Put #1 ,1 ,p
Close #1

相关试题