问卷调查VBA制作方法VIP专享VIP免费

中学生上网情况调查问卷1、你家里是否经常玩电脑现象？2、你是否经常想着上网？3、是否因上网有逃课经历4、家长或学校有没有对你上网进行具体指导？5、你对网上资料最感兴趣的项是：（多选题）：专家建议：使用方法：1、工具-宏-安全-设置为“中”2、启用“宏”3、编辑：工具-宏-VBA编辑器主程序：DimiAsIntegerPrivateSubCommandButton1_Click()IfOptionButton1.Value=TrueTheni=i+0重做查看结果聊天新闻科学文学艺术学习资料教育社会科学没有有没有有否是否是IfOptionButton2.Value=TrueTheni=i+1IfOptionButton3.Value=TrueTheni=i+0IfOptionButton4.Value=TrueTheni=i+1IfOptionButton5.Value=TrueTheni=i+0IfOptionButton6.Value=TrueTheni=i+1IfOptionButton7.Value=TrueTheni=i+1IfOptionButton8.Value=TrueTheni=i+0IfCheckBox1.Value=TrueTheni=i+1IfCheckBox2.Value=TrueTheni=i+1IfCheckBox3.Value=TrueTheni=i+1IfCheckBox4.Value=TrueTheni=i+1IfCheckBox5.Value=TrueTheni=i+1IfCheckBox6.Value=TrueTheni=i+1TextBox1.Text=ii=0IfOptionButton1.Value=TrueOrOptionButton3.Value=TrueOrOptionButton5.Value=TrueOrOptionButton8.Value=TrueThenTextBox2.Text="把精力放的学习上，另外父母要加强监管。--罗水平"EndIfIfOptionButton1.Value=FalseAndOptionButton3.Value=FalseAndOptionButton5.Value=FalseAndOptionButton8.Value=FalseAndCheckBox7.Value=TrueThenTextBox2.Text="经常网聊容易上瘾，并且给自身带来安全。--罗水平"EndSubPrivateSubCommandButton2_Click()i=0OptionButton1.Value=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseOptionButton4.Value=FalseOptionButton5.Value=FalseOptionButton6.Value=FalseOptionButton7.Value=FalseOptionButton8.Value=FalseCheckBox1.Value=FalseCheckBox2.Value=FalseCheckBox3.Value=FalseCheckBox4.Value=FalseCheckBox5.Value=FalseCheckBox6.Value=FalseCheckBox7.Value=FalseTextBox1.Text=""TextBox2.Text=""EndSub