浙江省宁波市2017-2018学年高二上学期信息技术期中考试试题
年级: 学科:信息技术(信息科技) 类型:期中考试 来源:91题库
一、选择题 (共12小题)






s =0
i =0
Do While i<=11
i=i+3
s=s+i
Loop
程序执行结束时,变量s的值为( )
Private Sub Command1_Click( )
Dim x As String, k As String, j As Integer
x = "XiaoWei" ①
k = "语文" ②
j = 90 ③
Text1.Text = x + k +j ④
End Sub
二、填空题 (共4小题)
图1
⒈在“分类”中选择“百分比”;
⒉在对话框中选择 “数字”选项卡;
⒊选定数据区域H2:H13;
⒋在选定区域内右击鼠标,并选择“设置单元格格式”命令;
⒌单击“确定”按钮。正确的操作顺序是: (填序号)
图2
图1
图2
Private Sub Command1_Click()
Dim N As Integer
Dim S As Integer
N = val(Text1.Text)
S = 0
For i = 1 To N
S = S + i * (i + 1)
Next i
Text2.Text = str(S)
End Sub
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text
If Len(s) > 9
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)
ch =
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub