Private Sub Command1_Click()

Dim x As Integer

x=Val(Text 1.Text)

Select Case{#blank#}1{#/blank#}

  Case Is>=90

    Text2.Text=“A”

  Case Is>=80

    Text2.Text=“B”

  Case Is{#blank#}2{#/blank#}

    Text2.Text=“C”

  Case Is>=60

    Text2. Text=“D”

  Case Else

    {#blank#}3{#/blank#}

End Select

End Sub

x=20

if x>=100：

  y=5*x

else：

  y=4*x

print (y)

s="abcdefg"

c=len(s)  #len 求字符串长度

for i in range(0,c):

  if i<2:

    print (chr(ord(s[i])+2),end=" ") #    ord()函数是chr()函数配对函数，将字符转ASCII值

  else:

    print(chr(ord(s[i]) + 3),end=" ")

a=int(input("请输入a："))

if a<0：

    y=-a

else：

    y=a

print(y)

输入： 2022

输出结果为 {#blank#}1{#/blank#}

输入： -3

输出结果为{#blank#}2{#/blank#}