网友您好，请在下方输入框内输入要搜索的题目：

搜题

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

提问人：网友qidejun 发布时间：2022-01-07

[单选题]

Dim a AsInteger，当a=123：b=Str（a），则（）

A.a和b均是字符型变量

B. a是字符型变量，b是数值型变量

C. a是数值型变量，b是字符型变量

D. a和b均是数值型变量

参考答案

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

网友提供的答案

共位网友提供了参考答案，

查看全部

· 有3位网友选择 B，占比37.5%
· 有2位网友选择 A，占比25%
· 有2位网友选择 C，占比25%
· 有1位网友选择 D，占比12.5%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。登录

更多“Dim a AsInteger，当a=123：b=Str（a），则（）”相关的问题

第1题

阅读程序： Option Base 1 Dim arr（)As Integer Private Sub Form_Click（)Dim i AsInteger，j As

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

点击查看答案

第2题

Dim a AsInteger，当a=123：b=Str（a），则（）

A.a和b均是字符型变量

B.a是字符型变量，b是数值型变量

C.a是数值型变量，b是字符型变量

D.a和b均是数值型变量

点击查看答案

第3题

设有声明语句 OptionBase1 Dimb（-1To10,2To9,20）AsInteger 则数组b中全部元素的个数（

设有声明语句

Option Base 1

Dim b（-1 To 10, 2 To 9, 20） As Integer

则数组b中全部元素的个数（）。

A．2310

B．1920

C．1500

D．1658

点击查看答案

第4题

下列程序段功能是求1到100的累加和。 Dim S AsInteger，m AsIntegerS=0 m=1 doWhiles=s+m m=m+1 L

oop 横线处应填写的内容是（）。

A.m＜=100

B.m≤100

C.m＞=1

D.m≥1．

点击查看答案

第5题

以下有关数组定义的语句序列中，错误的是（)。A．Static arr1（3) arr1（1)=100 arr1（2)="Hello" arr1（

以下有关数组定义的语句序列中，错误的是()。

A．Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45

B．Dim arr2() AsInteger Dim size As Integer Private Sub Command2_Click () size=InputBox("输入：") ReDim arr2(size) …… EndSub

C．Option Base 1 Private Sub Command3 Click() Dim art3(3) As Integer …… End Sub

D．Dim n As Integer Private Sub Command4 Cliok() Dim arr4(n)As Integer …… End Sub

点击查看答案

第6题

编写如下事件过程：Option ExplicitPrivate Sub Form_Click（) Dim Str AsString， I AsInteger Ope

编写如下事件过程： Option Explicit Private Sub Form_Click() Dim Str As String， I As Integer Open "examp" For Output As 1 For I=1 To 5 Str=Chr(I+64) Print #1，Str； Next I Close 1 Open”examp'，For lnput AS 2 Str=Input(10，#2) Print Str； Close 2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．ABCDE

B．96

C．65

D．abcde

点击查看答案

第7题

设有以下函数过程： Functionfun（mAsInteger）AsInteger DimkAsInteger,sumAsInteger sum

设有以下函数过程：

Function fun（m As Integer） As Integer

Dim k As Integer, sum As Integer

sum = 0

For k = m To 1 Step -2

sum = sum + k

Next k

fun = sum

End Function

若在程序中用语句 s = fun（10）调用此函数，则s的值为______。

点击查看答案

第8题

编写如下事件过程：OptionBase1PrivateSubFormClick（) Dimx1（)AsInteger DimiAsInteger DimsAsInt

编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．6

B．12

C．24

D．47

点击查看答案

第9题

下列程序的功能是求算式：1-1／24-1／3-1／4+…前80项之和。 PrivateSub Commandl Click（） Dim i as

integer，S assingle．f as integer s=0：f=1 For i=1To 30 s=s+f／i f=__________ Next i Debug．Print”1-1／2+1／3—1／4+…=”：s End Sub 横线处应填写的内容是（）。

A.1*f

B.-l*f

C.1*i

D.-1*i

点击查看答案

第10题

设窗体有上一个名称为HScroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离

(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。 Dim 【7】 AsInteger Private Sub Form_Load Pos＝HScrol1．Value End Sub Private Sub HScroll1_Change Print 【8】 - pos Pos＝HScrolll．Value End Sub

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年全国各省自学考试时间及考试科目一览表 2024自考本科各省下半年报名具体时间一览表 2024年成人自考报名方式及考试时间自考本科需要考多少门课程才可以申请毕业证自考成绩一般什么时候可以查询自学考试需要考哪些科目具体有哪些内容本科自考2024年10月全国统一考试时间小自考一般考几科统考有哪些科目一般成人自考考完成绩什么时候能公布怎么查自考成绩查询方式有哪些

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次