首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=U
下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。 Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=U
admin
2018-09-19
25
问题
下面程序运行时,若输入"Visual Basic Programming",则在窗体上输出的是( )。
Private 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 To 25
If m
m=count(k)
End If
Next k
Print m
End Sub
选项
A、0
B、1
C、2
D、3
答案
D
解析
根据题中的程序代码可知,ch为输入字符串的大写状态,第一个For循环是依次取出字母,n为取出字母与"A"字符的ASCII码差值,然后再赋给数组count();第二个For循环是找出数组count()中的最小值,因此,最后窗体上输出的结果为3,即选项D。
转载请注明原文地址:https://jikaoti.com/ti/srm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的in5.dat文件
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click()Fori=1To10Item="Item"&iList1.AddItemItem
有如下程序代码:PrivateSubForm_Click()Dima(100)AsIntegerDimb(100)AsIntegerFori=1To100a(i)=i
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:PrivateSubCommand1_Click() n%=List1.ListIndex Ifn>0Then ch$=List1.Lis
有三个关系R、S和T如下: 由关系R和S通过运算得到关系T,则所使用的运算为( )。
在面向对象方法中,不属于"对象"基本特点的是( )。
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是( )。
默认属性是某种控件最常用或最重要的属性,在VisualBasic中设置这样的属性时,不必给出属性名。下列中默认属性不是Value的控件是
下列运算符中,优先级别最低的是()。
随机试题
下列选项中,属于《普通高中美术课程标准(2017年版2020年修订)》“工艺”模块学习内容的是()。
有以下程序:#include<stdio.h>maill(){inta=1,b=0;printf("%d,",b=a+b);printf("%d\n",a=2*b);}程序运行后的输出结果是()。
调节发电机的有功功率时,会引起无功功率的变化。()
请简述实际成本核算的一般流程。
在直流供电系统中,应采用()的供电方式。
降低承销风险的防范措施有()
甲股份有限公司(以下简称甲公司)为增值税一般纳税人,购买及销售商品适用的增值税税率为17%。甲公司以人民币作为记账本位币,外币业务采用业务发生时的即期汇率折算,按月计算汇兑损益。(1)2016年2月28日甲公司有关外币账户的余额如下:(2)甲公司20
亚运会会徽是亚运会重要的视觉形象标志。下列关于杭州2022年第19届亚运会会徽“潮涌”的说法正确的是()。
Ourbodiesarestrengthenedbytakingexercise.______,ourmindsaredevelopedbylearning.
Zooshaveexistedforsolongthatnooneknowstheoriginsofthefirstones.Atonetime,zooswere【C1】______toentertainking
最新回复
(
0
)