vb.net 程序设计

Dim i As Integer

Dim str As String

str = InputBox("请输入个数：")

i = Val(str)

If i <1 Then

Exit Sub

End If

Dim k As Integer

Try

For k = 1 To i

SumN = SumN + k ^ k

Next

MsgBox("结果：" &SumN)

Catch

End Try

实验要求

:

1.

实验前按实验报告格式要求，写出预实验报告，注意留出记录结果的空间。

2.

认真实验

,

注意记录

3.

撰写实验报告

.

按时上交

.

实验报告格式：

实验

*

***** ***** *****

一、

实验目的

照抄实验指导的内容。

二、

实验步骤和内容

包括：

1

．实验题目要求。

2

．源程序清单

3

．预期结果

3

．上机执行或调试结果：包括原始数据、相应的运行结果和必要的说明

三、

实验体会

调试中遇到的问题及解决办法；若最终未完成调试，要试着分析原因；调试程

序的心得与体会；其他算法的存在与实践；对课程及实验的建议等。