第7章 用户界面设计(6学时理论+4学时上机)课件.ppt

课堂编程,练一练,提高你的编程能力:;第7章 用户界面设计 ;;第7章 用户界面设计7.1 常用控件 ;重要属性： Value属性：值为整型，表示复选框的状态 0 —vbUnchecked:未选定 1 —vbChecked ：被选定 2 —vbGrayed:灰色,并显示一个选中标记 重要事件: Click事件;Function ish(n$) As Boolean ish = True For i = 1 To Len(n) \ 2 If Mid(n, i, 1) Mid(n, Len(n) + 1 - i, 1) Then ish = False Exit Function End If Next i End Function;Function isws (m%) As Boolean For i = 1 To m / 2 If m Mod i = 0 Then s = s + i End If Next i If m = s Then isws = True Else isws = False End If End Function;Sub delestr (s1$, s2$) If InStr(s1, s2) 0 Then s1