2017年江苏省信息技术学业水平试卷（13）

一、操作题（每题10分，9题共90分）

• 1．打开“Z：\50\工程1．vbp”，完善程序并保存。
  实现功能：在文本框text1、text2、text3中输入3根小木棒的长度（假设都是整数），判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。
  操作要求：
  （1）在窗体中加载“CommandButton”控件，命名为“Command1”并设置该控件“Caption”属性值为“判断”；
  （2）完善程序，执行command1_click事件，判断出结果，如果能搭成三角形则在文本框text4中输出“OK”，否则输出“NO”。
  Private Sub Command1_Click （　　）
  Dim a,b,c As ①
  Let a=Val（Text1．Text）
  Let b=Val（Text2．Text）
  Let c=Val（Text3．Text）
  If （a+b＞c） And （a+c＞b） And （b+c＞a） Then
  Let Text4．Text=“OK“
  Else
  Let Text4．Text=“NO“
  ②
  End Sub。
  组卷：7引用：1难度：0.7

  解析

• 2．打开文件“考生文件夹\108\工程1．vbp”，完善Command1_Click事件代码并保存。
  实现功能：判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，则将该数据输出在窗体上。
  Private Sub Command1_Click （　　）
  Dim x As Integer
  x=Val（①）
  If x Mod 3=2Then
  If ②=3Then
  Print ③
  End If
  End If
  End Sub。
  组卷：7引用：1难度：0.5

  解析

一、操作题（每题10分，9题共90分）

• 7．打开文件“考生文件夹\613\工程1．vbp”，完善Command1_Click事件代码并保存。
  实现功能：在Text1中输入一个数，单击“判断”按钮后，判断这个数是奇数还是偶数，并在Label1中显示“奇数”或“偶数”出来。
  Private Sub Command1_Click （　　）
  Dim a As Single
  Dim b As Single
  '从Text1中读入这个数，并保存在变量a中
  a=Val（①）
  b=a Mod ②
  If b=0Then
  Label1．Caption=“偶数“
  Else
  Label1．Caption=“奇数“
  ③
  End Sub。
  组卷：7引用：1难度：0.1

  解析

• 8．打开“Z：\600\工程1．vbp”，完善Command1_Click事件代码并保存。
  实现功能：这是一个简单的显示评语程序，在文本框Text1中输入一个数后，单击“评语”按钮，在标签Label1显示评语。
  当输入一个小于60的数时，显示“不及格”；
  当输入一个大于等于60且小于85的数时，显示“良好”；
  当输入一个大于等于85的数时，显示“优秀”。
  Private Sub Command1_Click （　　）
  Dim Cj As Single'定义变量Cj,值由文本框Text1读入
  Cj=Val（①）
  If Cj ②60Then
  Label1．Caption=“不及格“
  End If
  If Cj＞=60 ③Then
  Label1．Caption=“良好“
  End If
  If Cj＞=85Then
  Label1．Caption=“优秀“
  End If
  End Sub。
  组卷：10引用：1难度：0.1

  解析