1、End Module 这段代码使用了一个循环，从1开始到99，步长为2，依次加上所有的奇数，最后将它们的和存储在变量sum中最后，使用ConsoleWriteLine语句将结果输出到控制台，输出的格式为quotS = 和quot在VBNET中，Print语句已。
2、VB代码如下Dim i， jj = 0For i = 1 To 100If i Mod 3 = 0 Or i Mod 7 = 0 And i Mod 21 lt 0 ThenPrint i，j = j + 1If j = 7 ThenPrintj = 0End IfEnd IfNext i。
3、将文本框text1和文本框text2的数值相加，应该写完valtext1text+valtext2text，而不是直接text1text+text2text由于在vb中，“+”号即可用来将两个字符相连，有可以用来将两个数相加，因为text中的内容默认为。
4、Private Sub Command1_Click Dim a As Single Dim b As Single Dim c As Single a = InputBoxa， quot输入aquot b = InputBoxb， quot输入bquot c = a + b Print quota + b =quot cEnd S。
5、分析由于我们不知道输入的这个整数是几位数，所以要先判断整数的位数，然后用循环找出每个位数具体的数值，最后加起来先建立2个文本框Text1Text2，1个按钮Command1操作在Text1中输入一个整数，再单击按钮，则结果。
6、st = quotA 花 报价 15quot vbCrLf quotB 草 报价 125quotst1 = Splitst， vbCrLfFor i = 0 To UBoundst1jg = jg + ValSplitst1i， quot quot3Next MsgBox jg #39按文本 jg = 0 st = quotA 花 报价。
7、M As Integer，N As Integer，Sum As Integer M = InputBoxquot请输人一个整数MquotN = InputBoxquot请输入一个整数Nquotif m mod lt0 then m=m+1 apos如果起始数为奇数，那么，从它下一个后开始计算和 For。
8、新建工程，1个文本框和1个按钮 text1用来录入数据， 因为是任意个数，用很多文本框是不方便的，程序设计是使用quot，quot来分隔数字，你可以输入任意多个数字，然后按钮command1后，就可以显示总和及平均值Private Sub Command1_Click。
9、Private Sub Command1_ClickDim x As Integer， s As Integer， y As Integer， z As Integer z = 0 x = ValInputBoxquot请输入一个数quots = LenCStrx 1 For i = s To 0 Step 1 y = x \。
10、Private Sub Command1_ClickFor i = 100 To 300 s = ValMidStri，2，1+ ValMidStri，3，1+ ValMidStri，4，1If s = 5 Then Print i End If Next End Sub 思路是将数字转换为。
11、Print quot计算1至1000之间的奇数之和为quot sEnd Sub没有学过VB但是楼主的程序确实存在问题，这样改一下应该差不多了，对于楼上说的溢出问题就要看整形数的表示范围了 本回答由提问者推荐 举报 答案纠错 评论 4 2 夏永烽。
12、Private Sub Command1_ClickDim A， S， I As Integer A = Valtext1TextFor I = 1 To 3 S = S + A Mod 10 A = A \ 10 Next Print CStrSEnd Sub。
13、可以使用循环来实现这个算法，具体的VB程序设计语言描述如下Dim sum As Integer #39 定义一个变量来保存求和结果 sum = 0 #39 初始化求和结果为0 For i As Integer = 10 To 300 Step 10 #39 循环10到300，每次增加10 s。
14、然后把B的值赋给A，把临时变量的值赋给B，最后输入A tmb=a a=b b=tmb print a 思路就是这样，无论多少个数，都可以用这个思路，学编程要学会举一反三，触类旁通，不能老看人家代码怎么写就怎么写。
15、以下是使用VB编程语言输出1到100之间的所有数的程序Dim i As Integer For i = 1 To 100 DebugPrint i Next i 该程序使用For循环遍历1到100之间的所有整数，并使用DebugPrint语句将每个整数输出到“立即窗口”。
16、这是最简单的算法，每产生一个随机数，就和已有的比较，如果已经存在，则重新产生比较适合从一个大范围里面抽出一小部分数据，比如，从题库中抽取试题vb view plain copy print？#39 产生20个1100之间的不重复随机数。
