2. 计算机
  3. 编写如下程序： Private Sub Command1_Click() Dim n As Integer Dim x As String, y As String, s As String x = "#" y = "**"

编写如下程序： Private Sub Command1_Click() Dim n As Integer Dim x As String, y As String, s As String x = "#" y = "**"

admin2020-07-22  32
问题 编写如下程序：
Private Sub Command1_Click()
   Dim n As Integer
   Dim x As String, y As String, s As String
   x = "#"
   y = "**"
   For n = 1 To 4
      If n Mod 2 = 0 Then
         s = String(Len(y) + n, y)
      Else
         s = String(Len(x) + n, x)
      End If
      Print s
   Next n
End Sub
程序运行后，单击命令按钮Command1，输出结果为
选项 A、##
****
####
******
B、#
**
###
****
C、**
####
****
######
D、##
****
######
********
答案A
解析 Len(x)=1，Len(y)=2，String（n，s）生产n个同一字符组成的字符串，此字符由s指定，当s为字符是，生产n个由s组成的字符串，当s为字符串时，字符为s的第一个字符。在For循环中，n从1到4，当n为偶数时（n mod 2=0）即当n为2、4时，分别在第2行、第4行，输出含有n+len（y）个的"*"（由y决定）的字符串；当n为奇数时（n mod 2！=0），即当n为1、3时，分别在第1行、第3行，输出含有n+len（x）个"#"（由x决定）的字符串。当n=1时，s=String(Len(x)+n，x)=String(1+1,"#")=##，输出##；当n=2时，s=String(Len(y)+n,y)=String(2+2,"**")=****，输出****；当n=3时，s=String(Len(x)+n，x)=String(1+3,"#")=####，输出####；当n=4时，s=String(Len(y)+n,y)=String(2+4,"**")=******，输出******；故A项正确。
转载请注明原文地址:https://kaotiyun.com/show/S5Hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)