福建信息技术会考VB程序题汇总
信息技术学业水平测试VB套操作题复习及答案
b = Val(Text2.Text)
c = Val(Text3.Text) If a > b Then max = a Else max = b
If c > max Then max = c
Label3.Caption = CStr(max) End Sub
VB操作二打不开
VB操作三
Private Sub Command1_Click() Dim s As Single Dim q As Single
a = i \ 100 b = (i - a * 100) \ 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i Next i End sub
VB操作一
Private Sub Command1_Click() Dim s(9) As Single
VB操作三
Private Sub Command1_Click() Dim year As Integer year = Val(InputBox("请输入年号:"))
If ((year Mod 4 = 0) And (year Mod 100 <> 0)) Or (year Mod 400 = 0) Then
VB操作一
Private Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = "" For i = 1 To Len(Text1.Text) temp1 = Mid(x, i, 1) temp2 = 9 - temp1
2019福建高考招考本科vb技能考试真题
选择题：在Visual Basic中，用于声明整型变量的关键字是？A. StringB. Integer（正确答案）C. BooleanD. Double下列哪个语句在Visual Basic中用于创建一个新的窗体？A. Dim frm As New Form（正确答案）B. Set frm = New FormC. New FormD. Form frm = New Form在Visual Basic中，如果想要在点击按钮时执行一段代码，应该将该代码放在哪个事件中？A. Form_LoadB. Button_Click（正确答案）C. Timer_TickD. Form_Unload下列哪个函数在Visual Basic中用于获取字符串的长度？A. Len（正确答案）B. StrLenC. LengthD. GetLength在Visual Basic中，如果想要在文本框中输入文本时立即执行某些操作，应该将该操作代码放在哪个事件中？A. TextChanged（正确答案）B. TextBox_ClickC. TextBox_GotFocusD. TextBox_LostFocus下列哪个语句在Visual Basic中用于创建一个新的标签控件？A. Dim lbl As New Label（正确答案）B. Set lbl = New LabelC. New LabelD. Label lbl = New Label在Visual Basic中，用于连接数据库并执行SQL语句的对象是？A. Connection（正确答案）B. CommandC. RecordsetD. Database下列哪个循环结构在Visual Basic中用于当条件为真时重复执行一段代码块？A. For...NextB. While...Wend（正确答案）C. Do...Loop WhileD. For Each...Next在Visual Basic中，如果想要在程序启动时自动执行某些操作，应该将该操作代码放在哪个事件中？A. Form_ActivateB. Form_Load（正确答案）C. Form_InitializeD. Form_Start。
福建二级vb编程题
第1题：打开考生文件夹下的工程文件sxhs.vbp，添加适当的事件过程代码，实现以下功能：在文本框Text1中输入一个三位正整数，单击“判断”按钮，若该数为水仙花数，则在标签Label1中显示“是水仙花数”；否则，显示“不是水仙花数”。
水仙花数是一个三位正整数，其各位数字立方和等于该数本身。
例如，153是个水仙花数，153=13+53+33。
注：⑴不得增、删窗体上的控件，不得改变窗体和控件的名称；⑵不得删改两行“’############################# ”之间的代码；⑶不得删改模块*.bas中的代码；⑷编程后需运行程序，并在运行后关闭程序窗口（即单击活动窗体的“×”按钮）。
第1题：打开考生文件夹下的工程文件gwqj.vbp，编写适当的事件过程代码，实现以下功能：在文本框Text1中输入一个正整数，单击“各位非零数字之积”按钮，在文本框Text2中显示该数每一位非零数字相乘的积。
注：⑴不得增、删窗体上的控件，不得改变窗体和控件的名称；⑵不得删改两行“’#############################”之间的代码；⑶不得删改模块*.bas中的代码；⑷编程后需运行程序，并在运行后关闭程序窗口（即单击活动窗体的“×”按钮）。
第1题：打开考生文件夹下的工程文件jsxc.vbp，添加适当的事件过程代码，实现以下功能：在文本框Text1中输入一个字符串，串的首字符为第1位，单击“生成新字符串”按钮，依次从这个字符串的各个奇数位取出字符，构成新的字符串，并将新字符串显示在文本框Text2中。
注：⑴不得增、删窗体上的控件，不得改变窗体和控件的名称；⑵不得删改两行“’############################# ”之间的代码；⑶不得删改模块*.bas中的代码；⑷编程后需运行程序，并在运行后关闭程序窗口（即单击活动窗体的“×”按钮）。
第1题：打开考生文件夹下工程文件jspfh.vbp，添加适当的事件过程代码，实现以下功能：在文本框Text1中输入正整数N，单击“计算”按钮后，在文本框Text2中显示不大于该数的所有奇数的平方和。
福建省信息技术会考操作题(VB程序设计)易错考点.ppt
• 3、Patience is bitter, but its fruit is sweet. (Jean Jacques Rousseau , French thinker)忍耐是痛苦的，但它的果实是甜蜜的。11:038.5.202011:038.5.202011:0311:03:108.5.202011:038.5.2020
S=s+i放在循环体中用于 求和的。
S=s*i放在循环体中用于求 累积的。S的初始值是1。
程序的触发事件
触发事件
Private_sub command1_click()
文本框的默认触发事件 change 标签栏的默认触发事件 click 窗体的默认触发事件 load 按钮的默认触发事件 click
• 2、Our destiny offers not only the cup of despair, but the chalice of opportunity. (Richard Nixon, American President )命运给予我们的不是失望之酒，而是机会之杯。二〇二〇年八月五日2020年8月5 日星期三
• 7、Although the world is full of suffering, it is full also of the overcoming of it.----Hellen Keller, American writer虽然世界多苦难，但是苦难总是能战胜的。20.8.520.8.520.8.5。2020年8月5日星期三二 〇二〇年八月五日
Print “a”
方法二： Text1.text=a
如下所示，哪一个是合法的变量
名？dim end sqr i Nhomakorabeateger
高中信息技术会考软件正式考试,最后两道vb大题题库(由会考软件数据库内提取)含答案
Content----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = "社会"Text3.text = text2+text1</Program>答案社会信息----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "vb"Text2.Text = Text1.TextText1.Text = "程序设计"</Program>答案程序设计----------------------------------------------下面程序代码运行时，分别输入数值2和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a * b</Program>答案8----------------------------------------------下面程序代码运行时，分别输入数值20和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a / b</Program>答案5----------------------------------------------下面程序代码运行时，分别输入数值7和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b</Program>答案1----------------------------------------------下面程序代码运行时，分别输入数值23和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b</Program>答案5----------------------------------------------下面程序代码运行时，分别输入数值7和2，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a ^ b</Program>答案49----------------------------------------------下面程序代码运行时，分别输入数值2和3，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a ^ b答案8----------------------------------------------下面程序代码运行时，分别输入数值7和2，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b答案3----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "中国"Text3.text = text2+text1答案中国北京----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "吉林"Text2.Text = "中国"答案中国吉林----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "制造"Text2.Text = "中国"Text3.text = text2+text1答案中国制造----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "中国"Text3.text = text1+text2答案北京中国----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "绿色"Text2.Text = "奥运"Text3.text = text2+text1答案奥运绿色----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "大学"Text2.Text = "清华"答案清华大学----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "大学"Text3.text = text2+text1答案大学北京----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "工作原理"Text2.Text = "计算机"Text3.text = text2+text1答案计算机工作原理----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "系统"Text2.Text = "计算机"Text3.text = text2+text1答案计算机系统----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 100 To 89 Step -4s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 25 To 70 Step 20s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i>0 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i<0 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -20 Step -6if i>0 then s = s + iNext i答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i<>0 then s = s + iNext i答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i=0 then s = s + iNext i答案1----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i > 5 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i< 8 then s = s + iNext i答案4----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 15 For i = -0.6 To -1.9 Step -0.8s = s - 9Next i Print s答案-3----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 100 For i = -0.6 To -1.9 Step -0.8s = s / 10Next i Print s答案1----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 50 For i = -0.6 To -1.9 Step -1s = (s - 10) / 2Next i Print s答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 5if i< 18 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i>3 then s = s + iNext i答案2----------------------------------------------下面程序代码运行时，分别输入数值2和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a * b答案8----------------------------------------------执行下面的程序后，在对话框中输入整数14后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3>3 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数14后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3<>3 then y=2 Print y答案1----------------------------------------------执行下面程序后，输出的结果是多少？----------------------------------------------Dim x As IntegerDim n As IntegerDim k As Integer n = 14 For k = 1 To n Step 7x = x + kNext k Print x答案9----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = Text1.TextText1.Text = "社会"信息----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "信息技术会考"Text2.Text = Text1.TextText1.Text = "高中"答案信息技术会考----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "信息技术会考"Text2.Text = Text1.TextText1.Text = "高中"答案高中----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "吉林省"Text2.Text = Text1.TextText1.Text = "普通高中"答案普通高中----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "吉林省"Text2.Text = Text1.TextText1.Text = "普通高中"吉林省----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "zhongguo"Text2.Text = Text1.TextText1.Text = "china"答案zhongguo----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "zhongguo"Text2.Text = Text1.TextText1.Text = "china"答案china----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "2008"Text2.Text = Text1.TextText1.Text = "北京奥运"答案北京奥运----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "2008"Text2.Text = Text1.TextText1.Text = "北京奥运"2008----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = Text1.TextText1.Text = "社会"答案社会----------------------------------------------下面程序代码运行时，分别输入数值23和45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案68----------------------------------------------下面程序代码运行时，分别输入数值15和6，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案21----------------------------------------------下面程序代码运行时，分别输入数值230和405，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案635----------------------------------------------下面程序代码运行时，分别输入数值-9和8，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-1----------------------------------------------下面程序代码运行时，分别输入数值-9和-9，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-18----------------------------------------------下面程序代码运行时，分别输入数值63和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案18----------------------------------------------下面程序代码运行时，分别输入数值-23和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-68----------------------------------------------下面程序代码运行时，分别输入数值23和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-22----------------------------------------------下面程序代码运行时，分别输入数值1234和4321，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案5555----------------------------------------------下面程序代码运行时，分别输入数值12和43，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案55----------------------------------------------下面程序代码运行时，分别输入数值19和40，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案59----------------------------------------------下面程序代码运行时，分别输入数值79和8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案87----------------------------------------------下面程序代码运行时，分别输入数值50和50，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案100----------------------------------------------下面程序代码运行时，分别输入数值7和8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案15----------------------------------------------下面程序代码运行时，分别输入数值123和456，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案579----------------------------------------------下面程序代码运行时，分别输入数值79和-8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案71----------------------------------------------下面程序代码运行时，分别输入数值-15和-6，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案-21----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/9>1 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数20后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/9>1 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数16后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3>3 then y=2 Print y答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To 10 Step 3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 3 To 20 Step 5s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 26 To 40 Step 3s = s + iNext i答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To 10 Step 5s = s + iNext i答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To 1 Step -3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 9 To 19 Step 3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 20 To 10 Step -2s = s + iNext i答案6----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 99 To 120 Step 9s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To -10 Step -3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = -1 To -13 Step -3s = s + iNext i答案5----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x>0 then y=x/3+9 Print y答案13----------------------------------------------执行下面的程序后，在对话框中输入整数8后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10>0 then y=x/3+9 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数24后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10>0 then y=x/3+9 Print y答案17----------------------------------------------执行下面的程序后，在对话框中输入整数10后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10<>0 then y=x/3+9 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数2后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10<0 then y=x^3 Print y答案8----------------------------------------------执行下面程序后，变量a的值是什么？----------------------------------------------Dim a As StringDim b As StringDim c As String a = "wine"b = "water"c = aa = bb = c答案water----------------------------------------------执行下面程序后，变量b的值果是什么？----------------------------------------------Dim a As StringDim b As StringDim c As String a = "wine"b = "water"c = aa = bb = c答案wine----------------------------------------------下面程序代码运行时，分别输入数值35和46，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案81----------------------------------------------执行下面的程序后，在对话框中输入整数35后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2*x+x/5 Print y答案77----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 56 To 70 Step 8x = x + i \ 5Next i Print x答案73----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 10 Step 3x = x + i \ 5Next i Print x答案53----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 10 For i = 2 To 10 Step 3x = x + i \ 5Next i Print x答案12----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = -1 To 10 Step 3 x = x + i \ 5Next i Print x答案52----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 0 To 10 Step 5 x = x + i / 5Next i Print x答案53----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 0 To 9 Step 3 x = x + i / 3Next i Print x答案56----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 10 Step 3 x = x + iNext i Print x答案72----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 15 For i = 1 To 10 Step 4 x = x + i \ 5Next i Print x答案17----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 5 Step 3 x = x + i * 2Next i Print x答案60----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 1 For i = 1 To 8 Step 3 x = x + i * 3Next i Print x答案37----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 1 For i = 1 To 10 Step 3 x = x + iNext i Print x答案23----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 10 To 20 Step 5 x = x + i - 5Next i Print x答案80----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 1 To 10 Step 3x = x + i \ 5Next i Print x答案3----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 10 To 20 Step 4x = x + i \ 5Next i Print x答案7----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 18 To 10 Step -3x = x + i \ 5Next i Print x答案8----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 5 To 10 Step 3x = x + i \ 5Next i Print x答案2----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 10 To 1 Step -3x = x + i \ 5Next i Print x答案3----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if (x-5)/3>0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if (x+5)/2>3 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数8后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x/3>3 then y=20 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数15后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=111 if x/3>3 then y=222 Print y答案222----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数0后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数-9后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<0 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if x=0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x>0 then y=20 Print y答案20----------------------------------------------执行下面的程序后，在对话框中输入整数-12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=12 if x<0 then y=-12 Print y答案-12----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if x<>0 then y=0 Print y。
信息技术高中会考VB模块操作题题库演示教学
信息技术高中会考V B 模块操作题题库信息技术高中会考VB模块操作题题库第1题打开“Y:\4619”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1+4+7+……+40的值。
第2题打开“Y:\4620”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到300之间偶数的个数。
第3题打开“Y:\4621”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到100之间所有整数的和。
第4题打开“Y:\4622”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求100到200之间奇数的和。
第5题打开“Y:\4623”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2到10之间所有偶数的积。
第6题打开“Y:\4624”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求5+10+15+…+85的和。
第7题打开“Y:\4625”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被7整除的数的个数。
第8题打开“Y:\4626”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2×12×22×32×42×52的积。
第9题打开“Y:\4627”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2+5+8+11+……+50的值。
第10题新建一个VB工程，按下表的要求添加控件，并设置其属性。
将操作结果保存在“Y:\4674”文件夹下，窗体文件名为：“Form1.frm”，工程文件名称为：“工程1.vbp”。
福建信息技术会考操作题（上机）
第12题:打开“Z:\VB\85”文件夹中的文件：“d4.vbp”，进行以下操作后并保存！在VB代码窗口指定位置修改完善程序代码，实现求1*2*3*4*5*……*9*10的积。
值是3628800Private Sub Command1_Click()'注释：以下为求1*2*3*4*5*……*9*10的积的代码，请不要删除(1)和(2)以外的任何代码Dim s As LongDim n As IntegerDim i As Integern = 10'注释：删除(1)，在(1)处写上正确的代码s = 1For i = 1 To n'注释：删除(2)，在(2)处写上正确的代码s = s * iNext iPrint "S="; sEnd Sub第11题:打开“Z:\VB\90”文件夹中的文件：“k4.vbp”，进行以下操作后并保存！在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：在text1文本框中输入一个整数a（不为零），判断其是否为正数，如果该数大于零，则在text3文本框中输出“正数”，如果小于零，则输出“负数”。
测试数据在text1文本框中输入9，在text3文本框中输出：正数。
在text1文本框中输入-6，在text3文本框中输出：负数。
Private Sub Command1_Click()Dim a As longa = Val(Text1.Text)If a <> 0 ThenIf a > 0 ThenText3.Text = "正数"ElseText3.Text = "负数"End IfEnd IfEnd Sub第12题:打开“Z:\VB\82”文件夹中的文件：“d1.vbp”，进行以下操作后并保存！在VB代码窗口指定位置修改完善程序代码，实现求1到50之间的奇数和。
高中会考vb试题及答案
高中会考vb试题及答案高中会考VB试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. Dim x As Integer = 10答案：B2. 下列哪个是Visual Basic中的循环结构？A. IfB. ForC. Select CaseD. Sub答案：B3. Visual Basic中的“End”语句用于结束什么？A. 程序B. 过程C. 循环D. 条件答案：B4. 在Visual Basic中，以下哪个不是内置的控件？A. LabelB. TextBoxC. ButtonD. Slider答案：D5. 下列哪个是Visual Basic中的数组声明方式？A. Dim arr(5) As IntegerB. Dim arr As Integer = 5C. Dim arr = New Integer(5)D. Dim arr As Integer(5)答案：A6. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10D. If x > 10 End If答案：A7. Visual Basic中，以下哪个是正确的函数调用？A. Call Print("Hello World")B. Print "Hello World"C. Call Print("Hello World")D. Print("Hello World")答案：D8. 下列哪个是Visual Basic中的事件？A. ClickB. EventC. FunctionD. Procedure答案：A9. 在Visual Basic中，以下哪个是正确的类声明方式？A. Class MyClassB. Dim MyClassC. Sub MyClassD. Function MyClass答案：A10. 下列哪个是Visual Basic中的错误处理语句？A. TryB. CatchC. FinallyD. All of the above答案：D二、填空题（每空2分，共20分）1. 在Visual Basic中，使用________来定义一个类。
信息技术会考练习(vb)
信息技术练习题第一大题：单选题共有50 道题目, 总分为50 分，得分为0 分第1小题: (32001001）分数：1分，得分:0分计算机内部一律采用_______表示数据。
（A）ASCII码(B) 二进制数（C) 区位码(D）机器语言正确答案：B第4小题: (32301001) 分数：1分，得分：0分十进制数36转换为二进制数是_______.（A）100010 (B）101000 (C) 100100 (D）100101正确答案: C第7小题：(120701006）分数：1分，得分:0分在VB系统中，声明一个变量时，可能用到的关键字是_______.(A）End (B) For (C）As (D）Sub正确答案: C第9小题: (42601004) 分数：1分, 得分：0分在“我的电脑”或“资源管理器"中使用鼠标同时选中多个不连续的文件时，需要按住_______.（A）Shift键（B）Ctrl键（C）Alt键(D）CapsLock键正确答案: B第10小题：（106301001) 分数：1分, 得分：0分算法是______。
(A) 计算方法(B）计算公式(C) 程序（D）对解决问题的方法和步骤的描述正确答案：D第11小题：(20701001）分数：1分, 得分：0分电子计算机的划代原则有许多种，若按采用的电子器件划分，第四代电子计算机是指_______。
（A) 电子管计算机（B）晶体管计算机（C）集成电路计算机（D）大规模集成电路计算机正确答案：D第12小题: （21001004) 分数:1分，得分:0分电子计算机从第一代到第四代，其基本的设计思想和工作方式采用_______的体系。
(A）比尔·盖茨（B）冯·诺依曼（C) 人工智能型(D）Intel正确答案：B第13小题: (95801002）分数：1分, 得分:0分屏幕分辨率是指屏幕区域由多少个_______组成。
vb高中会考试题及答案
vb高中会考试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 下列哪个选项不是Visual Basic中的控件？A. LabelB. TextBoxC. ButtonD. Excel答案：D3. 在Visual Basic中，哪个关键字用于声明一个过程？A. FunctionB. SubC. ClassD. Both A and B答案：D4. 在Visual Basic中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D5. Visual Basic中的哪个函数用于返回字符串的长度？A. LenB. LengthC. SizeD. Count答案：A6. 在Visual Basic中，以下哪个选项不是事件处理程序的正确写法？A. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickB. Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)C. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)D. Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 答案：B7. 在Visual Basic中，以下哪个选项是正确的数组声明方式？A. Dim myArray() As IntegerB. Dim myArray As Integer()C. Both A and BD. None of the above答案：C8. 在Visual Basic中，以下哪个关键字用于声明一个类？A. ClassB. StructureC. ModuleD. Interface答案：A9. Visual Basic中，哪个函数用于将字符串转换为大写？A. ToUpperB. UpperCaseC. ConvertToUpperD. ToUppercase答案：A10. 在Visual Basic中，以下哪个选项是正确的错误处理语句？A. On Error GoTo 0B. On Error Resume NextC. On Error Goto 0D. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
福建高职单招vb试题及答案
福建高职单招vb试题及答案福建高职单招VB试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类变量？A. DimB. StaticC. PublicD. Private答案：C2. VB中的“Mid”函数用于什么？A. 计算字符串长度B. 转换大小写C. 返回字符串中的一部分D. 连接字符串答案：C3. 在VB中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. ImageD. ComboBox答案：C4. 如果要在VB中实现一个按钮，当用户点击时弹出一个消息框显示“Hello World”，应该使用哪个事件？A. ClickB. LoadC. ChangeD. DblClick答案：A5. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Date答案：C6. VB中的“Len”函数返回什么？A. 数组的长度B. 字符串的长度C. 对象的引用D. 文件的大小答案：B7. 在VB中，以下哪个不是窗体的属性？A. NameB. TextC. VisibleD. Color答案：D8. VB中的“Print”方法用于什么？A. 在文本框中显示文本B. 在标签上显示文本C. 在窗体上显示文本D. 打印文档答案：C9. 在VB中，以下哪个不是控制结构？A. IfB. ForC. DoD. Sub答案：D10. VB中的“UBound”函数返回什么？A. 数组的下界B. 数组的上界C. 数组的元素个数D. 数组的维度数答案：B二、填空题（每题2分，共20分）11. VB中的“________”函数可以将字符串转换为大写。
答案：UCase12. 当你想要在VB中定义一个函数时，应该使用关键字________。
答案：Function13. 在VB中，使用________方法可以获取当前系统时间。
答案：Now14. 如果一个变量在VB中被声明为Static，则它________。
高中信息技术-VB程序的调试-会考复习题
高中(gāozhōng)信息技术 VB程序(chéngxù)的调试会考(huìkǎo)复习题学校(xuéxiào):___________姓名(xìngmíng)：___________班级：___________考号：___________一、选择题1．数组排序。
点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。
如图所示。
程序代码如下：Dim a(1 To 10) As IntegerDim i, j, k, kt As IntegerPrivate Sub Command1_Click()List1.Clear '清除列表框数据For i ＝ 1 To 10Randomize '随机数初始化a(i) ＝ Int(Rnd() * 1000)List1.AddItem Str(i) ＋”＝” ＋ Str(a(i))Next iCommand2.Enabled ＝ True'激活排序按钮End SubPrivate Sub Command2_Click()For i ＝ 1 To 9k ＝ iFor j ＝____①____To 10Next jIf i <> k Then__②____End IfNext iList2.ClearFor i ＝ 1 To 10List2.AddItem Str(i) ＋” ＝” ＋ Str(a(i))Next iEnd Sub请在①、②划线处填入合适的语句或表达式，把程序补充(bǔchōng)完整：程序(chéngxù)中①划线(huá xiàn)处应填入__________________；程序(chéngxù)中②划线(huá xiàn)处应填入__________________。
信息技术会考练习题-第二部分-VB程序设计选择题-及答案
信息技术会考练习题第二部分 VB程序设计选择题第二部分 Visaul Basic 程序设计（选择题）—2006年一、单选题（每题1分）：1．计算机程序的三种结构是顺序结构、、选择结构。
A．模块结构 B．循环结构 C．多重循环结构 D．块IF结构2．在VB应用程序设计中，通常应对编写程序代码。
A．所有对象 B．窗体C．Timer D．有事件的对象3．在VB程序设计中，是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。
A．任务 B．事件 C．控件 D．过程4．在面向对象程序设计中，用来描述对象的特征信息。
A．事件 B．方法 C．代码 D．属性5．在VB系统中，一个对象内部的函数或过程，称为该对象的。
A．代码 B．属性 C．方法 D．事件6．在Windows环境中，可以同时运行多个应用程序，但只有窗口具有时，才能够接受用户的输入。
A．命令按钮 B．光标 C．鼠标指针 D．焦点7．在VB编程中，如果需要返回鼠标的当前位置时，应该使用事件。
A．Click B．Change C．MouseDown D．KeyPress8．在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设置为。
A．1 B．60C．100 D．10009．下列过程中，是程序开始运行时，窗体一加载就运行的程序段。
A．Form_Load B．Form_ClickC．Form_MouseDown D．Form_KeyPress10．下列句子中，不是赋值语句。
A．y=x+5 B．Label1.FontSize=12C．r=Val(Text1.Text) D．Not Pictrue1.Visible= Pictrue1.Visible11．的Visual Basic表达式是。
A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a) D．(-b+sqr(b^2-4ac))/2a12．要获得两位随机整数，正确的表达式为。
信息技术学业水平测试VB操作复习题目含答案
信息技学水平 VB操作复 目含答案
VB操作一
Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 s(i) = Val(InputBox("请输入一个数")) Next i For i = 9 To 0 Step -1 Print s(i) Next i
②
a=①
③
s=②
b=③
Next k
Print s
End Sub
信息技学水平 VB操作复
目含答案
a = a+b s = s+b/a b = a+b
Private Sub Command1_Click() Dim i As Integer Dim s As Integer i=1 s=0 Do While i <= 99 s=s+① i=② Loop Print "s=" & ③
目含答案
Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i For i = 1 to 9 For j = i+1 to 10 If a(i) > a(j) Then a(0) = a(i) a(i) = a(j) a(j) =a(0) End If Next j Next i For i = 1 To 10 Print CStr(a(i)) Next i
t = Val(①)
If ② Then
Label1.Caption = "超重！不能参赛！" Else
最新信息技术高中会考VB模块操作题题库
信息技术高中会考VB模块操作题题库第1题打开“Y:\4619”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1+4+7+……+40的值。
第2题打开“Y:\4620”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到300之间偶数的个数。
第3题打开“Y:\4621”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到100之间所有整数的和。
第4题打开“Y:\4622”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求100到200之间奇数的和。
第5题打开“Y:\4623”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2到10之间所有偶数的积。
第6题打开“Y:\4624”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求5+10+15+…+85的和。
第7题打开“Y:\4625”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被7整除的数的个数。
第8题打开“Y:\4626”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2×12×22×32×42×52的积。
第9题打开“Y:\4627”文件夹中的文件：“d1.vbp”，进行以下操作并保存。
在VB代码窗口指定位置修改完善程序代码，实现求2+5+8+11+……+50的值。
第10题新建一个VB工程，按下表的要求添加控件，并设置其属性。
将操作结果保存在“Y:\4674”文件夹下，窗体文件名为：“Form1.frm”，工程文件名称为：“工程1.vbp”。
福建信息技术会考VB程序题汇总
信息技术选修☆ 输入2个数,实现2个数的互换：Dim a as single,b as single,t as single a= b= t=a a=b b=t =a =b☆ 输入一个两位整数,十位和个位数值互换后输出：Dim x as integerDim ge as integer, shi as integer x=shi=x\10 ge=x mod 10 =ge10+shi☆ 输入秒数,输出时分秒： Dim a as integerDim h as integer, m as integer,s as integer a=h=a\3600 ‘计算小时部分 m=a-3600h \60 或 m=a mod 3600 \60‘计算分钟部分s=a mod 60 ‘计算秒部分=h & “小时” & m & “分” & m & “秒”☆ 输入一个年份,判断是否是闰年年份能被400整除或者 年份能被4整除但不被100整除：Dim y as integery=If y mod 4=0 and y mod 100<>0 or y mod 400=0 then=”是闰年”Else=”非闰年”End if☆求S=1+2+3+……+N Dim N as integer , s as integerN= S=0 For i=1 To N S=S+i Next i Print “S=”;S程序题汇总☆求S=1+3+5+……+2N -1 Dim N as integer , s as integer N=S=0 For i=1 To 2N -1 step 2 S=S+iNext i Print “S=”;S☆ 求S=1-2+3-4……+NDim N as integer , s as integer N=S=0 For i=1 To NS=S+I -1^ i+1 Next i Print “S=”;S☆ 求S=1+1/2+1/3+……+1/NDim N as integer , s as integer N=S=0 For i=1 To N S=S+ 1/ iNext i Print “S=”;S☆ 求S=1/2+2/3+3/4……+N/N+1Dim N as integer , s as integer N=S=0 For i=1 To N S=S+ i/ i+1Next i Print “S=”;S☆输入三角形三边,判断能否构成三角形,如可以则输出面积,否则输出“不能构成三角形“,设三边是a,b,c,q=a+b+c/2,则面积s=sqr-aq-bq-c ： Dim a as single, b as single, c as single Dim q as single,s as single a= b=c= q=a+b+c/2 if a+b>c and b+c>a and a+c>b then s=sqr-aq-bq-c = “三角形面积是” & s else = “不能构成三角形” end if ☆统计100以内能被3整除的数的个数： Dim n as integer n=0 For i=1 to 100If i mod 3 = 0 thenn=n+1 ‘n 当作计数器,符合条件就+1 end if next i print n☆输入5个数,输出其中的最大值： Dim max as single,x a single Max=inputbox “输入一个数” For i=1 to 4x=inputbox “输入一个数” If max<x then Max=x End if Next i Print max☆ 输入一个学生的成绩,判断其优80以上,良60-80,不及格： Dim score as single Score=If score>=80 then Print “优” Elseif score<60 then Print “不及格” ElsePrint “良” End if End if☆ 求56…25的积 Dim I As Integer Dim S As long S = 1For I = 5 to 25 Step 1 S = S I Next IPrint "求56…25的积："; S☆求1011910897867564534232+++++++++的值.Dim I As Integer Dim S As DoubleS = 0For I = 1 To 10 Step 1 S = S + I + 1 / I Next IPrint "2+3/2+4/3+5/4+6/5+…+11/10 ="; S☆ 在Text1输入整数a 、Text2输入整数b,判断a 和b 的差是否比50小,若比50小,则在Text3文本框中输出"小于",否则在Text3文本框中输出："大于或等于". Dim a As Integer Dim b As Integer a = b =If Absa - b < 50 Then = "小于" Else= "大于或等于" end if☆求657687981091-----的值.Dim I As Integer Dim S As single S = 1For I = 10 To 6 Step -1 S = S - I - 1 / I Next IPrint "1-9/10-8/9-7/8-6/7-5/6 ="; S☆已知三角形一条边C 的长度为5,在Text1、Text2分别输入边长a 和b,判断三条边能否构成一个三角形,如果是,则在Text3文本框中输出"能",否则在Text3文本框中输出"不能".Dim a As Single Dim b As Single a = b =If a + b > 5 And a + 5 > b And b + 5 > a Then = "能" Else = "不能" End If☆求10191817161514131211+++++++++的值.Dim i As Integer Dim S As singleS =0For i = 1 To 10 Step 1 S =S+1 / i Next IPrint "1+1/2+1/3+1/4+1/5+…+1/10="; S☆在Text1输入整数a 、Text2输入整数b,判断a 和b 的和能否被3整除,若能,则在Text3文本框中输出"能",否则在Text3文本框中输出："不能" Dim a As integer Dim b As integer a = b =If a + b Mod 3 = 0 Then = "能" Else = "不能" End If☆ 求5+10+15+……50 的和Dim S As integer S =0For i = 50 To 5 Step -5S =S+iNext I=S☆输入一个整数,判断它的奇偶性Dim x As integerX=If x mod 2=0 Then= "偶数"Else= "奇数"End If☆输入一个数,判断它其是否是整数.Fixx 取整Dim x As singleX=If fixx=x Then= "整数"Else= "不是整数"End If ☆输入两个正整数,求他们的公约数并输出Dim x As Integer, y As Integerx =y =For i = 2 To xIf x Mod i = 0 And y Mod i = 0 ThenPrint iEnd IfNext i☆输入两个正整数,求他们的最大公约数并输出Dim x As Integer, y As Integer, max As Integerx =y =max = 0For i = 2 To xIf x Mod i = 0 And y Mod i = 0 Thenmax = iEnd IfNext iPrint max☆求一元二次方程式ax2+bx+c=0的解,a、b、c从键盘输入.。
高中会考vb试题及答案
高中会考vb试题及答案高中会考VB试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中，以下哪个函数用于计算一个数的平方根？A. SqrB. PowC. AbsD. Log答案：A3. 在VB中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D4. VB中，以下哪个选项是正确的条件判断语句？A. IfB. SelectC. CaseD. All of the above答案：D5. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C6. VB中，以下哪个选项是正确的文件操作函数？A. OpenB. CloseC. Both A and BD. None of the above答案：C7. 在VB中，以下哪个选项是正确的窗体属性？A. CaptionB. TextC. Both A and BD. None of the above答案：C8. VB中，以下哪个选项是正确的事件处理？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C9. 在VB中，以下哪个选项是正确的控件？A. LabelB. TextBoxC. Both A and BD. None of the above答案：C10. VB中，以下哪个选项是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，用于声明变量的关键字是________。
福建vb二级考试答案
福建vb二级考试答案1. 以下哪个选项是Visual Basic中用于声明变量的关键字？A. DimB. ConstC. SubD. Function答案：A2. 在Visual Basic中，哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Asc答案：A3. 如果要在一个Visual Basic程序中使用“Print”方法来显示文本，应该使用哪个对象？A. FormB. TextBoxC. LabelD. CommandButton答案：A4. 在Visual Basic中，哪个属性用于设置文本框（TextBox）的初始文本？A. TextB. CaptionC. ValueD. Name答案：A5. Visual Basic中的哪个控件用于显示图像？A. PictureBoxB. ImageBoxC. PictureBoxControlD. Image答案：A6. 在Visual Basic中，如何使用条件语句来检查一个变量是否大于10？A. If x > 10 ThenB. If x = 10 ThenC. If x <= 10 ThenD. If x < 10 Then答案：A7. Visual Basic中，哪个事件用于响应鼠标单击按钮的动作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A8. 在Visual Basic中，哪个关键字用于定义一个过程？A. FunctionB. SubC. ProcedureD. Method答案：B9. 如果需要在Visual Basic程序中创建一个循环，直到满足某个条件，应该使用哪个循环结构？A. For...NextB. Do...LoopC. While...WendD. Repeat...Until答案：B10. 在Visual Basic中，哪个函数用于获取当前系统日期？A. NowB. DateC. TodayD. Time答案：C。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
信息技术（选修）☆输入2个数，实现2个数的互换：Dim a as single,b as single,t as singlea=text1.textb=text2.textt=aa=bb=ttext3.text=atext4.text=b☆输入一个两位整数，十位和个位数值互换后输出：Dim x as integerDim ge as integer, shi as integerx=text1.textshi=x\10ge=x mod 10text2.text=ge*10+shi☆输入秒数，输出时分秒：Dim a as integerDim h as integer, m as integer,s as integera=text1.texth=a\3600 ‘计算小时部分m=(a-3600*h) \60 或m=(a mod 3600) \60‘计算分钟部分s=a mod 60 ‘计算秒部分text2.text=h & “小时” & m & “分” & m & “秒”☆输入一个年份，判断是否是闰年(年份能被400整除或者年份能被4整除但不被100整除)：Dim y as integery=text1.textIf (y mod 4=0 and y mod 100<>0 ) or y mod 400=0 then Text2.text=”是闰年”ElseText2.text=”非闰年”End if☆求S=1+2+3+……+NDim N as integer , s as integerN=text1.textS=0For i=1 To NS=S+iNext iPrint “S=”;S 程序题汇总☆求S=1+3+5+……+(2*N -1 )Dim N as integer , s as integerN=text1.textS=0For i=1 To (2*N -1) step 2S=S+iNext iPrint “S=”;S☆求S=1-2+3-4……+NDim N as integer , s as integerN=text1.textS=0For i=1 To NS=S+I *（-1）^ ( i+1 )Next iPrint “S=”;S☆求S=1+1/2+1/3+……+1/NDim N as integer , s as integerN=text1.textS=0For i=1 To NS=S+ 1/ iNext iPrint “S=”;S☆求S=1/2+2/3+3/4……+N/(N+1)Dim N as integer , s as integerN=text1.textS=0For i=1 To NS=S+ i/ (i+1)Next iPrint “S=”;S☆输入三角形三边，判断能否构成三角形，如可以则输出面积，否则输出“不能构成三角形“，设三边是a,b,c，q=(a+b+c)/2，则面积s=sqr（q*(q-a)(q-b)(q-c)）：Dim a as single, b as single, c as singleDim q as single,s as singlea=text1.textb=text2.textc=text3.textq=(a+b+c)/2if (a+b)>c and (b+c)>a and (a+c)>b thens=sqr（q*(q-a)(q-b)(q-c)）text4.text = “三角形面积是” & selsetext4.text = “不能构成三角形”end if1☆统计100以内能被3整除的数的个数：Dim n as integern=0For i=1 to 100If i mod 3 = 0 thenn=n+1 ‘n当作计数器，符合条件就+1end ifnext iprint n☆输入5个数，输出其中的最大值：Dim max as single,x a singleMax=inputbox(“输入一个数”)For i=1 to 4x=inputbox(“输入一个数”)If max<x thenMax=xEnd ifNext iPrint max☆输入一个学生的成绩，判断其优（80以上），良（60-80），不及格：Dim score as singleScore=Text1.textIf score>=80 thenPrint “优”Elseif score<60 thenPrint “不及格”ElsePrint “良”End ifEnd if☆求5*6*…*25的积Dim I As IntegerDim S As longS = 1For I = 5 to 25 Step 1S = S * INext IPrint "求5*6*…*25的积："; S☆求1011910897867564534232+++++++++的值。
Dim I As IntegerDim S As DoubleS = 0For I = 1 To 10 Step 1S = S + (I + 1) / INext IPrint "2+3/2+4/3+5/4+6/5+…+11/10 ="; S☆在Text1输入整数a、Text2输入整数b，判断a和b的差是否比50小，若比50小，则在Text3文本框中输出"小于"，否则在Text3文本框中输出："大于或等于"。
Dim a As IntegerDim b As Integera = Text1.Textb = Text1.TextIf Abs(a - b) < 50 ThenText3.Text = "小于"ElseText3.Text = "大于或等于"end if☆求657687981091-----的值。
Dim I As IntegerDim S As singleS = 1For I = 10 To 6 Step -1S = S - (I - 1) / INext IPrint "1-9/10-8/9-7/8-6/7-5/6 ="; S☆已知三角形一条边C的长度为5，在Text1、Text2分别输入边长a和b,判断三条边能否构成一个三角形，如果是，则在Text3文本框中输出"能"，否则在Text3文本框中输出"不能"。
Dim a As SingleDim b As Singlea = Text1.Textb = Text2.TextIf a + b > 5 And a + 5 > b And b + 5 > a ThenText3.Text = "能"ElseText3.Text = "不能"End If23☆求10191817161514131211+++++++++的值。
Dim i As IntegerDim S As single S =0For i = 1 To 10 Step 1 S =S+1 / i Next IPrint "1+1/2+1/3+1/4+1/5+…+1/10="; S☆在Text1输入整数a 、Text2输入整数b ，判断a 和b 的和能否被3整除，若能，则在Text3文本框中输出"能"，否则在Text3文本框中输出："不能"Dim a As integer Dim b As integer a = Text1.Text b = Text2.TextIf (a + b) Mod 3 = 0 Then Text3.Text = "能" ElseText3.Text = "不能" End If☆ 求5+10+15+……50 的和Dim S As integer S =0For i = 50 To 5 Step -5 S =S+i Next IText3.text=S☆ 输入一个整数，判断它的奇偶性 Dim x As integer X=text1.textIf x mod 2=0 ThenText3.Text = "偶数" ElseText3.Text = "奇数" End If☆ 输入一个数，判断它其是否是整数。
（Fix(x)取整） Dim x As single X=text1.text If fix(x)=x ThenText3.Text = "整数" ElseText3.Text = "不是整数" End If☆输入两个正整数，求他们的公约数并输出 Dim x As Integer, y As Integer x = Text1.Text y = Text2.Text For i = 2 To xIf x Mod i = 0 And y Mod i = 0 Then Print i End If Next i☆输入两个正整数，求他们的最大公约数并输出 Dim x As Integer, y As Integer, max As Integer x = Text1.Text y = Text2.Text max = 0For i = 2 To xIf x Mod i = 0 And y Mod i = 0 Then max = i End If Next i Print max☆求一元二次方程式ax 2+bx+c=0的解，a 、b 、c 从键盘输入。