VB编程题参考.docVIP

VB程序设计题 1* 编写程序：设计一个程序，随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。 Dim num As Integer, a As String, b As String c As String, result As Integer Randomize num = Int(Rnd * 900) + 100 a = Left(LTrim(Str(num)), 1) b = Mid(LTrim(Str(num)), 2, 1) c = Right(LTrim(Str(num)), 1) result = Val(c) * 100 + Val(b) * 10 + Val(a) Print num, result 3* 编写程序：在文本框中输入弧度值，将弧度换算为角度值（度、分、秒）的形式并输出，要求秒数保留三位小数。 Dim a As Double, b As Integer, c As Integer, d As Single Const PI = 3.14 a = 180 * Val(Text1.Text) / PI b = Int(a) c = Int((a - Int(a)) * 60) d = ((a - b) * 60 - c) * 60 Print b 度 c 分 Format(d, ####.000) 秒 6* 编写一个计时程序。 * 界面要求： * 使用标签、命令按钮、时钟控件完成。 * 运行要求： * 1、点击“开始”按钮，标签显示 0并开始计时，每隔一秒，标签中显示的秒数加1； * 2、点击“结束”按钮，停止计时。 Dim t As Integer Private Sub Command_Click() Timer1.Enabled = True t = 0 Timer1.Interval = 1000 End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() t = t + 1 Label1.Caption = t End Sub 12* 编写程序：编程计算1+(1+2)+(1+2+3)+…+（1+2+3…+n）， n由用户输入。 Dim i As Integer, j As Integer, n As Integer Dim temps As Integer, sum As Long n = InputBox(输入n的值) For i = 1 To n temps = 0 For j = 1 To i temps = temps + j Next j sum = sum + temps Next i Print sum= sum 13* 编写程序：已知x、y、z分别是0～9中的一个数，求x、y、z的值，使得下列成立：xxz+yzz=532。（其中xxz和yzz不表示乘积，而是由x、y、z组成的三位数）。 Dim x As Integer, y As Integer, z As Integer, result As Integer For x = 0 To 9 For y = 0 To 9 For z = 0 To 9 If x * 100 + x * 10 + z + y * 100 + z * 10 + z = 532 Then Print x= x, y= y, z= z End If Next z Next y Next x 15*计算1到10的每个整数平方根,按每个记录(每个记录为1行)2个数据的形式将计算结果存入另一个文件data1.txt中。 Dim i As Integer, result As Double Open d:\data1.txt For Output As #1 Print #1,数,平方根 For i = 1 To 10 Print #1, i, Sqr(i) Next i Close MsgBox 文件已写入 16*已知在正文文件zhengda2.txt中共有20个记录，每个记录是用以下格式表示的4项数据： 编号 机试成绩 笔试成绩 平时成绩 nn nn nn nn （说明：n表示整型；n的个数表示位数）将文件中的数据读出并只且显示编号和笔试成绩, 并统计20个记录的笔试平均成绩 Dim a1, a2, a3, a4, sum, aver Open d:\data2.txt For Input As #1 Do While Not EOF(1) Input #1, a1, a2, a3, a4 Print a1, a4