题型：填空题 题类：常考题 难易度：普通
浙江省湖州市菱湖中学2018-2019学年高二下学期信息技术3月月考试卷
Private Sub Command1_click ( )
Dim n As Integer , m As Integer , k As Integer
n = Len ( Text1．Text )
m = Val ( Text2．Text )
k = Val ( Text3．Text )
If m + k -1 > n Then
Text4．Text = Mid ( Text1．Text , 1 , m – 1 )
Else
Text4．Text = Mid ( Text1．Text , 1 , m–1 ) + Mid ( Text1．Text , m+k , n–m–k +1 )
End If
End Sub
试题篮
