阅读以下说明及Visual Basic程序代码,将应填入(n)上处的字句写在对应栏内。[说明]字符组合:程序界面如图示,在文本框Text1中输入若干个任意字符,单击“颠倒”按钮,将这些字符按相反的顺序显示在标签Lable1 中,并在标签Labs1 2处显示字符的个数。例如:输入abcabc2,显示为 2cbabca,组成字符数为4。[Visual Basic 代码]Private Sub cmdshow_ Click (Dim n As IntegerDim I As IntegerDim str1 As StringN=Len ( Text1.Text )For I=n To Step- 1Str1=(1)Next ILabe11. Caption=Str1End SubPrivate Sub cmdcount_ Click ( )Dim n As IntegerDim in As IntegerDim i As IntegerDim j As IntegerDim flag As IntegerDim str1 As IntegerDim str2 As IntegerN=(2)Str1 =Mid$ ( Text1.Text, i. 1For I =2 To nStr2=mid$ ( Text1,Text,I,1M=Len (str1)(3)For j=1 To mIf (4) Then flag= 1; Exit ForNext jIf flag<>1 then str1=str1 str2Next ILable2.Caption=(5)End Sub
阅读以下说明及Visual Basic程序代码,将应填入(n)上处的字句写在对应栏内。
[说明]
字符组合:程序界面如图示,在文本框Text1中输入若干个任意字符,单击“颠倒”按钮,将这些字符按相反的顺序显示在标签Lable1 中,并在标签Labs1 2处显示字符的个数。例如:输入abcabc2,显示为 2cbabca,组成字符数为4。
[Visual Basic 代码]
Private Sub cmdshow_ Click (
Dim n As Integer
Dim I As Integer
Dim str1 As String
N=Len ( Text1.Text )
For I=n To Step- 1
Str1=(1)
Next I
Labe11. Caption=Str1
End Sub
Private Sub cmdcount_ Click ( )
Dim n As Integer
Dim in As Integer
Dim i As Integer
Dim j As Integer
Dim flag As Integer
Dim str1 As Integer
Dim str2 As Integer
N=(2)
Str1 =Mid$ ( Text1.Text, i. 1
For I =2 To n
Str2=mid$ ( Text1,Text,I,1
M=Len (str1)
(3)
For j=1 To m
If (4) Then flag= 1; Exit For
Next j
If flag<>1 then str1=str1& str2
Next I
Lable2.Caption=(5)
End Sub
相关考题:
●试题六阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。【说明】单击窗体上的"测试"(cmdTest)按钮,出现一个输入框,要求输入一串字符,将该字符串中的非字母字符删除后,显示在窗体中的一个文本框(txtShow)中。【程序代码】Private Sub cmdTest_Click()Dim strT1,strT2 As StringDim strCh As (1)Dim intL As IntegerDim intI As IntegerstrT1= (2) ("请输入一串字符","字符串输入")intL= (3)strT2=″″For intI=l To intLstrCh=Mid(strT1,intI,1)If(strCh"A"And (4) ) Or (strCh"a" And suCh"z")ThenstrT2=strT2+strChEnd IfNext intItxtShow.Text= (5)End sub
阅读下列Java程序和程序说明,将应填入(n)处的字句写在对应栏内。【说明】StringEditor类的功能是:已知一个字符串,返回将字符串中的非字母字符都删除后的字符串。public (1) {public static String removeNonLetters( (2) ){StringBuffer aBuffer=(3);char aCharacter;for(int i=0; i<original.length();i++){aCharacter=(4);if(Character.isLetter(aCharacter))aBuffer.append( (5) );}return new String(aBuffer);}}public class StringEditorTester{public static void main(String args[]){String riginal="Hi!, My Name is Mark, 234I think you are my classmate?!!";System.out.println(StringEditor.removeNonLetters(original));}}
阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。【说明】本应用程序是一个乘法计算器,其运行窗口如图2所示。在该界面中,“被乘数”、“乘数”以及“积”等文字为标签,相应的3个输入输出数据框为文本框,此外还有3个命令按钮。用户在“被乘数”和“乘数”相应的文本框内输入数据,再单击“运算”按钮,便能在“积”对应的文本框中看到相乘的结果;当用户单击“清除”按钮时,就会清除各文本框中的数据;当用户单击“关闭”按钮时就会关闭该窗口并退出应用程序。用户不能在“积”对应的文本框中输入数据。【属性设置】各个对象、有关的属性名以及需要修改的属性值设计如下:【程序】Private Sub cmdMultiply_Click( )txt3. Text =Trim(Str$ ((3)) '加法运算获得和数End SubPrivate Sub (4) (txt1. Text=" " '空字符串赋值给文本框txt1的内容txt2. Text=" " '空字符串赋值给文本框txt2的内容txt3. Text=" " '空字符串赋值给文本框txt3的内容End SubPrivate Sub cmdClose_Click( )(5) '退出应用程序End Sub
阅读以下说明及Visual Basic 程序代码,将应填入(n)处的字句写在对应栏内。[程序5.1说明]下列程序运行时,当单击窗体后,从键盘输入一个字符,判断该字符是字母字符、数字字符还是其他字符,并做相应的显示。窗体上无任何控件,并禁用Ase和Chr函数,Select Case语句中禁用枚举值。[Visual Basic代码]Private Sub Form. Load ()Dim x As String*1X=(1) (“请输入单个字符”,“字符”)Select Case UCase ( (2) )Case (3)。Print X+“是字母字符”Case (4)Print X+ “是数字字符”Case ElsePrint X+“是其他字符”End Select[程序5.2说明]在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后,将在标签中显示当前时间的数字时钟(包括时:分:秒)。[Visual Basic代码]Private Sub Fom_Load ()Timer1.Interval=1000EndSubPrivate Sub Timer1_ timer() (5)EndSub
阅读以下说明及Visual Basic 程序代码,将应填入(n)处的字句写在对应栏内。[说明]以下是一账号和密码输入的检验程序。对输入的账号和密码规定如下所述。(1)账号为不超过6位的数字,密码为4位字符,在本题中,密码假定为“Pass”。(2)密码输入时在屏幕上不显示输入的字符,而以“*”代替。(3)当输入不正确,如账号为非数字字符或密码不正确时,显示有关信息。(4)当输入正确时,关闭密码窗口,显示记事本窗口。按要求完成有关控件的其他属性的设置,编写确定按钮的单击事件过程。相关界面如下:(可能要用到的单词:MultiLlne,ScrollBars,PasswordChar,MaxLength)密码窗口frmPass控件设置如下表所示。记事本窗口frmNotepad 控件设置如下表所示。在密码窗口的属性窗口,对密码文本框设置属性MuniLine 为False。[Visual Basic 代码]Private Sub cmd OK_ Click ( )If txtPas. Text= "Pass" ThenLoad frmNotePadfrmNotePad. ShowfrmPass.HideElseMsgBox "密码错误! ", vbExclamation + vbRetryCancel, "重输入密码"txtPas. Text= " "txtPas. SetFocus(1)End SubPrivate Sub Form_ Load ( )txtPas.PasswordChar = "*"xtNo.MaxLength = 6End SubPrivate Sub txtNo LostFocus (Dim i As Integer, s As String * 1Fori= 1 To (2)s = Mid ( txtNo.Text, i, 1 )If (3) Or (4) ThenMsgBox "账号有非数字符号! ", vbExclamation + vbRetryCancel, "1 输入账号"(5)txtNo. SetFocusExit SubEnd IfNext iEnd Sub
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。【说明】在窗体上设计两个文本框和两个标签,标签上显示:“摄氏温度:”和“华氏温度:”,文本框一个用于输入摄氏温度数,一个用于输出对应的华氏温度。摄氏温度与华氏温度的转换公式为:c=(5/9)×(f-32)要求:对输入的摄氏温度数有检查功能,以拒绝接收非数字字符。运行界面如图所示。【Visual Basic代码】Private Sub Commandl_Click ()Text1 = ""Text2 = ""Text1.Enabled = TrueText2.Enabled = TrueText1.SetFocusEnd SubPrivate Sub Command2 Click ()EndEnd SubPrivate Sub Form. Load ()Text1 = ""Text2 = ""Text1.Enabled = FalseText2.Enabled = FalseEnd SubPrivate Sub Textl_Change ()Text2.Text = (1)End SubPrivate Sub Textl_KeyPress (KeyAscii As (2) )If (3) ThenIf Chr ( KeyAscii ) < "0" Or (4) Then(5)End IfEnd IfEnd Sub
阅读以下说明和Visual Basic 码,将应填入(n)处的字名写在对应栏内[说明] 设计一个计时程序。该程序用户界面由一个文本框(text 1),两个按钮——命令按钮1 (Command 1)按钮、命令按钮(Command 2)组成。程序运行后,用户按开始按钮,则开始计时,文本框中显示秒数,按停止按钮,则计时停止。单击窗口则退出。Option ExplicitDim IPrivate Sub Command1 _ Click( )i=0Timer1. Interval = 1000(1)End SubPrivate Sub Command2_ Click( )Timer1. Enabled = FalseEnd subPrivate Sub Form. Click((2)End SubPrivate Sub Form. _Load( )Timer1. Enabled = False(3)End SubPrivate Sub Timer1 _ Timer( )i=i+1(4)End Sub
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。【说明】本应用程序是一个小写数字转换成大写格式的转换器,其运行窗口如图5所示。窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时,将文本框txtNumber中数字转换成中文大写,并显示在文本框txtChinese中。例如,在文本框txtNumber输入0076845,单击cmdChange按钮,将在文本框txtChinese中显示“柒万陆仟捌佰肆拾伍”。程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0,再调用函数Change(Strdigit As String),将数字字符串Strdigit转换成中文大写格式。为了防止用户在文本框txtNumber输入非数字形式的字符,程序将以空字符代替所输入的非数字有形字符。【程序】Private Function Transfer(Strdigit As String)As String′完成小写向大写的转换,这段代码省略End FunctionPrivate Function CChinese(Strdigit As String)As StringDim intLen,intCounter As IntegerintLen = Len (Strdigit)If intLen>0 Thenintcounter = 0Do '过滤数字串Strdigit的前导0intcounter = intcounter + 1Loop Until Mid(Strdigit,(1))intLen =(2)Strdigit =(3) (Strdigit,intLen)CChinese = Transfer(Strdigit)End IfEnd FunctionPrivate Sub cmdChange_Click( )txtChinese.Text=CChinese((4)) '调用Cchinese函数End SubPrivate Sub txtNumber_KeyPress(KeyAscii As Integer)Select Case KeyAscii '根据输入字符的ASCII码的值进行判断Case KeyAscii<32 '保留输入的控制字符Case 48 To 57 '保留输入的数字字符Case Else '其他情况以空字符代替(5)=0End SelectEnd Sub
试题三(共 15 分)阅读以下说明和 C 程序,将应填入 (n) 处的字句写在答题纸的对应栏内。