当前位置: 高中信息技术 / 综合题
  • 1. (2019高二上·温州期中) 查找最大的ASCII码字符。随机生成n(n>=40)个可见ASCII码的字符串(可见字符ASCII码的范围是33~126),并显示在文本框Text1中。单击“查找”按钮运行程序,在标签Label1中输出该字符串中最大的ASCII码值及对应的字符。程序界面如图所示,VB代码如下。请回答下列问题:

    1. (1) 要使程序运行时,窗体Form1标题显示“查找ASCII最大的字符”,则需在Form_Load事件过程中添加语句(单选,填字母:A .Form1.Text="查找ASCII最大的字符" / B .Form1.Caption=

      "查找ASCII最大的字符"/  C .Form1.AddItem "查找ASCII最大的字符")

    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适代码。

      Const n = 40

      Private Sub Command1_Click()

        Dim s As String, ch As String

      Dim i As Integer, max As Integer

        s = Text1.Text

        max = 0

        For i = 1 To Len(s)

            ch =

            If Asc(ch) > max Then max = Asc(ch)

        Next i

        Label1.Caption = "最大ASCII码:" + + " 该字符为:" + Chr(max)

      End Sub

      Private Sub Form_Load()   ’随机生成可见字符并显示在文本框Text1中

        Randomize

        For i = 1 To n

          Text1.Text = Text1.Text +

        Next i

      End Sub

微信扫码预览、分享更方便