vb经典题目及答案Word格式.docx

1、 For Input As 1Input #1, strinfoClose #1Text1.Text = strinfoEnd SubPrivate Sub C2_Click（）Dim strchange As StringDim i As IntegerFor i = 1 To Len（Text1.Text） strchange = strchange + Chr（Asc（Mid（Text1.Text, i, 1） + 2）NextText1.Text = strchangePrivate Sub C3_Click（）out7.txt For Output As 1Print #1, Tex

2、t1.Text2、（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确容，然后删除？及所有注释符（即存盘时不得改变文件名和文件夹。在窗口中有一个RichText文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名称分别为Command1和Command2，标题分别为加入WY01.TXT统计字符个数要求程序运行后，单击command1将考生文件夹下的wy01.txt的容显示到rtx1中；单击按钮统计Text1中有多少个字符，将结果显示在Text1中。Option ExplicitPrivate Sub Co

3、mmand1_Click（）rtx1.LoadFile App.Path + wy01.txtPrivate Sub Command2_Click（）If rtx1.Text Then Text1.Text = Len（rtx1.Text）End If3、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？及所有注释符（即 存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。在名称为Form1的窗体上有五个Label控件和两个命令按钮， 数据文件prog8a.dat存放一些字符。1）按开始按钮后,能从考生文件夹下的prog8a

4、.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其它类型字符的个数，将结果写入考生文件夹下的prog8b.dat文件中（以标准格式在一行中输出）；2）执行完毕，按钮变成完成，且无效（变灰）Private Sub COMSTART_Click（）Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integermyfile1 = App.Path & &prog8a.datmyfile2 = App.Path &prog8b.datOpen myfile1 For Input As

5、#1Open myfile2 For Output As #2While Not EOF（1） Input #1, Ch$ If Asc（Ch$） = 48 And Asc（Ch$） = 65 And Asc（Ch$） = 90 Then Cp = Cp + 1= 97 And Asc（Ch$） c2,则为锐角三角形；若一边具有a2+b2c2,则为钝角三角形。Private Sub Command6_Click（）Label1.Enabled = FalseFor i = 1 To 10 a（i） = InputBox（请输入第 i & 个数,请务必输入数值数据！, 输入 Do While I

6、sNumeric（a（i） = False输入数据无效，请重新输入数值数据！ 个数 Loop Next iFor i = 1 To 9 For j = i + 1 To 10 If Val（a（j） = 2 * 3.14159 Then c = c Mod （2 * 3.14159）Private Sub Timer1_Timer（）Picture1.Refresh 重画图片框For i = 0 To L1.ListCount - 1 L1.Selected（i） = True L1.ListIndex = i Print #1, L1.Text, L1.Selected（i） = FalseLabel4.BackColor = RGB（HScroll1.Value, HScroll2.Value, HScroll3.Value）Private Sub HScroll2_Change（）Private Sub HScroll3_Change（）