Question

求写问卷的高手！

写一个关于 “大学生中午不吃中饭” 的问卷 大概10个问题 包括原因 好坏之类的
条数一定要在10条以上！！

Answer 1

平常怎么分配正餐和零食的分量
A几乎都是正餐，不吃或很少零食
B不太吃正餐，几乎都是零食
C吃正餐，也常吃零食

我每天的饮食习惯是 *
 A 一日三餐都要保证
 B 偶尔不吃早餐
 C 偶尔不吃晚餐
 D 经常性地只吃一餐或两餐
 E 不固定，感到饿了就会吃东西

什么情况下会使我中餐不吃饭 * [多选题]
 A 上课时间来不及
 B 节食减肥
 C 没有胃口
 D 临时有活动或工作

是否知道不吃中餐的坏处
Sub lqxs()

Dim Arr, ks, js, nm1$, nm2$, dz1$, dz2$

Dim dz$, dz3$, yy$, nm$

Application.ScreenUpdating = False

Sheet3.Activate

Arr = [a1].CurrentRegion

ks = 3: js = UBound(Arr) - 1

nm = Sheet3.Name

yy = Left(nm, Len(nm) - 3)

nm1 = "图表 6"

nm2 = "图表 4"

dz = "A2:B" & js & ",D2:E" & js

ActiveSheet.ChartObjects(nm1).Activate

With ActiveChart

.SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:=xlColumns

.SeriesCollection(1).Select

dz1 = "R3C2:R" & js & "C2"

.SeriesCollection(1).Values = "='" & nm & "'!" & dz1

dz2 = "R3C4:R" & js & "C4"

.SeriesCollection(2).Values = "='" & nm & "'!" & dz2

dz3 = "R3C5:R" & js & "C5"

.SeriesCollection(3).Values = "='" & nm & "'!" & dz3

.ChartTitle.Select

Selection.Characters.Text = yy & "月份合格率"

End With

ActiveSheet.ChartObjects(nm2).Activate

With ActiveChart

.ChartArea.Select

dz = "H2:T2,H" & js + 1 & ":T" & js + 1

.SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:= _

xlRows

dz2 = "R" & js + 1 & "C8:R" & js + 1 & "C20"

.SeriesCollection(1).Values = "='" & nm & "'!" & dz2

.ChartTitle.Select

Selection.Characters.Text = yy & "月份不良趋势统计"

End With

Range("A" & ks).Select

Application.ScreenUpdating = True

MsgBox "OK"

End Sub

Answer 2

平常怎么分配正餐和零食的分量
A几乎都是正餐，不吃或很少零食
B不太吃正餐，几乎都是零食
C吃正餐，也常吃零食

我每天的饮食习惯是 *
 A 一日三餐都要保证
 B 偶尔不吃早餐
 C 偶尔不吃晚餐
 D 经常性地只吃一餐或两餐
 E 不固定，感到饿了就会吃东西

什么情况下会使我中餐不吃饭 * [多选题]
 A 上课时间来不及
 B 节食减肥
 C 没有胃口
 D 临时有活动或工作

是否知道不吃中餐的坏处

追问

太少了 要求10个问题左右 不知道编不编的出？