首页 > 高职专科

题目内容（请给出正确答案）

[单选题]

代码如下：Dim m, n As Longm = 10n = 2m = nPrint "m=";m程序运行以后的输出结果是（）

A.m=10

B.m=2

C.m=8

D.m=12

答案

B、m=2

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“代码如下：Dim m, n As Longm = 10n =…”相关的问题

第1题

代码如下：Dim m, n As Stringm = "10"n = "2"Print m & n则程序运行后的输出结果是（）

A.10

B.2

C.12

D.102

点击查看答案

第2题

代码段如下：dim N as integerN = 2N = N + 1Print N以上代码执行后，输出结果为（）

A.1

B.2

C.3

D.4

点击查看答案

第3题

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer,y As

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer) M=IIf(x＞y,x，y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后，单击命令按钮，输出结果为【】。

点击查看答案

第4题

已知如下代码，则方法调用错误的是（选择一项）（）

A.method.sum（m,n）

B.method.sum（0x12,0x43）

C.method.sum（6,8）

D.method.sum（10L,30L）

点击查看答案

第5题

编写如下通用过程： Sub proc（By Val num As Long，ByRef ren As Long) Dim k

编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是【】。

点击查看答案

第6题

在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显

示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【】 k=k+ n m= m\10 Loop until m = 0 fun = k End Function Private Sub form_ Click() Dim n As Integer n = Val(Text1. Text) Print【】 End Sub

点击查看答案

第7题

有如下程序段: OPEN DATABACE xsxk USE 学生 IN 0 SELECT 学生

STORE 0 TO m,w SCAN FOR IF 性别=.T. m=m+1 ELSE w=w+1 ENDIF EDNSCAN CLEAR ？′男生人数′,m ？′女生人数′,w CLOSE DATABASE RETURN 功能说明:本程序段是统计专业代码(学号的第3、4位)为03的男、女生人数,则画横线处应填

A．SUBSTR(学号,1,2)=′03′

B．SUBSTR(学号,2,2)=′03′

C．SUBSTR(学号,3,2)=′03′

D．SUBSTR(学号,4,2)=′03′

点击查看答案

第8题

在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮

。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。请在【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val(【】) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

点击查看答案

第9题

假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段： Dim

Rv As Rt r1=Len(Rv) Open"Sp.txt" For Random As 1 x=LOF(1) n=x\r1 执行上面的程序段后，变量n中存放的是文件【】中所存放的是【】记录类型的记录数。

点击查看答案

第10题

在Visual Basic中,有如下数据定义格式Dim e,则以下变量赋值中正确的是()。

A.e%="OK"

B.e$= OK

C.e= 04/01/2001

D.e= "OK"

点击查看答案

第11题

以下代码可在数组中存储Fibonacci数列，该代码的两个错误是：Dim s（1 To 10） As LongDim i As Integers（1） = 1s（2） = 1i = 1Do While i <= 10s（i） = s（i - 1） + s（i - 2）Print s（i）Loop（）

A.下标越界死循环

B.数据溢出下标越界

C.变量类型不匹配死循环

D.数据溢出死循环

点击查看答案