re1.Print ai j Next jPicture1.PrintNext iEnd Sub31、声明一个整型的二维数组 a1 to 41 to 4,用随机函数产生各元素,范围介于120之间,编程将第1行和第3行对应元素交换。
Dim a1 To 4 1 To 4 tPrivate Sub Command1_ClickPicture1.ClsFor i 1 To 4For j 1 To 4Picture1.Print Tabj 4 ai jNext jPicture1.PrintNext iEnd SubPrivate Sub Command2_ClickFor i 1 To 4For j 1 To 4t a1 j: a1 j a3 j: a3 j tPicture2.Print Tabj 4 ai jNext jPicture2.PrintNext iEnd SubPrivate Sub Form_LoadFor i 1 To 4For j 1 To 4ai j IntRnd 20 1Next jNext iEnd Sub32、随机产生15个小写字母,放在字符数组中。
提示:cchrintrnd2697Private Sub Command1_ClickDim c14 iPicture1.ClsFor i 0 To 14ci ChrIntRnd 26 97Next iFor i 0 To 14Picture1.Print ciNext iEnd Sub33、编写一个过程计算并输出区间100,1000内所有素数的和要求判断素数使用过程(函数或子过程)来实现。
调用该过程。
提示:只能被1和自身整除的自然数称为素数。
Function sushuByVal xDim m Tag As Boolean im ValxTag TrueFor i 2 To m - 1If m Mod i 0 Then Tag FalseNext iIf Tag Then sushu xEnd FunctionPrivate Sub Command1_ClickDim i kFor i 100 To 1000If sushui Then List1.AddItem iNext iSum 0For k 0 To List1.ListCount - 1Sum Sum ValList1.ListkNext kLabel1 〔100,1000〕内所有素数和为: SumEnd Sub34、随机产生10个1100的正整数放入数组,显示产生的数,求最大值、最小值、平均值。
Private Sub Form_ClickDim a1 To 10 As Integer i maxa mina sumaFor i 1 To 10ai IntRnd 71 30Next imina a1maxa a1suma a1For i 2 To 10If ai maxa Then maxa aiIf ai mina Then mina aisuma suma aiNext iFor i 1 To 10Print aiNext iPrintPrint max maxa min mina aver suma / 10End Sub
上一篇:
xml实验报告代码
下一篇:
[新闻文章]勇者天空文章主页v1_065567news10