精品文档就在这里
-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有
--------------
--------------------------------------------------------------------------------------------------------------------------------------------
画出控件及其属性设计时的名称、参数表3%，程序流程图3%并完成下列程序)
Private Sub Command1_Click()
Dim i As Integer, N As Integer, n1 As Integer, n2 As Integer For i = 1000 To 9999 ____________(2%)
n2 = i Mod 100 ‘(提示：求余) If sum(n1) = sum(n2) Then ____________(2%)
List1.AddItem CStr(i) (提示：CStr函数将表达式转换成string) End If Next i
Text1 = N End Sub
Private Function sum(s As Integer) As Integer Dim p As Integer, Q As Integer p = s \\ 10 __________(2%) sum = p + Q End Function 六、编程题［12%］ 得分 1定义一函数myabc(x),能计算给定数的绝对值.再定义一过程change(x,y),该过程能交换两个变量的值。(在主程序用标签输出两个变量交换前后的值，用文本框输入原两个数、输出给定两数的绝对值)
---------------------------------------------------------精品 文档---------------------------------------------------------------------