首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1名为Commandl的命令按钮和1名Text1的文本框,再编写如下程序: Dim ss As String Private Sub Command 1—Click() Private Sub Text1_KeyPress(KeyAscii Di
在窗体上画1名为Commandl的命令按钮和1名Text1的文本框,再编写如下程序: Dim ss As String Private Sub Command 1—Click() Private Sub Text1_KeyPress(KeyAscii Di
admin
2015-11-24
61
问题
在窗体上画1名为Commandl的命令按钮和1名Text1的文本框,再编写如下程序:
Dim ss As String Private Sub Command 1—Click()
Private Sub Text1_KeyPress(KeyAscii Dim m As String i As Integer
As Integer)For i=Len(ss)To 1 Step一1
If Chr(KeyAscii)<>“”Thenm=m+Mid(ss,i,1)
ss=ss+Ck(KeyAscii)Next
E
选项
A、NUMBER 100
B、REBMUN
C、REBMUN 100
D、001 REBMUN
答案
D
解析
KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键触发的,KeyPress(KeyAscii As Integcf)事件中KeyAscii参数是所按键的ASCII代码,该参数不显示键盘的物理状态,而只是传递一个字符代码。KeyPress将每个字符的大、小写形式作为不同的键代码解释,即作为两种不同的字符。Ch()可返回ASCll码对应的字符。本题程序运行后,在文本框中每输入一个字符,将执行Textl KcyPress事件过程,变量ss的值也随即变化,当输入“N
转载请注明原文地址:https://kaotiyun.com/show/gxLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若要求从文本框中输入密码时在文本框中只显示“*”号,则应当在此文本框的属性窗口中设置
在设计程序时,应采纳的原则之一是
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请填空。OptionBase1PrivateSubForm_Click()Dimxx=Array(57,-9,17,42,-31,46,11,
设有下列程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsIntegera
下列程序的运行结果是()。PrivateFunctionmyfun(m,n)DoWhilem>nDoWhilem>n:m=m-n:LoopDoWhilen>m:n=n-m:LoopLoopmyfun=mEndFun
已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的VisualBasic表达式为()。
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为______。
下列程序功能是,产生10个0~100的随机数,输出其中的最大值。请将程序补充完整。PrivateSubForm_Click()Diman(10)AsIntegerDimmaxAsIntegerRandomizeFori%=1T
程序运行时,用户向文本框输入内容时,将触发文本框的()事件。
滚动条的最小值属性是______,最大值属性是Max。
随机试题
胆道手术后T管引流病人护理,下列哪项不正确()
猩红热患儿进行病原性检查时,标本采集多采用
下列关于肝的描述,正确的是
雌性腊肠犬,6岁,1个月来精神沉郁,时有发热,抗生素治疗后,病情好转,停药后复发。现病情加重,阴部流红褐色分泌物,B超探查见双侧子宫角增粗,内有液性暗区。该病例手术时,必须要结扎
治疗肝气郁结,胸闷,胁肋胀痛,月经不调者,宜选用
何首乌的功效为( )。
屋架下弦截面为120mm×200mm,木料为马尾松,下弦接头处N=90kN,屋架下弦用双剪连接。螺栓连接承载力的计算系数Kv=6.1,若螺栓采用Φ20的螺栓,试问接头处接头所需的最少螺栓数目为( )。
厂区通道宽度的确定依据有()。
下面关于操作系统的叙述中,正确的是
______themanagercan’tcometothemeetingtobeheldnextweek?
最新回复
(
0
)