首页 > 考研
题目内容 (请给出正确答案)
[单选题]

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

A.10

B.2

C.12

D.102

答案
收藏

D、102

如果结果不匹配,请 联系老师 获取答案
您可能会需要:
您的账号:,可能还需要:
您的账号:
发送账号密码至手机
发送
安装优题宝APP,拍照搜题省时又省心!
更多“代码如下:Dim m, n As Stringm = "10…”相关的问题
第1题
代码段如下:dim N as integerN = 2N = N + 1Print N以上代码执行后,输出结果为()

A.1

B.2

C.3

D.4

点击查看答案
第2题
给出如下代码:Str="HelloPython"可以输出"Python"子串的是()。

A.print(Str[-6:])

B.print(Str[-6:-1])

C.print(Str[-6:0])

D.print(Str[-5:-1])

点击查看答案
第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题
编写一过程将C盘中的Config.sys文件内容读出,并在文本框中显示出来。在窗体Form1上建立一个文本框
Text1,将其MultiLine属性设置为True,ScrollBars属性设置为3-Both。给定的程序不完整,请将程序补充完整。 Option Explicit Private Sub Form. _Click() Dim ch1 As String,fn As Integer Dim Str As String fn=【 】 Open "C:\Config.sys" For Input As fn Do While Not EOF(【 】) Line Input fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =【 】 End Sub

点击查看答案
第5题
编写一个过程把C盘中的Config. sys文件内容读出,并在文本框中显示出来。在窗体Form1建立一个文本
框Text1,将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。 option Explicit Private Sub Form. C1ick() Dim chl As String, fn As Integer Dim Str As String fn=【 】 Open "C:\Config. sys" For Input As fn Do While Not EOF(【 】) Line Input fn, chl Str=Str+chl+vbCrLf Loop Text1. Text=【 】 End Sub

点击查看答案
第6题
下列程序的功能是计算两个自然数的最大公约数,界面如下图所示。给定的程序不完整,将程序补充完整。

Private Sub Command1_Click() Dim x As Long, y As Long,i As Long x=Val(Text1.Text) y=Val(TextText) TextText = Str(【 】) End Sub Function fun1(a As Long,b As Long)As Long Dim r As Long Dim t As Long If【 】Then t = a a = b b = t End If r = a Mod b Do While r <> 0 a = b b = r r = a Mod b Loop 【 】 End Function

点击查看答案
第7题
下列程序中有一个按钮Command1,一个文本框Text1,其属性MultiLine=True。当单击按钮后,文本框显示【
】行数据,其中第2行和第3行的数据分别是【 】和【 】。 Option Base 1 Private Sub Command1_Click() Dim a, s As String,i As Integer a=Array(1,3,5,7,2,4,6,8) s=" " For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub

点击查看答案
第8题
以下代码片段的输出结果: js__basic~day02var str;console.log(typeof str)()

A.string

B.undefined

C.object

D.string

点击查看答案
第9题
预测以下代码片段的输出结果: var str ; alert(typeof str)()

A.string

B.undefined

C.String

D.object

点击查看答案
第10题
编写如下通用过程: 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,输出结果是【 】。

点击查看答案
第11题
在窗体上建立—个名称为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

点击查看答案
退出 登录/注册
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改